Отправляет email-рассылки с помощью сервиса Sendsay
  Все выпуски  

RusFAQ.ru: Программирование на языке Pascal


Информационный Канал Subscribe.Ru


RusFAQ.ru: Программирование на языке Pascal

Выпуск № 235
от 26.01.2004, 17:10

Администратор:
Имя: Sensey
URL: Информационный ресурс
ICQ: 105679124
Украина, Харьков
О рассылке:
Задано вопросов: 406
Отправлено ответов: 1440
Активность: 354.6 %
[Задать вопрос >>][Регистрация эксперта >>]
[Поиск в базе][Обсудить на форуме]


 Список экспертов, ответы которых опубликованы в данном выпуске

samum2000
Статус: Опытный
Общий рейтинг: 118.96
[Подробней >>]
Boriss
Статус: Профессиональный
Общий рейтинг: 151.02
URL: Программирование на Паскале
[Подробней >>]
Strory
Статус: Начальный
Общий рейтинг: 142.3
[Подробней >>]
 
sir henry
Статус: Профессиональный
Общий рейтинг: 159.49
[Подробней >>]


 Краткий перечень вопросов

Вопрос № 406. Здравствуйте, уважаемые эксперты! Как сконвертировать тип string,char,text в тип integer?... (ответов: 4)

Вопросов: 1, ответов: 4


 Вопрос № 406

Здравствуйте, уважаемые эксперты!
Как сконвертировать тип string,char,text в тип integer?



Вопрос отправлен: 23.01.2004, 17:01
Отправитель: Andrei

[Следующий вопрос >>] [Список вопросов]

Отвечает samum2000

Доброе время суток, Andrei!
Для этого есть специальная функция Val(S; var v: integer (или Real); Var c: integer);
S - строковая переменная (в т.ч. Char), которая содержит текстовое значение;
v - переменная, в которую будет помещено числовое значение;
с - код ошибки, если ошибка была, указывает номер позиции в строке s, в котором содержится недопустимый символ, иначе равняется 0.
С типом text несколько сложнее, потому что это файловый тип. В смысле переменная типа text - это идентификатор файла, а не текстовая строка, так что придется сначала ститать содержимое, а уж потом его преобразовывать.
Пупутного ветра!

Ответ отправлен: 25.01.2004, 12:37
Отправитель: samum2000


Отвечает Boriss

Приветствую Вас, Andrei!
Для этого есть процедура VAL, описание которой можно найти во всех учебниках. Если нет, то посмотрите, хотя бы www.turbopascal.tk
А в приложении пример более умной функции, которая эмулирует алгоритм, которым мы записываем числа на листе бумаги. Достоинство в том, что 1) нельзя ввести недопустимые цифры; 2) можно организовать ввод чисел в любой системе счисления

Приложение:

Ответ отправлен: 24.01.2004, 09:55
Отправитель: Boriss


Отвечает Strory

Приветствую Вас, Andrei!
Во-первых, стандартный метод. Существует процедура Val. Вот её описание:
-------
Преобразовывает строковое значение в его числовое представление.
Объявление:
Procedure Val(S; var V; var Code: Integer);
Где:
S - переменная со строковым типом. Должна представлять последовательность символов, формирующих число.
V - переменная типа Real или Integer
Code - переменная типа Integer, содержит позицию, в которой произошла ошибка при преобразовании, или нуль, если ошибки не было.
-------
Во-вторых, метод, который я не рекомендую, но очень интересный для ознакомления. Его я привёл в приложении.
Удачи :)

Приложение:

Ответ отправлен: 25.01.2004, 15:56
Отправитель: Strory


Отвечает sir henry

Приветствую Вас, Andrei!
s: string;
c: char;
i: integer;
w: word;
Строка (символ) -> Integer(или Real):
Val(s, i, w);
w - это код ошибки, если она возникнет.

Ответ отправлен: 26.01.2004, 04:47
Отправитель: sir henry



Форма отправки вопроса

Внимание!
Мы рекомендуем открывать рассылку в программе Internet Explorer 5.0+ или отправлять вопросы с сайта по адресу: http://rusfaq.ru/cgi-bin/Message.cgi.

(C) 2002-2003 Команда RusFAQ.ru.

 Персональные данные

Ваше имя:

Ваш e-mail:

Опубликовать мой e-mail в рассылке


 Вопрос и дополнение

Ваш вопрос:


Приложение (если необходимо):


Получить ответов:


 Выбор рассылки

Программисту
Assembler (23)
C / C++ (17)
Perl (3)
Builder / Delphi (17)
Pascal (17)
Basic / VBA (5)
Java / JavaScript (4)
PHP (14)
Криптография (5)
WinAPI (10)
Радиоэлектроника (4)
Пользователю
Windows 95/98/Me (40)
Windows NT/2000/XP (57)
"Железо" (31)
Поиск информации (19)
Администратору
Windows NT/2000/XP (30)
Linux / Unix (10)
Юристу
Гражданское право (17)
Семейное право (11)
Трудовое право (13)
КоАП (12)

Отправить вопрос всем экспертам выбранной рассылки.




Задать вопрос | Регистрация эксперта | Поиск в базе | Чат | Форумы | Новости
Проект экспертов RusFAQ.ru | Фотоальбом | Virus.RusFAQ.ru | Администрирование
Профессиональная WEB-Студия B.I.T.


Яндекс цитирования
© 2001-2004 Россия, Москва. Авторское право: Калашников О.А.

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу

В избранное