Паскаль вообще не дается, надо сдать 3 лабораторные работы, а то не получу допуск к модулю.
Задание1.
Создать динамические структуры ds1 и ds2, выполнить над ними операцию op, после чего освободить память для указанных структур в порядке, обратном выделению. На экран вывести: размер ds1, ds1^, ds2, ds2^, значения вводимых операндов и результат операции. Варианты заданий представлены в следующей таблице:
ds1 shortint.
ds2 shortint .
op деление.
задание 2.
Выполнить обработку массива с использованием указателей.
Дано: одномерный массив, какой сложен из 10 элементов целого типа.
Найти: суму чисел массива, отъемных от 8.
Задание 3.
Найдите сумму квадратов неотрицательных элементов в заданном целочисленном одномер¬ном массиве (данный массив не имеет ограничений)
Я буду искренне благодарен.
ример 3-го задания
program aaaa;
const = 10;
var array sum[a*1],(a>0) of real; sum: real; i : integer;
begin
writeln ('vvedite kvadrat ne otrecatelnix elementov');
for:= 1 to n do
readln (a[1]);
writeln;
write ('vvedite 4iclo v 3adanom masive, sum = ');
readln (sum);
sum:= (не имею понятия как правильно понять что требует найти в задаче, точнее формулу)
for i:=1 to n do
if a [1] = sum then;
writeln ('takogo 4icla v masive nety');
end.
-- 16.12.2012, 14:31 --
пример 2-го
program 3ad_2;
const n=10;
var
a:array [1..n] of integer; i,s integer;
begin
for i:=1 to n do
writeln ('vvedite nomer elementa masiva ',i,':');
readln (a[i]);
end;
s:= 8
for i:=1 to n do begin
if a[i] mod 0=8 then s:=s/a[i];
end;
writeln ('oroizvidenix elementov kratnux vosmi ',s. ' . ');
readln;
end.
