Задать вопрос!

Задать вопрос!

Все категории

keitilling [224]

1 год назад

15

Создать процедуру рисующую параллелограмм в Pascal ABC

Информатика

1 ответ:

Free1 год назад

0 0

Uses drawman;
begin
field(20,20);
topoint(4,6);
pendown;
topoint(6,13);
topoint(16,13);
topoint(14,6);
topoint(4,6);
end.

Читайте также

Плиииззззззззззююююююю

tcinik

Alt вродебы..............................

0 0

4 года назад

Чем периферийные устройства отличаются от основных?

SANTANA2017 [681]

Периферийные устройства-с их помощью можно вводить или выводить информацию из компьютера.
Основные устройства-компоненты компьютера(процессор).

0 0

4 года назад

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

Джага [69]

Program qq;
uses crt;
var
x1,x2,y1,y2,a,b,S,P:integer;
Begin
Readln(x1,y1,x2,y2);
a:=x2-x1;
b:=y2-y1;
S:=a*b;
P:=(a+b)*2;
Writeln(S,P);
Readkey;
End.

0 0

4 года назад

Даны 2 двузначных целых числа X и y.Найти D=MAX{x+y;y-x}+3,E=MIN{x^2+y^2;y^2+x*y}-4.если D<E,то к переменной D прибавить перв

васюня

Var x,y,k,err:integer;s:string;d,e:real;
begin
err:=0;
read (x,y);
d:=max (x+y,y-x) + 3;
e:=min (sqr(x)+sqr(y),sqr(y)+x*y) - 4;
str (e,s);
k:=length(s);
val (s,e,err);
if (d<e) then
begin
d:=d+(e div (10*(k-1)));
end else
begin
d:=power (d,1/(e div (10*(k-2))));
end;
writeln (d);
end.

0 0

4 года назад

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

Евгений Жуковский [2]

Ответ:

program Example;

var

a, b: Double;

begin

Write ('Введите длину и ширину участка: ');

ReadLn (a, b);

WriteLn ('Площадь = ', (a + b) * 2 :10 :2);

ReadLn;

end.

0 0

4 года назад