Решение задач


The Presentation inside:

Slide 0

Решение задач


Slide 1

Задача С клавиатуры вводятся не равные между собой числа а и b. Большее из этих чисел заменить их суммой, а меньшее - их удвоенным произведением. Решение. Блок – схема Память а b 4 2 6 16 начало Ввод а,b а>b c:=a a:=a+b b:=2*a*b c:=b b:=a+b a:=2*a*b stop + - В предложенном алгоритме допущена ошибка. Найти ее и объяснить? Вывод а,b


Slide 2

начало Ввод а,b а>b c:=a a:=a+b b:=2*c*b c:=b b:=a+b a:=2*a*c stop Программа на Паскале Вывод а,b Перечислите 6 ошибок, допущенных в программе. Programm Task_3; Uses Crt Var a,b: Integer; Begin Clrscr Write(‘Введите числа a, b:’); ReadLn(a,b) If a>b Then c:=a; a:=a+b; b:=2*c*b; Else c:=a; b:=a+b; a:=2*a*c; WriteLn(‘a=’,a); WriteLn(‘b=’,b); ReadLn; End.


Slide 3

Pogram Task_3; Uses Crt; Var a,b,c: Integer; Begin Clrscr; Write(‘Введите числа а,b:’); ReadLn(a,b); If a>b Then Begin c:=a; a:=a+b; b:=2*c*b; End Else Begin c:=b; b:=a+b; a:=2*a*c; End; WriteLn(‘a=’,a); WriteLn(‘b=’,b); ReadLn; End. Pogram Task_3; Uses Crt Var a,b: Integer; Begin Clrscr Write(‘Введите числа a, b:’); ReadLn(a,b) If a>b Then c:=a; a:=a+b; b:=2*a*b; Else c:=a; a:=a+b; b:=2*a*b; WriteLn(‘a=’,a); WriteLn(‘b=’,b); ReadLn; End. Программа с ошибками.


Slide 4

Вложеннные ветвления Задача С клавиатуры вводятся 3 числа. Найти большее из этих чисел. Паскаль … If (a>b) and (a>c) Then WriteLn(‘Большее:’,a) Else If (b>c) Then WriteLn(‘Большее:’,b) Else WriteLn(‘ Большее:,c); …


Slide 5

Домашнее задание: Задача С клавиатуры вводятся 3 числа. Напечатать те из них, которые четные.


×

HTML:





Ссылка: