Пример файлы
Сумма и произведение
Входной файл: input.txt
Выходной файл: output.txt
Даны два целых числа А и В. Найти их сумму и произведение.
Входные данные:
В первой строке входного файла содержится единственное число А, (0<А<=32000).
Во второй строке входного файла содержится единственное число В, (0<В<=32000).
Выходные данные:
В единственную строку выходного файла вывести через пробел сумму и произведение этих чисел.
Примеры:
| № |
input.txt |
output.txt |
| 1 |
1
2 |
3 2 |
| 2 |
5
7 |
12 35 |
Решение:
Program Sum_Pr;
Var A, B, C, D: longint;
// описываем файловые переменные
f1, f2: text;
Begin
// связываем переменную f1 с файлом input.txt
Assign(f1, 'input.txt');
// открываем файл связанный с f1 для чтения
Reset(f1);
// связываем переменную f2 с файлом output.txt
Assign(f2, 'output.txt');
// открываем файл связанный с f2 для записи
Rewrite(f2);
// считываем переменную А с первой строки
// и переходим но следующую строку
ReadLn(f1, A);
// считываем переменную В
ReadLn(f1, B);
C := A + B;
D := A * B;
// выводим результат в файл, связанный с f2
Write(f2, C, ' ', D);
// закрываем файл связанный с f1
Close(f1);
// закрываем файл связанный с f2
Close(f2);
End.
|
