Хепл «Объекты алгоритмов. Математические выражения» 1. Как описывается целый тип данных?
2. Вычислите значения выражений:
5 mod 2=
40 div 6=
500 mod 10=
80 div 6=
23 mod 5=
37 div 10=
3. Найдите значение выражения A mod (B div C + 5) – 10
при А=100, В=20, С=3
4. Вычислите значения выражений:
Trunk (10.123)=
Round (10.123)=
5. Переведите с алгоритмического языка в математические выражения:
Sqrt (a+b)-Sqrt (a-b)
6. Переведите математические выражения на алгоритмический язык:

Программа, которая использует два массива

var 
c, a: array[1..20] of integer; 
i: integer;
begin 
write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 1 to 20 do   begin   
a[i] := c[20 - i + 1];   
write(a[i], ' '); 
end;  
end.

ИЛИ  Программа не использующая два массива, а просто переворачивающая первый

var 
c: array[1..20] of integer; 
i: integer;
begin  write('Первый массив '); 
for i := 1 to 20 do   begin   
c[i] := i * (-5);   
write(c[i], ' '); 
end; 
writeln; 
write('Преобразованный массив '); 
for i := 20 downto 1 do  write(c[i], ' '); 
end.

Обе программы работают!

1)
var a,b,c,d,e,f,r,x,y,z:real;
begin
writeln('d, e, f:');
readln(d,e,f);
write('r = ');
readln(r);
x:=d*pi/180;
y:=e*pi/180;
z:=f*pi/180;
a:=2*r*sin(x);
b:=2*r*sin(y);
c:=2*r*sin(z);
writeln('a = ',a:5:2,' b = ',b:5:2,' c = ',c:5:2);
end.

Пример:
d, e, f:
90 60 30
r = 2.5
a =  5.00 b =  4.33 c =  2.50

2)
var a,b,c,d:integer;
begin
writeln('a, b, c, d:');
readln(a,b,c,d);
if a+c>150
 then writeln('a+c  = ',a+c,' a = ',a,' b = ',b,' c = ',c,' d = ',d);
end.

Пример:
a, b, c, d:
72 18 94 25
a+c  = 166 a = 72 b = 18 c = 94 d = 25