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
Во-первых, не whill, а while. Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу. Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.
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
Во-вторых, цикл с предусловием(while) выполняется только тогда, когда его условие возвращает ложь. Если условие возвращает правду, цикл завершается. Бывает так, что при попытке первой итерации цикла условие уже возвращает правду. В этом случае цикл не будет выполнен ни разу.
Цикл с предусловием(repeat), наоборот, выполняется, пока условие возвращает правду и завершается ложью. Стоит заметить, что если цикл с предусловием проверяет своё условие перед итерацией, цикл с постусловием делает это после, а это значит, что последний выполнится хотя бы один раз.