использовать Рисователь
алг
нач
в точку(150,200)
перо(3,черный)
окружность(150,200,50)
перо(3,черный)
окружность(235,170,38)
окружность(225,245,38)
окружность(160,290,38)
окружность(90,265,38)
окружность(60,195,38)
окружность(100,130,38)
окружность(175,115,38)
кисть(желтый)
залить(150,200)
кисть(красный)
залить(50,200)
кисть(оранжевый)
залить(100,100)
кисть(желтый)
залить(150,110)
кисть(зеленый)
залить(250,150)
кисть(голубой)
залить(200,250)
кисть(синий)
залить(150,270)
кисть(фиолетовый)
залить(100,250)
кон
1) Автомобиль приехал по трассе S километров за t часов. Написать программу, которая определит среднюю скорость его движения. S, t - веществ. числа, вводятся с клавиатуры. Протокол работы программы должен выглядеть примерно так:
ВВедите расстояние(км.)-120
Введите время движения(час.)-1.2
Автомобиль двигался со скоростью 100 км/час[/B]
2)Напишите программу для обмена значениями двух целых переменных. Дополнительные переменные использовать нельзя. Если вы используете переменные X, Y, то других переменных в программе быть не должно.. протокол программы должен быть таким:
ВВедите два целых числа: 3 -5
на входе: Х=3, У=-5
на выходе Х=-5 ,У=3
3) Напишите программу циклического сдвига трех целых переменных по схеме X-> Y, Y-> Z, Z-> X..
В программе может быть использована одна дополнительная переменная. Протокол работы :
Введите три целых числа: 3 -5 7
На входе х=3, у=-5, z=7
На выходе х=7, у=3, z=-5
var a,h,b,s:real;
begin
write('Введите длину боковой стороны = ');
readln(a);
write('Введите высоту = ');
readln(h);
b:=sqrt(a*a-h*h); // половина основания треугольника
s:=b*h;
writeln('Площадь треугольника = ',s:6:2);
end.
2)
var L,V1,V2,t:real;
begin
write('Введите расстояние между пешеходами (км) = ');
readln(L);
writeln('Введите скорости пешеходов через пробел (км/ч)');
readln(V1,V2);
t:=L/(V1+V2);
writeln('Пешеходы встретятся через ',t ,' час');
end.