Program Irina09Gross1; const n=10; var a,b,c,p,s: real; begin writeln('*** Alphaues is thinking... ***'); writeln('*** OK! ***'); writeln(); writeln('Введите стороны треугольника'); write('Введите а'); readln(a); write('Введите b'); readln(b); write('Введите c'); readln(c); p:=(a+b+C)/2; S := sqrt(p*(p-a)*(p-b)*(p-c)); writeln('Площадь треугольника равна ',s); end.
2.
Program Irina09Gross2; const n=10; var a,b,h,v,s,r: real; begin writeln('*** Alphaues is thinking... ***'); writeln('*** OK! ***'); writeln(); write('Введите длину основания '); readln(a); write('Введите ширину основания '); readln(b); write('Введите высоту параллелепипеда '); readln(h); s := 2*(a*b+b*h+h*a); v := a*b*h; r := 4*(a+b+h); writeln('Объём равен ',v); writeln('Площадь полной поверхности равна ',s); writeln('Сумма рёбер равна ',r); end.
Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.
Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.
Блок-схемы - во вложениях
1.
Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
writeln('Введите стороны треугольника');
write('Введите а');
readln(a);
write('Введите b');
readln(b);
write('Введите c');
readln(c);
p:=(a+b+C)/2;
S := sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s);
end.
2.
Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('*** OK! ***');
writeln();
write('Введите длину основания ');
readln(a);
write('Введите ширину основания ');
readln(b);
write('Введите высоту параллелепипеда ');
readln(h);
s := 2*(a*b+b*h+h*a);
v := a*b*h;
r := 4*(a+b+h);
writeln('Объём равен ',v);
writeln('Площадь полной поверхности равна ',s);
writeln('Сумма рёбер равна ',r);
end.
Компьютерные технологии сегодня широко используются во всех областях человеческой деятельности. Знание предмета и основ информатики имеет большое значение в наши дни. Изучить информатику, в принципе, сможет любой желающий. Просто у кого-то это займёт меньше времени и сил, а у кого-то больше.
Поставьте для себя конкретные цели, которых вы хотите достичь, изучая информатику. Прежде всего, сделайте акцент на основные понятия и процессы. Когда вы оссвоите азы, обучение не будет требовать больших усилий.