9 класс информатика. урок. Httpslearningapps orgdisplayvp9m33z1fj22
Скачать 199.69 Kb.
|
https://learningapps.org/display?v=p9m33z1fj22https://docs.google.com/document/d/1t45iBpra2BfzarXsSBCB5EL-r3gJx5unoLaMoE3XuJs/edithttps://docs.google.com/document/d/1sp7n50w32tcWIwHcdLDk-fqBiJk3mt5i5C3g-tBO6a4/edit?usp=sharingПрограммадагы хаталарны табыгыз:Түгәрәк мәйданын исәплиторган программ язырга.Program Z1;Var R,S: integer;Begin;Read (R);S =3,14*SQR(R);Write (S);Endу=у1-у2 функциясенекыйммәтен у1= 2,5х һәм у2=5+х булганда исәпли торган программа төзергәProgram Z2;Var x,y,y1,y2: Real;Begin;Write (x);y:= y1- у2;y1:=2.5*x;у2=5+х;Read (y);End.Pascal программалау телендә тармаклану операторыТармаклану структурасы Тулы тармакланушарт оператор_1 оператор_2 әйе юк Паскаль телендә: Если шарт то оператор_1 иначе –оператор_2 if <шарт> then <оператор_1> else <оператор_2>; else алдыннан «;» КУЕЛМЫЙ! Тармаклану структурасы Тулы булмаган тармаклануПаскаль телендә: Если шарт то оператор; башкарыла. Шарт үтәлмәсә бу структурадан чыгып кителә, башка операторлар башкарыла. шарт оператор әйе юк if <шарт> then <оператор>; Операторлар берничә булсаBegin һәм End – оператор җәяләре кулланыла Мисал: if y>x-1 then begin y:=y-x; x:=x-y; end else begin x:=x-y; y:=y-x; end; begin < операторлар эзлеклелеге> end; Program Vetvlenie; Var x, y: integer; Begin write ('Введите x, y: '); readln (x, y); x:=x*y; if x>y*y then y:=x+y; if y>x-1 then begin y:=y-x; x:=x-y; end else begin x:=x-y; y:=y-x; end; writeln ('x=', x, ' y=', y) End. башы кертү x, y чыгару x, y x := x * y x > y*у y > x - 1 y := x + y y := y - x x := x - y ахыры y := y - x x := x - y + - + - Әзер программа белән эш
1) x=2, y=3 өчен x һәм y үзгәрешлеләренеңбирелгән кыйммәтләре өчен таблица тутыру. Экранда нәрсә чыга? Program vetvlenie; Var x, y: integer; Begin write ('Введите x, y: '); readln (x, y); x:=x*y; if x>y*y then y:=x+y; if y>x-1 then begin y:=y-x; x:=x-y end else begin x:=x-y; y:=y-x end; writeln ('x=', x, ' y=', y) End. 2 3 - - 6 3 0 6>9 (юк) 3>5 (юк)
2) x=3, y=2 өчен x һәм y үзгәрешлеләренеңбирелгән кыйммәтләре өчен таблица тутыру. Экранда нәрсә чыга? Трассировка программы с ветвлениями Program vetvlenie; Var x, y: integer; Begin write ('Введите x, y: '); readln (x, y); x:=x*y; if x>y*y then y:=x+y; if y>x-1 then begin y:=y-x; x:=x-y end else begin x:=x-y; y:=y-x end; writeln ('x=', x, ' y=', y) End. 3 2 - - 6 4 2 6>4 (әйе) 8>5 (әйе) 8 физкультминуткаЗадача Бирелгән ике санның зуррагын таба торган программа төзергә башы кертү a, b a>b ахыры әйе юк m := a m := b чыгару m Задание
(5, 4); (–11, 4); (9, 13); (7, 9); (6, 8).Решение:в качестве значений переменных s и t вводились следующие пары чисел: (5, 3); (2, 4); (–1, 10); (5, 7); (5, 4); (–11, 4); (9, 13); (7, 9); (6, 8). Сколько было запусков, при которых программа напечатала «YES»? По условию YES печатается когда одновременно (and): первое число >6 и второе число >5. Анализируем. Ответ: 2
Объявляются переменные s, t тип - целые Команда присваивания значений для переменных s и t Условный оператор Если (s>6 и t>5) То печатаем YES Иначе печатаем NO Задание 2
(2, 5); (5, 2); (4, 4); (2, –2); (3, 1); (8, 3); (9, –7); (7, 7); (4, 6).Решение:в качестве значений переменных s и t вводились следующие пары чисел: (2, 5); (5, 2); (4, 4); (2, –2); (3, 1); (8, 3); (9, –7); (7, 7); (4, 6). Сколько было запусков, при которых программа напечатала «NO»? По условию YES печатается когда одна из переменных (or) удовлетворяет условию: первое число <5 или второе число >5. Анализируем и зачеркнем удовлетворяющие условию. Ответ: 3
Объявляются переменные s, t тип - целые Команда присваивания значений для переменных s и t Условный оператор Если (s<5 или t>5) То печатаем YES Иначе печатаем NO Өй эше
https://joyteka.com/ru/100084985https://joyteka.com/1000849765>5> |