Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Министерство образования Российской Федерации
Сибирского Государственного Технологического Университета
Факультет: Автоматизации и информационных технологий
Кафедра: Информационных технологий
Расчетная работа №35
По дисциплине «Алгоритмические языки и программирование»
Руководитель:
Якимов С.П.
(подпись)
Разработал:
Студент гр. 21-6
Прокопьев М.C.
(подпись)
Красноярск-2004.
Отчёт.
Вариант №8.
Задача № 136
Даны натуральное число n, действительные числа a1, ..., an. Вычислить:
з)
Текст программы:
program Z_136Z
type
PT = ^TT;
TT = record
data : real;
next : PT;
end;
var
A, S : PT;
I, N : word;
summ : real;
begin
summ:=0;
NEW(A);
S:=A;
writeln('vvedite n: ');
readln(N);
for i:=1 to N do
begin
write('vvedite a[',i,']: ');
readln(A^.data);
new(A^.next);
A:=A^.next;
end;
A^.next:=NIL;
A:=S;
repeat
summ:=summ+sqr(sqrt(abs(A^.data))-A^.data);
A:=A^.next;
until (A^.next=nil);
writeln('result=',summ:12:5);
readln;
end.