Program LABA2_RI;
uses CRT;
var f,f1:text;
c,sum,Sx:real;
n,p,i:byte;
Procedure MENU(var p:byte);
var i:byte;
Begin
writeln('MENU');
writeln('1.Vvod dannih');
writeln('2.Obrabotka dannih');
writeln('3.Vivod rezultatov');
writeln('4.Vihod');
writeln;
writeln('Vash vibor -');
readln(p);
writeln;
End;
Procedure Summa(var n:byte; var sum:real); {Їа®жҐ¤га д®а¬Ёа®ў *Ёп д ©« }
var i:byte;
Begin
sum:=0;
for i:=1 to n do
begin
readln©;
append(f);
write(f,c);
sum:=sum+c;
end;
End;
Begin
clrscr;
assign(f,'symbol3');
reset(f);
assign(f1,'Budushiy fayl');
rewrite(f1);
clrscr;
while not eof(f) do begin
readln (f,c);
writeln(f1,c);
end;
Begin
repeat
MENU(p);
Begin
clrscr;
case p of
1:begin
writeln('Vvod dannih');
write('Vvedite kolichestvo elementov=');
readln(n);
{ Summa(n,sum);}
end;
2:begin
writeln('Obrabotka dannih');
Summa(n,sum);
end;
3:begin
writeln('sum=',sum:5:2);
write(f1,sum);
writeln('Kopiya fayla:');
writeln('sum=',sum:5:2);
end;
4:begin
writeln('Vihod');
end;
End;
End;
until
p=4;
close(f);
close(f1);
readln;
end;
End.
Мне препод. говорит, что Я в файл ничё не записываю.Просмотрел оба файла. В первом файле выводятся цифры которые мы ввели) во втором результат, т.е. сумма)Может нахождение суммы для текстовых данных по другому осуществляется???