Задачи по теме Организация ветвления на языке Паскаль урок для 9 класса Селиверстова Ольга Николаевна учитель информатики МБОУ СОШ 17 г.Саров Нижегородской. - презентация

1 Задачи по теме Организация ветвления на языке Паскаль урок для 9 класса Селиверстова Ольга Николаевна учитель информатики МБОУ СОШ 17 г.Саров Нижегородской области 2012 г.

2

3

4 if условие then оператор1 else оператор2; иначе то если

5 if условие then оператор1; если то

6

7 Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10.

8 Program 1; Uses crt; Var a:integer; BeginClrscr; Readln (a); If a>0 then a:=a-10 else a:=a+10; Writeln (a); Readkey;End.

9 Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

10 Program 2; Uses crt; Var a,b,d:integer; BeginClrscr; Readln (a,b); d:=a*b; If d

11 Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.

12 Program 3; Uses crt; Var a,b:integer; d:real; BeginClrscr; Readln (a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b; Writeln (d); Readkey;End. a - первое число b - второе число d – сумма,частное, произведение

13 Ввести два числа. Вычесть из большего меньшее.

14 Program 4; Uses crt; Var a,b,d:integer; BeginClrscr; Readln (a,b); If a>b then d:=a-b else d:=b-a; Writeln (d); Readkey;End. a - первое число b - второе число d – разность чисел

15 Ввести число. Если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5.

16 Program 5; Uses crt; Var a:real; BeginClrscr; Readln (a); If a

17 Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

18 Program 6; Uses crt; Var a,b:integer; S:real; BeginClrscr; Readln (a,b); S:=a+b; If S>100 then S:=S/2 else S:=S*2; Writeln (S); Readkey;End. a - первое число b - второе число S – сумма чисел

19 Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2,в противном случае уменьшить на 2.

20 Program 7; Uses crt; Var a,b,d,s:integer; BeginClrscr; Readln (a); b:= a div 10; d:= a mod 10; S:= b+d; If s mod 2=0 then a:=a+2 else a:=a-2; Writeln (d); Readkey;End. a - двузначное число b -первая цифра числа b -первая цифра числа d - вторая цифра числа S - сумма цифр числа

21 Составить программу, которая по трем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника.

22 Program 8; Uses crt; Var a,b,с:integer; BeginClrscr; Readln (a,b,c); If a>=b+c then Writeln (Нет) Else if b>=a+с then Writeln (Нет) Else if c>=a+b then Writeln (Нет) Else Writeln (Да); Readkey; End. a, b, c – длины сторон треугольника

23

24 1. Какое значение будет напечатано в результате работы программы: Program 1; Var a,b,x:integer; Begin a:=3; b:=-5; If a

25 2. Какое значение будет напечатано в результате работы программы: Program 2; Var a,b,x:integer; Begin a:=3; b:=-5; If a

26 3. Какое значение будет напечатано в результате работы программы: Program 3; Var a,b,x:integer; Begin a:=3; b:=-5; If a>=b then a:=a*7 else b:=b*4; x:=a-b; Writeln (x); End программа неработоспособна

27 4. Какое значение будет напечатано в результате работы программы: Program 4; Var a,b,x:integer; Begin a:=3; b:=-5; If a

28 5. Какое значение будет напечатано в результате работы программы: Program 5; Var a,b,x:integer; Begin a:=3; b:=-5; If a>=b then a:=a+b else b:=b-a; x:=a*b; Writeln (x); End программа неработоспособна

29