Question

Практическая работа №7

«Реализация алгоритмов ветвления в среде программирования».

Цель:Закрепить полученные знания по программированию алгоритмов ветвления на языке Паскаль.

Ход работы

1.Ответить на вопросы.

1.Компьютерная программа – это …

2.Величины нужны для …

3.Описать величину – это значит ..

4.Укажите значение величины S после выполнения следующих команд:

S:=7; S:=23; S:=S+6;

5.В программе использован оператор ветвления.

If x>=3 then writeln (‘Зачет’) else writeln (‘Незачет’);

Какое значение будет выведено на экран дисплея, если x=7.

6.В программе использован оператор ветвления.

If x<1000 then writeln (‘да’) else writeln (‘нет’);

Какое значение будет выведено на экран дисплея, если Х=70.

2. Выполнить задания:

1.Какое значение будет иметь переменная р после выполнения программы, если с клавиатуры введено число 7?

ProgramPrimer1;

vara, b, p: integer;

Begin

writeln (‘Введите a’);

readln (a);

if (a>=7)

then begin

b:=3;

p:=a*a+b*b;

end

Else begin

b:=5;

p:=(a+b)*(a+b);

end;

writeln (‘ p=’, p);

End.

2.В программе использован оператор ветвления.

If a>=b then

begin

c:=a;

a:=b;

b:=c;

end

else b:=1;

writeln (a,b);

Какое значение будет выведено на экран дисплея, если a=10, b=20?

3.Исправьте ошибки и определите, что будет выведено на экран после выполнения программы, если с клавиатуры введены числа 2,3?

Var a,b: integer;

Program 2Task_1_13;

Begin;

Cls;

Writeln(‘Введите три целых числа’);

Readln(a,b,a)

c:=a+b;

Readln (‘a+b='c);

Readln;

end

3. Вывод.

9bc4c0442ba55f3f7f71342aa10f9751.docx