Составьте блок схему и программе pascal abc для вычисления площади трапеции емли известны высота и средняя линия рекомендуемый вид экрана во время работы снизу

начнём с того,что s трапеции-это 1/2 a*h (1/2 основания на высоту).

теперь,с этими знаниями,переходим в pascal abc.net.

начинаем с названия программы.

program pltrap; (pltrap-это сокращенно площадь трапеции.если хочешь,можешь написать за место этого то,что хочешь ты).

задаем переменные.

var a,b,c: real; (а-это высота,b-это средняя линия,с-сама площадь трапеции. real-тип переменных чисел.real-значит число может быть как целым,так и не целым).

begin - (начало решения).

возьмем наши переменные,которые будем записывать в строку.

readln(a); - высота.

readln(b); - основание.

c: =0.5*a*b - это наша формула для нахождении площади.1/2-это 0,5.в паскале нужно писать в целых числах вместо запятой точку.

writeln(c); - это то,что нам надо найти,то,что высветится,как ответ,в окне вывода.в нашем случае-это площадь.

end. - конец программы (на конце ставим точку).

итак,что у нас получилось:

program pltrap;

var a,b,c: real;

begin

readln(a);

readln(b);

c: =0.5*a*b;

writeln(c)

end.

теперь пишем в окно ввода числа.

первое число-это a (высота),потому что мы ее задали первой в команде readln(a);

потом-b (основание).

и получаем,чему будет равна площадь.например.пишем числа:

10

2

s=1/2*a*c=0,5*10*2=10- это число выдаст паскаль.

не забывай про ;

если будут вопросы-пиши мне.

//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.

Лишние словосочетание выделено жирным шрифтом :

а. Формирование у пользователей компьютера навыков грамотной постановки задач, возникающих в практической деятельности, для их решения с компьютера.

б. Формирование у пользователей компьютера навыков использования основных типов прикладных программ общего назначения для решения с их практических задач и понимания основных принципов, лежащих в основе этих систем.

в. Формирование у пользователей компьютера навыков печати десятипалым методом.

г. Формирование у пользователей компьютера умения грамотно интерпретировать результаты решения практических задач с компьютеров и применять эти результаты в практической деятельности.