Контрольная работа по теме «Введение в программирование»

Контрольная работа по теме
«Введение в программирование»
Вариант 1
1. Расположите в правильном порядке номера строк программы. Запишите с учетом формата, что данная программа выведет на экран при вводе числа 4.

Вычисление площади прямоугольного треугольника, имеющего равные катеты, по заданному катету.

1) s:=a*a/2;	5) Var a:integer; s:Real;
2) End.	6) Readln(a);
3) Program Treug;	7) Writeln(’s=’,s:6:2);
4) Writeln(‘Введите катет’:40);	8) Begin

2. Вычислите значение в линейных и разветвляющихся алгоритмах

А) а := 4 b := 4 а := 2*а + 3*b b := a/2*b	Б) a := 30; b := 6; a := a / 2 * b; if a > b then c := a - 3 * b else c := a + 3 * b;	В) a := 3 + 8*4; b := (a div 10) + 14; a := (b mod 10) + 2; c := a + b;
b - ?	c -?	c -?

3. Вычислите значение в циклических алгоритмах

А) Var s,k: integer; Begin s := 0; for k := 3 to 8 do s := s + 9; writeln(s); End.

Б) Var k, i: integer; Begin k := 4; For i := 1 to 3 do k := i + 2*k; Writeln(k); End.

В) var n, s: integer; begin n : = 30; s : = 25; while s < 425 do begin s : = s + 40; n : = n + 10 end; write(n);end.

4. Дан текст программы с синтаксическими ошибками и ошибками, связанными с преобразованием типов числовых данных в операторах присваивания. Перепишите программу, исправляя встретившиеся синтаксические ошибки. Места исправлений подчеркните:

Programm Test;

War: a,b Integer, c Real,

Bigin

Writln(‘Введите 2 числа’);

Readln(‘a c’);

b:=a + c;

a:=a + 5;

c:=a/2;

a:=round(c);

b:=sqrt(a);

a:=b div a;

b:=b/5;

Writeln('a=’, a; 'b=’, b; 'c=’, c:6:2);

And.

5. Укажите, какие операторы присваивания из программы задания 4 не могут быть выполнены из-за несоответствия типов числовых данных: рядом с ошибочным оператором поставьте знак "минус", здесь же объясните причину несоответствия.
6. Переведите блок-схему на язык Pascal и результат запишите:

Дано основание треугольника и его высота, проведенная к основанию. Найти площадь этого треугольника: