Лин+ветв вар 1-2

26_11
Контрольная работа №1 Условный оператор

1. В тетради написать дату и тему �Контрольная работа №1 Условный оператор�
2. Внимательно прочитайте два варианта. Второй вариант рекомендую тем, кому хоть как-то интересно программирование и Паскаль, но оба варианта – на �5�.
3. ВАР 1: �5�: решены все 6 задач с несуществ. погрешностями
�4�: решены все линейные и две с ветвлением (как минимум)
4. Фото – в течение 26_11 до 22:00

1
Составить программы:
1. Вычислить площадь квадратной рамки серого цвета (сторона большего квадрата а, меньшего – b)

2.. Автомобиль проехал s км со скоростью v км/ч. Сколько часов t1 он был в пути. Сколько это минут t2?
3. Составить программу вычисления z =
4. Дано число. Если оно положительно, то извлечь из него квадратный корень, иначе возвести его в квадрат
5 . Дано два числа. Если их произведение отрицательно, то вывести слово �отрицательно�.
6 . Дано два числа. Возвести в куб большее из двух чисел.




2 *
Составить программы:
1. Переместить значения переменных a, b, c, d в соответствии с рис.


2. Найти площадь треугольника со сторонами a, b, c



Площадь круга s = ( r 2 , в Паскале есть функция pi ( (

! Для решения задач 4-6 см справку ниже
4. Дано два числа. Если модуль их суммы больше 5,5, то найти их среднее арифметическое, иначе – их произведение.

5. Дано два числа в переменных a, b. Если они не равны, то
поменять значения переменных местами.
Пример: a = 3, b = 4
Вывод: a = 4, b = 3

6. Найти большее и меньшее из двух чисел a, b.


Справка
Если в качестве оператора1 в ветке then или оператора2 в ветке else должна выполниться серия операторов, то они объединяются в операторные скобки begin-end, например:
var
x,y,z : real;beginwriteln('x= y= ');readln(x,y);if (y<>0) then
begin
z:=x/y;
writeln('z=’, z);
end
else writeln( ' нет решения');

end.

Операторные
скобки