Предмет: Информатика,
автор: kuzinakat
написать программу на языке паскаль (разветвляющийся алгоритм):
1) F=x2-3 (икс в квадрате минус три), x2=x*x (x в квадрате равен x умножить на x)
2) S=1/2ab (одна вторая а б)
3) С=a2-b2 (а в квадрате минус б в квадрате)
Ответы
Автор ответа:
0
var x,f,s,c,a,b:real;
begin
write('X = ');
readln(x);
write('A = ');
readln(a);
write('B = ');
readln(b);
f:=x*x-3;
s:=a*b/2;
c:=a*a-b*b;
writeln('F=',f:3:2,' S=',s:3:2,' C=',c:3:2);
end.
begin
write('X = ');
readln(x);
write('A = ');
readln(a);
write('B = ');
readln(b);
f:=x*x-3;
s:=a*b/2;
c:=a*a-b*b;
writeln('F=',f:3:2,' S=',s:3:2,' C=',c:3:2);
end.
Автор ответа:
0
если что то непонятно, обращаейтсь
Автор ответа:
0
1) Не разветвление)
program xizt;
uses crt;
var x,f:real;
begin
writeln ('введите х');
readln (x);
f:=sqr(x)-3;
writeln (f);
end.
2) program xizt;
uses crt;
var a,b,s:real;
begin
writeln ('введите a,b через пробел');
readln (a,b);
s:=1/2*a*b
writeln (s);
end.
3) program xizt;
uses crt;
var a,b,c:real;
begin
writeln ('введите a,b через');
readln (a,b);
c:=sqr(a)-sqr(b);
writeln (c);
end.
program xizt;
uses crt;
var x,f:real;
begin
writeln ('введите х');
readln (x);
f:=sqr(x)-3;
writeln (f);
end.
2) program xizt;
uses crt;
var a,b,s:real;
begin
writeln ('введите a,b через пробел');
readln (a,b);
s:=1/2*a*b
writeln (s);
end.
3) program xizt;
uses crt;
var a,b,c:real;
begin
writeln ('введите a,b через');
readln (a,b);
c:=sqr(a)-sqr(b);
writeln (c);
end.
Похожие вопросы
Предмет: Литература,
автор: Аноним
Предмет: Геометрия,
автор: pashkahlebov
Предмет: Математика,
автор: Luvronok
Предмет: Алгебра,
автор: StarsTrino2814
Предмет: География,
автор: basta28