- Главная
- Разное
- Бизнес и предпринимательство
- Образование
- Развлечения
- Государство
- Спорт
- Графика
- Культурология
- Еда и кулинария
- Лингвистика
- Религиоведение
- Черчение
- Физкультура
- ИЗО
- Психология
- Социология
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Маркетинг
- Математика
- Медицина
- Менеджмент
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, картинки для презентаций
- Экология
- Экономика
- Юриспруденция
Что такое findslide.org?
FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.
Обратная связь
Email: Нажмите что бы посмотреть
Презентация на тему Turbo Pascal. Операторы
Содержание
- 2. 3Операторыоператор цикла For оператор цикла While оператор цикла Repeat оператор Case оператор If
- 3. 4Оператор цикла For Операторы цикла с параметрами
- 4. 5Страничка справки где I – параметр цикла. N1, N2 – начальное и конечное значение цикла.
- 5. 6Оператор цикла While В While-циклах условие вычисляется
- 6. 7Страничка справкиКаждому Begin в программе должен соответствовать
- 7. 8Оператор цикла Repeat Операторы цикла с последующим
- 8. 9Страничка справкиЦикл Repeat может содержать как один,
- 9. 10Оператор If Условные операторы используются для такой
- 10. 11Обратите внимание, что перед словом Else точка
- 11. 12 Case {логическое выражение} Of список
- 12. 13Страничка справкиЗначение выражения и констант должно быть
- 13. 14оператор цикла For Задача № 1Вывести на экран английский алфавит, разделяя буквы двумя пробелами.
- 14. 15оператор цикла For Задача № 1
- 15. 16Program z1-1; Uses Crt;
- 16. 17A B C D E F G
- 17. 18оператор цикла For Задача № 2Перейти на слайд структуры
- 18. 19оператор цикла For Задача № 2
- 19. 20Program z1-2;Uses CRT; Var i,j,K,N:
- 20. 21Результат выполнения программы:Через пробел введите значения K,
- 21. 22Напишите программу, которая выводит на экран таблицу
- 22. 23оператор цикла While
- 23. 24оператор цикла While Задача № 1
- 24. 25program z2-1;uses crt; var t,x,y: real;begin clrscr; x:=1.5; while x
- 25. 26Результат выполнения программы:y= 4 при x= 1.5
- 26. 27В банк вкладывается сумма, с которой выплачивается
- 27. 28оператор цикла While Задача № 1
- 28. 29uses crt; var sv,s,se: real;
- 29. 30Результат выполнения программы:В банк внесли сумму Sv
- 30. 31Найти все числа в интервале от 1
- 31. 32Вычислить: M=X2+(2-A-A2)X-A2при A=-2 и X=[1;10], шаг 2.Просчитать
- 32. 33оператор цикла Repeat Задача № 1
- 33. 34Program z3-1; Uses Crt;
- 34. 35Результат выполнения программы:M= -3
- 35. 36Каждая бактерия делится на 2 в течение
- 36. 37оператор цикла Repeat Задача № 2
- 37. 38program z3-2;uses crt; var t,b:real;
- 38. 39Результат выполнения программы:Задайте количество времени:30За 30 мин.
- 39. 40Составить программу, результатом выполнения которой является таблица
- 40. 41Составьте программу, которая реализует эпизод применения компьютера в книжном магазине.Оператор If Задача № 1
- 41. 42Оператор If Задача № 1
- 42. 43program z4-1; uses crt; var
- 43. 44Результат выполнения программы:Стоимость книги560Сумма денег560СпасибоОператор If Задача № 1
- 44. 45Написать программу которая выводит звездочки в форме
- 45. 46Оператор If Задача № 2
- 46. 47program z4-2;uses crt; var a,i,j:integer;begin
- 47. 48Результат выполнения программы:Вводим значение a=7** ** *
- 48. 49Напишите программу, которая читает 5-ть чисел (каждая
- 49. 50По номеру телефона выдать сообщение об учреждении
- 50. 51Оператор Case Задача № 1
- 51. 52Uses CRT;Var N: Integer; Begin CLRSCR;
- 52. 53Введите интересующий вас номер:03Скорая помощь, адрес: ул.
- 53. 54Составьте программу которая по в веденному вами
- 54. 55Оператор Case Задача № 2
- 55. 56Program z5-2;Uses Crt;Var k,k1:integer;Begin ClrScr;
- 56. 57K=53Мы нашли в лесу 53 гриба.Результат выполнения программы:Оператор Case Задача № 2
- 57. 58Составьте программу которая выводит на экран по
- 58. Скачать презентацию
- 59. Похожие презентации
3Операторыоператор цикла For оператор цикла While оператор цикла Repeat оператор Case оператор If
![32Вычислить: M=X2+(2-A-A2)X-A2при A=-2 и X=[1;10], шаг 2.Просчитать все значения уравнения, через пробел](/img/tmb/15/1467188/0f5527b0c63146ff2737354d5d3e7b73-720x.jpg "Turbo Pascal. Операторы")
Слайд 3
4
Оператор цикла For
Операторы цикла с параметрами используются
для организации повторяющегося выполнения. Такие циклы удобны в тех
случаях, когда во-первых, заранее известно число итераций и во-вторых, когда необходимо некоторым образом использовать в теле цикла информацию о номере очередной итерации. For I:= N1 To N2 Do
Begin
<оператор цикличной части программы >;
End.
Перейти к решению задач по данному разделу
Перейти на слайд структуры
Слайд 5
6
Оператор цикла While
В While-циклах условие вычисляется заново
каждый раз перед началом очередной итерации. Если условие истинно,
то есть в результате его вычисление получается значение true, то тело цикла выполняется. Таким образом, если выражение в заголовке цикла равно false в самом начале выполнения, то цикл не выполняется ни разу. While {логическое выражение} Do
Begin
<оператор цикличной части программы >;
End.
Перейти к решению задач по данному разделу
Перейти на слайд структуры
Слайд 6
7
Страничка справки
Каждому Begin в программе должен соответствовать End.
Операторы
заключенные между зарезервированными словами Begin, End называют телом программы.
Перейти
на слайд структуры
Слайд 7
8
Оператор цикла Repeat
Операторы цикла с последующим условием
также задают повторяющееся выполнение операторов. Однако решение о продолжении
цикла принимается после очередной итерации, а не перед ней, как в циклах с предварительным условием.Это гарантирует хотя бы однократное выполнение операторов тела цикла. Repeat
<оператор 1 >;
<оператор … >;
<оператор N >;
Until <условие окончания цикла>;
Перейти к решению задач по данному разделу
Перейти на слайд структуры
Слайд 8
9
Страничка справки
Цикл Repeat может содержать как один, так
неограниченное количество операторов.
Операторы цикла-Repeat не обязательно должны быть оформлены
с помощью служебных слов Begin, End.
Слайд 9
10
Оператор If
Условные операторы используются для такой программы,
при котором выполнение некоторой последовательности действий производится в зависимости
от истинности условия. Допускается и задание действий, выполняемых в случае ложности этого условия. Эти операторы являются основным средством структурного построения программы и имеются практически в любом развитом языке программирования. If {логическое выражение} Then<оператор 1>
Else<оператор 2>;
Перейти к решению задач по данному разделу
Перейти на слайд структуры
Слайд 10
11
Обратите внимание, что перед словом Else точка с
запятой не ставится.
Else с оператором могут отсутствовать.
Страничка справки
Перейти на
слайд структуры
Слайд 11
12
Case {логическое выражение} Of
список констант
1: ;
список констант 2: ;
End;Оператор выбора является естественным обобщением условного оператора для случая нескольких альтернатив. В начале оператора задается выражение дискретного типа, а альтернативы «помечаются» конкретными значениями этого типа. Выполнение оператора выбора заключается в выполнении той альтернативы, которая «помечается» значением, совпадающим с текущим значением выражения.
Оператор Case
Перейти к решению задач по данному разделу
Перейти на слайд структуры
Слайд 12
13
Страничка справки
Значение выражения и констант должно быть одного
и того же скалярного типа, т.е. Integer, Char и
т.д. Тип Real в описании констант использоваться не может.
Перейти на слайд структуры курса
Слайд 13
14
оператор цикла For Задача № 1
Вывести
на экран английский алфавит, разделяя буквы двумя пробелами.
Слайд 15
16
Program z1-1;
Uses Crt;
Var Y: char;
Begin
ClrScr; For
Y:=‘A’ to ‘Z’ do Write(Y:2); End.оператор цикла For Задача № 1
Слайд 16
17
A B C D E F G H
I J K L M N O P Q
R S T U V W X Y ZРезультат выполнения программы:
оператор цикла For Задача № 1
Слайд 19
20
Program z1-2;
Uses CRT;
Var i,j,K,N: integer;
S, So: real;
Begin CLRSCR;
So:=0;Write (‘Через пробел введите значения K, N ?');
Read (K,N);
For i:=2 to K do begin
For j:=1 to N do begin
S:=i*j;
So:=So+S;
Writeln ('S= ',S:4:0, ' при i= ',i, ' при j= ',j);
End;
End;
Writeln; Writeln (‘So= ‘,So:4:0);
End.
оператор цикла For Задача № 2
Слайд 20
21
Результат выполнения программы:
Через пробел введите значения K, N
?
4 3
S= 2 при i= 2
при j= 1 S= 4 при i= 2 при j= 2
S= 6 при i= 2 при j= 3
S= 3 при i= 3 при j= 1
S= 6 при i= 3 при j= 2
S= 9 при i= 3 при j= 3
S= 4 при i= 4 при j= 1
S= 8 при i= 4 при j= 2
S= 12 при i= 4 при j= 3
So= 54
оператор цикла For Задача № 2
Слайд 21
22
Напишите программу, которая выводит на экран таблицу умножения
и разбить колонки по количеству на экране.
оператор цикла For
Задача для самостоятельного решенияПерейти на слайд структуры
Слайд 22
23
оператор цикла While
Задача № 1
Вычислить уравнение у=2х+t при всех значениях х
от 1,5 до 3 с шагом 0,5 и t от 1 до 5 с шагом 2. Записать ответ в виде таблицы всех значений уравнения.
Слайд 24
25
program z2-1;
uses crt;
var t,x,y: real;
begin
clrscr;
x:=1.5;
while x
begint:=1;
while t<=5 do begin
y:=2*x+t;
writeln ('y=',y:5:0,' при x=',x:4:1,' при t=',t:4:1);
t:=t+2;
end;
x:=x+0.5;
writeln;
end;
end.
оператор цикла While Задача № 1
Слайд 25
26
Результат выполнения программы:
y= 4 при x= 1.5 при
t= 1
y= 6 при x= 1.5 при t= 3
y=
8 при x= 1.5 при t= 5y= 5 при x= 2.0 при t= 1
y= 7 при x= 2.0 при t= 3
y= 9 при x= 2.0 при t= 5
y= 6 при x= 2.5 при t= 1
y= 8 при x= 2.5 при t= 3
y= 10 при x= 2.5 при t= 5
y= 7 при x= 3.0 при t= 1
y= 9 при x= 3.0 при t= 3
y= 11 при x= 3.0 при t= 5
оператор цикла While Задача № 1
Слайд 26
27
В банк вкладывается сумма, с которой выплачивается 1
%. Определить, до какой значения увеличится начальная сумма и
через сколько лет сумма удесятерится?оператор цикла While Задача № 1
Перейти на слайд структуры
Слайд 28
29
uses crt;
var sv,s,se: real;
l:integer;
begin clrscr;
s:=0;
l:=1;write ('в банк внесли сумму sv= ');
readln (sv);
se:=sv*10;
while s<=se do
begin
s:=sv*1.01;
l:=l+1;
sv:=s;
end;
writeln ('сумма увеличится в 10 раз до ‘,sv:7:1,’ рублей,’);
writeln (' через’,l div 12,' лет(года) и ',l mod 12,' месяц(ев)');
end.
оператор цикла While Задача № 1
Слайд 29
30
Результат выполнения программы:
В банк внесли сумму Sv =
500
Сумма увеличится в 10 раз до 5029,5 рублей
через
19 лет(года) и 5 месяц(ев)оператор цикла While Задача № 1
Слайд 30
31
Найти все числа в интервале от 1 до
1000, которые совпадают с последними разрядами своих квадратов,
например:
52 = 25, 252 = 625.оператор цикла While Задача для самостоятельного решения
Перейти на слайд структуры
Слайд 31
32
Вычислить: M=X2+(2-A-A2)X-A2
при A=-2 и X=[1;10], шаг 2.
Просчитать все
значения уравнения, через пробел вывести общий результат уравнения.
оператор цикла
Repeat Задача № 1
Слайд 33
34
Program z3-1;
Uses Crt;
Var X:
Integer; M, Mo: Real;
Const A=-2 Begin ClrScr; X:=1; Mo:=0; Repeat M:= SQR(X)+(2-A-SQR(A))*X-SQR(A); Mo:=Mo+M; X:=X+2; Writeln(‘M= ‘, M:4:0, ‘ при A= ‘ ,A, ‘при X= ‘ , X); Until X>10; Writeln; Writeln(‘Mo= ‘, Mo:4:0); End.оператор цикла Repeat Задача № 1
Слайд 34
35
Результат выполнения программы:
M= -3 при
A= -2 при X=1
M=
5 при A= -2 при X=3M= 21 при A= -2 при X=5
M= 45 при A= -2 при X=7
M= 77 при A= -2 при X=9
Mo= 145
оператор цикла Repeat Задача № 1
Слайд 35
36
Каждая бактерия делится на 2 в течение
1 минуты. В начальный момент имеется одна бактерия. Составить
программу, которая рассчитывает количество бактерий на заданное вами целое число значение момента времени.оператор цикла Repeat Задача № 2
Перейти на слайд структуры
Слайд 37
38
program z3-2;
uses crt;
var t,b:real;
a:integer;
begin clrscr;
a:=0;
b:=1;
write('задайте количество времени: ');readln(t);
repeat
b:=b*2;
a:=a+1;
until a=t;
writeln('за ',t:1:0,' мин. бактерия размножилась с 1 до ',b:3:0,' штук');
end.
оператор цикла Repeat Задача № 2
Слайд 38
39
Результат выполнения программы:
Задайте количество времени:
30
За 30 мин. бактерия
размножилась с 1 до 1073741824 штук
оператор цикла Repeat
Задача № 2
Слайд 39
40
Составить программу, результатом выполнения которой является таблица значений
температуры по шкалам Цельсия, Кельвина и Фаренгейта от 10
до 15 градусов через 0,4 градуса.оператор цикла Repeat Задача для самостоятельного решения
Перейти на слайд структуры
Слайд 40
41
Составьте программу, которая реализует эпизод применения компьютера в
книжном магазине.
Оператор If Задача № 1
Слайд 42
43
program z4-1;
uses crt;
var s,kn:real;
begin
clrscr;
write('стоимость книги ');
readln(kn);
write('сумма денег ');readln(s);
if s = kn then writeln('спасибо');
if s < kn then writeln('добавить ',kn-s:5:2);
if s > kn then writeln('возьмите сдачу ',s-kn:5:2);
end.
Оператор If Задача № 1
Слайд 43
44
Результат выполнения программы:
Стоимость книги
560
Сумма денег
560
Спасибо
Оператор If Задача
№ 1
Слайд 44
45
Написать программу которая выводит звездочки в форме прямоугольного
треугольника, от 1 до 'a‘.
Оператор If Задача №
2Перейти на слайд структуры
Слайд 46
47
program z4-2;
uses crt;
var a,i,j:integer;
begin clrscr;
write('вводим значение a= ');
readln(a);
for i:=1 to a dobegin
for j:=1 to i do
write('* ');
writeln;
end;
end.
Оператор If Задача № 2
Слайд 47
48
Результат выполнения программы:
Вводим значение a=
7
*
* *
* * *
*
* * *
* * * * *
* * *
* * * * * * * * * *
Оператор If Задача № 2
Слайд 48
49
Напишите программу, которая читает 5-ть чисел (каждая от
1 до 30) для каждого просчитанного числа ваша программа
должна напечатать строку содержащую соответствующее число смежных звездочек.Оператор If Задача для самостоятельного решения
Перейти на слайд структуры
Слайд 49
50
По номеру телефона выдать сообщение об учреждении и
месте его расположения.
Оператор Case Задача № 1
Перейти на слайд
структуры курса
Слайд 51
52
Uses CRT;
Var N: Integer;
Begin CLRSCR;
Write ('Введите интересующий вас номер: ');
Readln (N);
Case N of01: Writeln ('Пожарная помощь, адрес: ул. Братская, 22');
02: Writeln ('Милиция, адрес: ул. Советская, 53');
03: Writeln ('Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7');
Else Writeln (‘Неправильно ввели номер’);
End;
End.
Оператор Case Задача № 1
Слайд 52
53
Введите интересующий вас номер:
03
Скорая помощь, адрес: ул. 40
лет ПОБЕДЫ, 7
Результат выполнения программы:
Оператор Case Задача № 1
Слайд 53
54
Составьте программу которая по в веденному вами числу
k (число грибов) печатает фразу "Мы нашли в лесу
k грибов".Оператор Case Задача № 2
Перейти на слайд структуры
Слайд 55
56
Program z5-2;
Uses Crt;
Var k,k1:integer;
Begin ClrScr;
Write('k=');
Readln(k);
k1:=k mod 100;
If k=0 then Writeln('Мы обошли весь лес, но грибов так и не нашли.')Else If k<0 then
Writeln('Отрицательное количество грибов найти нельзя,
введите другое число.')
Else If (k1=11) or (k1=12) or (k1=13) or (k1=14) then
Writeln('Мы нашли в лесу ',k,' грибов.')
Else
Case k mod 10 of
1: write('Мы нашли в лесу ',k,' гриб.');
2..4: write('Мы нашли в лесу ',k,' гриба.');
0,5..9: write('Мы нашли в лесу ',k,' грибов.');
End;
End.
Оператор Case Задача № 2
Слайд 57
58
Составьте программу которая выводит на экран по номеру
месяца в году его название и количество дней. При
решении возьмите во внимание, что в високосный год в феврале месяце 29 дней, а в не високосный – 28.Оператор Case Задача для самостоятельного решения
Перейти на слайд структуры
