Вот решил как говорится на старости лет получить высшее. Учусь заочно. Но последнее посещение учебного заведения, то бишь школы, было 16 лет назад. Так вот уважаемые, прошу вашей помощи, так как с pascal не в ладах был ещё в школе.
Вот задания:
1)Пусть дано натуральное число n. Получите наименьшее число вида 2k (k - верхний индекс), превосходящее n.
2)Пусть даны целые числа а1, а2, ..., аn (1,2,n - нижний индекс) среди которых могут быть повторяющиеся. Составьте новый массив из чисел, взятых по одному из каждой группы равных членов данной последовательности
3) Пусть даны вещественные числа x1 (1- нижний индекс), ..., х8. Получите квадратную матрицу порядка 8, образованную по правилу:
В скобке (мартица)
х1 х2 ... х8
х1 х2 ... х8 ( всё во второй степени)
... ... ... ...
х1 х2 ... х8 ( всё в восьмой степени)
4) Пусть смешано V1 литров воды температуры t1 с V2 литрами воды температуры t2. Составьте программу вычесления обьема и температуры образованной смеси.
Пока эти
Заранее благодарю всех кто примет участие в помощи!
Ответ уже был дан Freeman (большое спасибо) на 3 задание, вот его решение
uses crt;
const n=8;
var
b:array[1..n,1..n] of double;
i,j:byte;
begin
clrscr;
randomize;
for i:=1 to n do a[1,i]:=random(100);{zapolnit 4islami}
for i:=2 to n do
for j:=1 to n do a[i,j]:=a[1,j]*a[i-1,j];{zapolnit stepenyami}
for i:=1 to n do begin
for j:1 to n do write(a[i,j],' ');
writeln
end;
readkey;
end.