Похожие презентации:
Условный оператор в языке Паскаль
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;