Ликбез по потоковому вводу выводу.
Первому курсу читать обязательно. Пусть во входном файле (input.txt) хранятся три числа a,b,c. По одному в каждой строке.
Написать программу, котоаря бы получала на входе этот файл, и выдавала бы в другой файл (например output.txt)
максимальное из трех чисел.
Вот программа
Подсветка синтаксиса языка pascal
var
a,b,c:integer;
begin
readln(a); readln(b); readln(c);
if(a>b) then
begin
if(a>c) then
begin
writeln(a);
end
else
begin
writeln(c);
end;
end else
begin
if(b>c) then
begin
writeln(b);
end
else
begin
writeln(c);
end;
end
end.
Пусть программа называется prog.pas. Откомпилируем ее командой
- Код: Выделить всё
fpc prog.pas
.
Получим исполнительный модуль. В Windows это будет prog.exe.
Для проверки этого модуля заготовим текстовый файл. Содержащий три числа по одному в каждой строке.
Пусть файл называется input.txt.
Выполним следующую команду
- Код: Выделить всё
prog.exe <input.txt >output.txt
В файле output.txt мы получим результат - максимальное из трех чисел.
P.S.
Может возникнуть вопрос. А что, если числа будут стоять не по одному в каждой строке, а в одной строке через пробел.
Например так
- Код: Выделить всё
3 4 88
тогда в программе вместо строки
- Код: Выделить всё
readln(a); readln(b); readln(c);
у вас будет строка
- Код: Выделить всё
readln(a,b,c);