Содержание
- 2. 2 Данный учебник представляет собой пособие по программированию на языке Turbo Pascal. Текст построен в виде
- 3. 3 Структура курса Операторы оператор цикла For Занятие 1 оператор цикла While Занятие 2 оператор цикла
- 4. 4 О перат ор цикла For Операторы цикла с параметрами используются для организации повторяющегося выполнения. Такие
- 5. 5 Страничка справки где I – параметр цикла. N1, N2 – начальное и конечное значение цикла.
- 6. 6 О перат ор цикла While В While-циклах условие вычисляется заново каждый раз перед началом очередной
- 7. 7 Страничка справки Каждому Begin в программе должен соответствовать End. Операторы заключенные между зарезервированными словами Begin,
- 8. 8 О перат ор цикла Repeat Операторы цикла с последующим условием также задают повторяющееся выполнение операторов.
- 9. 9 Страничка справки Цикл Repeat может содержать как один, так неограниченное количество операторов. Операторы цикла-Repeat не
- 10. 10 О перат ор If Условные операторы используются для такой программы, при котором выполнение некоторой последовательности
- 11. 11 Обратите внимание, что перед словом Else точка с запятой не ставится. Else с оператором могут
- 12. 12 Case {логическое выражение} Of список констант 1: ; список констант 2: ; End; Оператор выбора
- 13. 13 Страничка справки Значение выражения и констант должно быть одного и того же скалярного типа, т.е.
- 14. 14 Урок № 1 Задача № 1 Вывести на экран английский алфавит, разделяя буквы двумя пробелами.
- 15. 15 Урок № 1 Задача № 1
- 16. 16 Program z1-1; Uses Crt; Var Y: char; Begin ClrScr; For Y:=‘A’ to ‘Z’ do Write(Y:2);
- 17. 17 A B C D E F G H I J K L M N O
- 18. 18 Урок № 1 Задача № 2 Перейти на слайд структуры курса
- 19. 19 Урок № 1 Задача № 2
- 20. 20 Program z1-2; Uses CRT; Var i,j,K,N: integer; S, So: real; Begin CLRSCR; So:=0; Write (‘Через
- 21. 21 Урок № 1 Задача № 2 Результат выполнения программы: Через пробел введите значения K, N
- 22. 22 Напишите программу, которая выводит на экран таблицу умножения и разбить колонки по количеству на экране.
- 23. 23 Урок № 2 Задача № 1 Вычислить уравнение у=2х+t при всех значениях х от 1,5
- 24. 24 Урок № 2 Задача № 1
- 25. 25 Урок № 2 Задача № 1 Program z2-1; Uses Crt; Var t,x,y: Real; Begin ClrScr;
- 26. 26 Урок № 2 Задача № 1 Результат выполнения программы: y= 4 при x= 1.5 при
- 27. 27 Урок № 2 Задача № 2 В банк вкладывается сумма, с которой выплачивается 1 %.
- 28. 28 Урок № 2 Задача № 2
- 29. 29 Урок № 2 Задача № 2 Program z2-2; Uses Crt; Var Sv,S,Se: Real; l:Integer; Begin
- 30. 30 Урок № 2 Задача № 2 Результат выполнения программы: В банк внесли сумму Sv =
- 31. 31 Найти все числа в интервале от 1 до 1000, которые совпадают с последними разрядами своих
- 32. 32 Вычислить: M=X2+(2-A-A2)X-A2 при A=-2 и X=[1;10], шаг 2. Просчитать все значения уравнения, через пробел вывести
- 33. 33 Урок № 3 Задача № 1
- 34. 34 Program z3-1; Uses Crt; Var X: Integer; M, Mo: Real; Const A=-2 Begin ClrScr; X:=1;
- 35. 35 Урок № 3 Задача № 1 Результат выполнения программы: M= -3 при A= -2 при
- 36. 36 Каждая бактерия делится на 2 в течение 1 минуты. В начальный момент имеется одна бактерия.
- 37. 37 Урок № 3 Задача № 2
- 38. 38 Program z3-2; Uses Crt; Var t,b:real; a:integer; Begin ClrScr; a:=0; b:=1; Write('Задайте количество времени: ');
- 39. 39 Урок № 3 Задача № 2 Результат выполнения программы: Задайте количество времени: 30 За 30
- 40. 40 Составить программу, результатом выполнения которой является таблица значений температуры по шкалам Цельсия, Кельвина и Фаренгейта
- 41. 41 Составьте программу, которая реализует эпизод применения компьютера в книжном магазине. Урок № 4 Задача №
- 42. 42 Урок № 4 Задача № 1
- 43. 43 Program z4-1; Uses Crt; Var s,kn:real; Begin ClrScr; Write('Стоимость книги '); Readln(kn); Write('Сумма денег ');
- 44. 44 Урок № 4 Задача № 1 Результат выполнения программы: Стоимость книги 560 Сумма денег 560
- 45. 45 Урок № 4 Задача № 2 Написать программу которая выводит звездочки в форме прямоугольного треугольника,
- 46. 46 Урок № 4 Задача № 2
- 47. 47 Урок № 4 Задача № 2 Program z4-2; Uses Crt; Var a,i,j:integer; Begin ClrScr; Write('Вводим
- 48. 48 Урок № 4 Задача № 2 Результат выполнения программы: Вводим значение a= 7 * *
- 49. 49 Напишите программу, которая читает 5-ть чисел (каждая от 1 до 30) для каждого просчитанного числа
- 50. 50 По номеру телефона выдать сообщение об учреждении и месте его расположения. Урок № 5 Задача
- 51. 51 Урок № 5 Задача № 1
- 52. 52 Program z5-1; Uses CRT; Var N: Integer; Begin CLRSCR; Write ('Введите интересующий вас номер: ');
- 53. 53 Введите интересующий вас номер: 03 Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7 Урок №
- 54. 54 Составьте программу которая по в веденному вами числу k (число грибов) печатает фразу "Мы нашли
- 55. 55 Урок № 5 Задача № 2
- 56. 56 Program z5-2; Uses Crt; Var k,k1:integer; Begin ClrScr; Write('k='); Readln(k); k1:=k mod 100; If k=0
- 57. 57 K= 53 Мы нашли в лесу 53 гриба. Урок № 5 Задача № 2 Результат
- 59. Скачать презентацию