Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Задание 1. Точка задается координатами x,y. Определить принадлежит ли она заштрихованной области.
Программный код.
program DZ12;
uses CRT;
var x,y,R:real;
begin
writeln('Введите x =');
read(x);
writeln('Введите y =');
read(y);
R:=sqrt(sqr(x)+sqr(y));
if (x<=1) and (x>=-1) and (y<=1) and (y>=-1) and (R<=1) and (R>=0) then
writeln('Точка принадлежит окружности')
else
writeln('Точка не принадлежит окружности');
delay(20000);
end.
Ход работы:
Задание 2.Найти максимальное из 3 заданных чисел.
Программный код.
program DZ2;
uses CRT;
var a,b,c:real;
begin
writeln('Введите число a=');
read(a);
writeln('Введите число b=');
read(b);
writeln('Введите число c=');
read(c);
if (a>b) and (a>c) then
writeln('Максимальное число a =',a)
else
begin
if (b>a) and (b>c) then
writeln('Максимальное число b =',b)
else
writeln('Максимальное число c =',c)
end;
delay(20000);
end.
Ход работы:
Задание 3. Каждые 4 часа амеба делится на 2 клетки. Найти сколько амеб будет через 16, 56 часов.
Программный код.
program DZ3;
uses CRT;
var i,f,n:integer;
begin
writeln('Введите кол-во часов =');
read(n);
f:=1;
n:=n div 4;
for i:=1 to n do
f:=f*2;
writeln('Амеб ',f);
delay(20000);
end.
Ход работы:
Задание 4. Составить таблицу перевода дюймов в сантиметры. Расстояние задать от 1 до 20 дюймов.
Программный код.
program DZ4;
uses CRT;
var i,n:integer;
begin
writeln('Введите кол-во СМ которые надо перевести =');
read(n);
writeln('Дюймы Сантиметры');
writeln('------------------------');
for i:=1 to n do
writeln(i,' ',i*2.54);
delay(20000);
end.
Ход работы: