Презентація на тему:
Цикли

Цикли Розв’язування задач НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 1 Надрукувати таблицю множення на 2 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

2*1=2 2*2=4 2*3=6 2*4=8 2*5=10 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p1; var i,k:integer; begin for i:=1 to 10 do begin k:=2*i; writeln(‘2*',i,'=',k); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 2 Надрукувати таблицю множення на число, введене з клавіатури НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p2; var i,k,a:integer; begin write('Vvedit chyslo'); readln(a); for i:=1 to 10 do begin k:=a*i; writeln(a,'*',i,'=',k); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 3 Надрукувати усю таблицю множення Для усіх а від 1 до 9 for a:=1 to 9 do НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p3; var i,k,a:integer; begin for a:=1 to 9 do begin for i:=1 to 10 do begin k:=a*i; writeln(a,'*',i,'=',k); end; end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 4. Самостійно Проїзд у маршрутці коштує 1,75 Надрукувати табличку у допомогу водію: Кількість осіб Вартість проїзду 1 1,75 2 3,5 3 5,25 4 7 5 8,75 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p4; var i:integer; k:real; begin for i:=1 to 10 do begin k:=1.75*i; writeln(i,' osib=',k:5:2,'grn'); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 5 Надрукувати всі двозначні числа з різними цифрами Двозначні числа: від 10 до 99 25 2= 25 div 10 5= 25 mod 10 НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p5; var a,b,i:integer; begin for i:=10 to 99 do begin a:=i div 10; b:=i mod 10; if ab then write (i, ‘ ‘); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 6 Надрукувати всі тризначні числа з різними цифрами НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p6; var a,b,c,i:integer; begin for i:=100 to 999 do begin a:=i div 100; c:=i mod 10; b:=i div 10 mod 10; if (ab)and(bc)and(ac) then write (i, ‘ ‘); end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

Задача 7 Скласти програму, яка імітує цифровий годинник НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p7; uses crt; var a,b,c:integer; i:longint; begin for a:=0 to 23 do begin for b:=0 to 59 do begin writeln(a,':',b); for i:=1 to 3000000 do; if keypressed then exit; end; end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"

program p7; uses crt; var a,b,c:integer; i:longint; begin for a:=0 to 23 do begin for b:=0 to 59 do begin for c:=0 to 59 do begin writeln(a,':',b,':',c); for i:=1 to 300000000 do; if keypressed then exit; end; end; end; readln; end. НВК "Школа-гімназія "Сихівська" НВК "Школа-гімназія "Сихівська"