Цитата:
Сообщение от Kosmos
1. Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл (выходной файл должен также содержать, фамилии, номер группы).
Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.
|
Поскольку Вы не указали формат вводимых чисел, будем считать, что Integer.
CONST
FileName:STRING='xxxx'; {Enter the real name of your file, including the path}
SurName:STRING='Ivanov'; {Enter your surname}
GroupNumber:STRING='555_a'; {Enter the real number of your group}
VAR
f:TEXT;
a:ARRAY[1..10, 1..2] of INTEGER;
m:ARRAY[1..10] of INTEGER;
i,j:INTEGER;
FUNCTION MAX(a,b:INTEGER):INTEGER;
BEGIN
IF a>b THEN MAX:=a ELSE MAX:=b;
END;
BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
FOR i:=1 TO 10 DO
BEGIN
FOR j:=1 TO 2 DO
BEGIN
Write('a[',i:2,', ',j:1,'] = '); ReadLn(a[i,j]);
END;
m[i]:=MAX(a[i,1],a[i,2]);
Writeln(f,i:2,m[i]:15);
END;
Writeln;
FOR i:=1 TO 10 DO
Writeln(i:2,m[i]:15);
Close(f);
ReadLn;
END.
Цитата:
Сообщение от Kosmos
2.Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл.
и задание: С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.
|
CONST
FileName:STRING='xxxx'; {Enter the real name of your file, including the path}
SurName:STRING='Ivanov'; {Enter your surname}
GroupNumber:STRING='555_a'; {Enter the real number of your group}
VAR
f:TEXT;
a,SUM,Num:INTEGER;
BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
SUM:=0;
Num:=0;
REPEAT
INC(Num);
Write('Enter the next number ');
Readln(a);
SUM:=SUM+a;
UNTIL SUM>100;
Writeln(f,Num:15);
Writeln(Num:15);
Close(f);
ReadLn;
END.