Написать программу поскаля, нахождение площади квадрата, значение сторон вводить с клавиатуры

program qq; var a,s: integer; beginwriteln('введите сторону квадрата'); read(a); s: =a*a; writeln('площадь квадрата =',s); end.

var a: real;

begin

  readln(a); //вводим сторону квадрата

  writeln('площадь квадрата равна: ', sqr(a)); //выводится площадь квадрата

end.

1)

uses crt, graphabc; var a,c: real; n,i,r,g,b: integer; begincircle(100,100,80); read(n); a: =0; c: =360; r: =5; g: =5; b: =5; for i: =1 to n do beginpie(100,100,80,a,c); floodfill(145,97,rgb(r,g,b)); c: =c-360/n; r: =r+30; g: =g+10; b: =b+45; end; end.

 

2)

uses crt, graphabc; var n,i,x1,y1,x2,y2: integer; beginread(n); x1: =350; y1: =10; x2: =360; y2: =15; for i: =1 to n do beginrandomize; setbrushcolor(rgb(random(256),random(256),random(; rectangle(x1,y1,x2,y2); fillrect(x1,y1,x2,y2); x1: =x1-5*i; y1: =y2-1; x2: =x2+5*i; y2: =y2+i*5; end; end.

 

3)

var a,min,max,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin: =a; max: =a; end else beginif a< min then min: =a; if a> max then max: =a; end; f: =f+1; end; until a=0; writeln(max*min); end.

 

4)

var a,max1,max2,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmax1: =a; end elseif f=1 then beginif a< max1 then max2: =a else beginmax2: =max1; max1: =a; end; end else beginif a> max1 then max1: =a; if (a> max2) and (a< =max1) then max2: =a; end; f: =f+1; end; until a=0; writeln(max1+max2); end.

 

5)

var a,min1,min2,min3,f: integer; beginf: =0; repeatread(a); if a< > 0 then beginif f=0 then beginmin1: =a; end elseif f=1 then beginif a> min1 then min2: =a else beginmin2: =min1; min1: =a; end; end elseif f=2 then beginif (a> min1) and (a> min2) then min3: =a else if (a> =min1) and (a< =min2) then beginmin3: =min2; min2: =a; end else beginmin3: =min2; min2: =min1; min1: =a; end; end else beginif a< min1 then beginmin3: =min2; min2: =min1; min1: =a; end elseif (a< min2) and (a> =min1) then beginmin3: =min2; min2: =a; end elseif (a> =min2) and(a< min3) then min3: =a; end; f: =f+1; end; until a=0; writeln((min1+min2+min3)/3: 3: 3); end.

вопросы:

1.способ описания алгоритма

2.свойство алгоритма, которое определяет возможность завершения процесса 3.сообщение, сведение, знания, умения

4.объект, умеющий выполнять определенный набор действий

5.строго определенная последовательность действий при решении

6.способ описания алгоритма

7.синоним слову алгоритм

8устройство обработки информации

9.кисть, карандаш, как эти объекты называются в графическом редакторе? 10.графическое изображение

11.отдельное действие алгоритма

ответы:

1.графический

2.конечность

3.информация

4.исполнитель

5.алгоритм

6.программный

7.план

8.компьютер

9.инструмент

10.рисунок

11.шаг