Тестирование и отладка программного продукта.

[Proskurina]

2. Разработана программа, которая считывает числа из первого файла и записывает квадраты этих чисел во второй файл, а так же находит сумму квадратов данных чисел.


Program Primer2;
Var
x, I, s : Integer;
f1,f2: text;

begin
assign(f1,’test.txt’);
assign (f2,’res.txt’);
reset(f1);
rewrite(f2);
while not Eof(f) do begin
readln(f1, x);
s:=s+x;
writeln(f2,x*x);
end;
writeln (s);
close(f2);
End.

[Proskurina]

очень срочно!!!!! завтра зачёт!!!

[Proskurina]

ну кто нибудь прмогите!!!!!

[Proskurina]

ну кто нибудь помогите!!!!!

[s-andriano]

У тебя суммируются не квадраты, а сами числа.
Ну и синтаксическая ошибка есть - но ее все равно компилятор покажет.

[Proskurina]

какая синтаксическая ошибка? подскажите будьте добры.

[s-andriano]

Неописанная переменная.
Компилятору этот код скормить не пробовали?