Условный оператор в языке Паскаль

1.

Найдите ошибку и определите,
какую задачу решает блок-схема:
начало
s,t
x
v:=s/t
vу
конец

2.

Исправьте ошибки и определите, что будет
выведено на экран после выполнения программы,
если с клавиатуры введены числа 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.

Исправьте ошибки и определите, что будет
выведено на экран после выполнения программы,
если с клавиатуры введены числа 2,3?
Program Task_1_13;
Var a,b: integer;
Begin;
Cls;
Writeln(‘Введите три целых числа’);
Readln(a,b,a)
c:=a+b;
Readln (‘a+b=',c);
Readln;
end

4.

Исправьте ошибки и определите, что будет
выведено на экран после выполнения программы,
если с клавиатуры введены числа 2,3?
Program Task_1_13;
Var a,b: integer;
Begin
Cls;
Writeln(‘Введите три целых числа’);
Readln(a,b,a)
c:=a+b;
Readln (‘a+b=',c);
Readln;
end

5.

Исправьте ошибки и определите, что будет
выведено на экран после выполнения программы,
если с клавиатуры введены числа 2,3?
Program Task_1_13;
Var a,b: integer;
Begin
Cls;
Writeln(‘Введите три целых числа’);
Readln(a,b);
c:=a+b;
Readln (‘a+b=',c);
Readln;
end

6.

Исправьте ошибки и определите, что будет
выведено на экран после выполнения программы,
если с клавиатуры введены числа 2,3?
Program Task_1_13;
Var a,b: integer;
Begin
Cls;
Writeln(‘Введите три целых числа’);
Readln(a,b);
c:=a+b;
Readln (‘a+b=',c);
Readln;
end.

7.

Условный оператор
в языке Паскаль

8.

В соревнованиях по
конькобежному спорту
на S метров
участвуют два спортсмена.
Время, потраченное на
дистанцию спортсменами равно
t1 и t2 соответственно. Кто из
спортсменов придет к финишу
первым?

9.

Тест
S t1 t2 v1 v2
12 4 3 4 3
12 2 2 6 6
начало
Введите S, t1, t2
V1:=S/t1
V2:=S/t2
если
то
V1>V2
Победил 1й спортсмен
если
V2>V1
то
Победил 2й спортсмен
если
то
V1=V2
Победила дружба
конец

10.

Program exp2;
Var s,t1,t2,v1,v2: real;
Begin
Cls;
Writeln(‘Введите s,t1,t2’);
Readln(s,t1,t2);
V1:=S/t1;
V2:=S/t2;
If v1>v2 then
Writeln(‘победил 1й спортсмен’);
If v2>v1 then
Writeln(‘победил 2й спортсмен’);
If v1=v2 then Writeln(‘победила дружба’);
Readln;
end.

11.

Домашнее задание:
§4.5.1
№6

12.

Оператор

13.

Какое значение будет иметь переменная d
после выполнения следующих операторов:
1. a:=3;
b:=2;
if a>b then d:=a
else d:=b;
2. a:=2;
b:=3;
d:=4;
If a>b then d:=a
else
begin
d:=b;
d:=d+a;
end;
d:=d*2;
3. d:=0;
a:=1;
b:=1;
if a>0 then
if b>0 then d:=1 else d:=2;
4. a:=2;
b:=3;
d:=4;
if a>b then d:=a
else
begin
d:=b;
d:=d+a;
end;
d:=d*2;