1 / 17

Цикли

Цикли. Розв’язування задач. Задача 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* =. i k. Задача 2.

kinsey
Download Presentation

Цикли

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

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

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

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

  4. 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* = i k НВК "Школа-гімназія "Сихівська"

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

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

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

  8. program p3; vari,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. НВК "Школа-гімназія "Сихівська"

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

  10. 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. НВК "Школа-гімназія "Сихівська"

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

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

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

  14. 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 (a<>b)and(b<>c)and(a<>c) then write (i, ‘ ‘); end; readln; end. НВК "Школа-гімназія "Сихівська"

  15. Задача 7 • Скласти програму, яка імітує цифровий годинник : : 14 25 38 a b c НВК "Школа-гімназія "Сихівська"

  16. 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. НВК "Школа-гімназія "Сихівська"

  17. 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. НВК "Школа-гімназія "Сихівська"

More Related