|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.05.2010, 21:43 | #1 |
Пользователь
Регистрация: 19.01.2010
Сообщений: 19
|
Процедуры: Ввод(text)-Вычисление(string)-Вывод(text)
Обращаюсь за помошью, т.к. сама уже давно не могу понять в чём дело.
Задание: С массивами STRING, процедурами и текстовыми файлами. Дан список вещей (10 предметов) в виде: НАИМЕНОВАНИЕ ЦЕНА %ИЗНОСА Данные в одной строке отделяются друг от друга пробелами. Используя 3-й столбец(%ИЗНОСА), сформировать продажную комиссионную цену и результаты вывести в виде: Новая цена вещей Стол - 1000 руб и т.д. Формат входного файла: CHAIR 1360 33 TABLE 1590 23 COMPUTER 30260 2 MOUSE 250 12 BOOK 200 79 TELEPHONE 2500 40 CUP 150 25 HEADPHONES 2000 33 PEN 10 10 KEYBOARD 420 7 Код:
Не судите строго, знаю, что нужно учиться) Последний раз редактировалось FYBVFPFYBC; 06.05.2010 в 01:34. |
06.05.2010, 13:10 | #2 |
Форумчанин
Регистрация: 04.05.2010
Сообщений: 495
|
Вот так процедура чтения будет работать.
И еще. когда ее вызываешь - параметры перепутаны местами. readin(inpf,prc,use,nme); Сравни вызов и объявление! Могу и дальше помочь. Только скажи в чем это написано. В смысле, не язык конечно, понятно что паскаль. А оболочка какая. вроде не Turbo Pascal 7.0. Я его использовал, неудобно... procedure readin(var inpf: text; var nme,prc,use: string); var x: integer; next: boolean; Ch : Char; begin nme := ''; prc := ''; use := ''; {цикл с чтением наименования} repeat begin read(inpf,Ch); if ord(Ch)=32 then break else nme := nme + Ch; end; until False; {цикл с чтением цены} repeat begin read(inpf,Ch); if ord(Ch)=32 then break else prc := prc + Ch; end; until False; {цикл с чтением процента износа} while not eoln(inpf) do begin read(inpf,Ch); use := use + Ch; end; readln(inpf); end;
Нажми на весы, поставь +
Для благодарностей : WebMoney WMR R252732729948 |
06.05.2010, 23:15 | #3 |
Пользователь
Регистрация: 19.01.2010
Сообщений: 19
|
Z1000000, большое спасибо вам! Буквально спасли меня
Это получилось дальше: Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Incompatible types: 'String' and 'Text' | eshik | Помощь студентам | 3 | 21.04.2010 00:41 |
из string в text | lanus | Помощь студентам | 6 | 13.03.2010 09:16 |
File To Text | HTL | Общие вопросы Delphi | 11 | 24.01.2010 11:28 |
text to jpg | HTL | Мультимедиа в Delphi | 6 | 08.01.2010 04:04 |
Несовмешение 'String' and 'Text' (Delphi) | rusell | Помощь студентам | 2 | 30.03.2009 22:27 |