Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения - Turbo Pascal
Формулировка задачи:
Каждая строка текстового файла f содержит название фирмы, название товара и цену в евро. Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения. Результаты записать в новый текстовый файл.
Решение задачи: «Перечислить цены в рублях по текущему курсу и дописать к строкам полученные значения»
textual
Листинг программы
var f,g:text;
s:string;
c,k:real;
i:integer;
begin
assign(f,'1.txt'); //файл в папке с программой
reset(f);
assign(g,'2.txt'); //получим овый там же
rewrite(g);
k:=80.25; //курс
while not eof(f) do
begin
readln(f,s);
write(g,s);
while pos(' ',s)>0 do
delete(s,1,pos(' ',s));
val(s,c,i);
c:=c*k;
writeln(g,' ',c:0:2);
end;
close(f);
close(g);
write('Цены пересчитаны и записаны в файл 2.txt');
readln;
end.
Объяснение кода листинга программы
- Создаются переменные f, g, s, c, k, i, которые будут использоваться в программе.
- Устанавливается курс валюты (k := 80.25).
- Открывается файл '1.txt' для чтения и присваивается ему переменной f.
- Открывается файл '2.txt' для записи и присваивается ему переменной g.
- Читается строка из файла '1.txt' и записывается в файл '2.txt' с помощью функции write.
- Если в строке есть пробелы, то они удаляются с помощью функции delete.
- Строка преобразуется в число с плавающей точкой и записывается в переменную c.
- Число умножается на курс валюты (c := c * k).
- Полученное значение записывается в файл '2.txt' с помощью функции write.
- Закрываются файлы f и g с помощью функции close.
- Выводится сообщение 'Цены пересчитаны и записаны в файл 2.txt'.
- Программа завершается с помощью функции readln.