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

There is still time to download: 30 sec.



Thank you for downloading from us :)

If anything:

  • Share this document:
  • Document found in the public.
  • Downloading this document for you is completely free.
  • If your rights are violated, please contact us.
Type of: doc
Founded: 25.11.2020
Added: 09.01.2021
Size: 0.07 Мб

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.

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



Report abuse

All documents on the website are taken from public sources and posted by users. We offer our deepest apologies if your document has been published without your consent.