Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.

Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Язык Turbo Pascal и его практическое применение

Содержание

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

Слайд 2 2
Данный учебник представляет собой пособие по программированию на

2Данный учебник представляет собой пособие по программированию на языке Turbo Pascal.

языке Turbo Pascal. Текст построен в виде практического применения

языка.

Сопровождается большим количеством иллюстративных, демонстрационных и обучающих примеров программ.
Все программы сделаны очень небольшими по размеру, чтобы можно было легко проверить их работу.
Примеры можно использовать при написании собственных программ.
Примеры представляют законченный вид программ, которые практически без изменения могут применяться в повседневной работе на персональном компьютере.



Слайд 3 3
Структура курса
Операторы

оператор цикла
For

Занятие

3 Структура курсаОператорыоператор цикла For Занятие 1оператор цикла While Занятие

1

оператор цикла
While

Занятие 2


оператор цикла
Repeat

Занятие 3



оператор


Case

Занятие 5



оператор
If

Занятие 4








Слайд 4 4
Оператор цикла For
Операторы цикла с параметрами используются

4Оператор цикла For Операторы цикла с параметрами используются для организации повторяющегося

для организации повторяющегося выполнения. Такие циклы удобны в тех

случаях, когда,во-первых, заранее известно число итераций и,во-вторых, когда необходимо некоторым образом использовать в теле цикла информацию о номере очередной итерации.


For I:= N1 To N2 Do
Begin
<оператор цикличной части программы >;
End.



Перейти к решению задач по данному разделу

Слайд 5 5
Страничка справки
где I – параметр цикла.
N1,

5Страничка справки где I – параметр цикла. N1, N2 – начальное и конечное значение цикла.

N2 – начальное и конечное значение цикла.


Слайд 6 6
Оператор цикла While
В While-циклах условие вычисляется заново

6Оператор цикла While В While-циклах условие вычисляется заново каждый раз перед

каждый раз перед началом очередной итерации. Если условие истинно,

то есть в результате его вычисление получается значение true, то тело цикла выполняется. Таким образом, если выражение в заголовке цикла равно false в самом начале выполнения, то цикл не выполняется ни разу.


While {логическое выражение} Do
Begin
<оператор цикличной части программы >;
End.



Перейти к решению задач по данному разделу

Слайд 7 7
Страничка справки
Каждому Begin в программе должен соответствовать End.
Операторы

7Страничка справкиКаждому Begin в программе должен соответствовать End.Операторы заключенные между зарезервированными

заключенные между зарезервированными словами Begin, End называют телом программы.


Перейти

на слайд структуры курса

Слайд 8 8
Оператор цикла Repeat
Операторы цикла с последующим условием

8Оператор цикла Repeat Операторы цикла с последующим условием также задают повторяющееся

также задают повторяющееся выполнение операторов. Однако решение о продолжении

цикла принимается после очередной итерации, а не перед ней, как в циклах с предварительным условием.Это гарантирует хотя бы однократное выполнение операторов тела цикла.


Repeat
<оператор 1 >;
<оператор … >;
<оператор N >;
Until <условие окончания цикла>;



Перейти к решению задач по данному разделу

Слайд 9 9
Страничка справки
Цикл Repeat может содержать как один, так

9Страничка справкиЦикл Repeat может содержать как один, так неограниченное количество операторов.Операторы

неограниченное количество операторов.
Операторы цикла-Repeat не обязательно должны быть оформлены

с помощью служебных слов Begin, End.



Слайд 10 10
Оператор If
Условные операторы используются для такой программы,

10Оператор If Условные операторы используются для такой программы, при котором выполнение

при котором выполнение некоторой последовательности действий производится в зависимости

от истинности условия. Допускается и задание действий, выполняемых в случае ложности этого условия. Эти операторы являются основным средством структурного построения программы и имеются практически в любом развитом языке программирования.


If {логическое выражение} Then<оператор 1>
Else<оператор 2>;



Перейти к решению задач по данному разделу

Слайд 11 11
Обратите внимание, что перед словом Else точка с

11Обратите внимание, что перед словом Else точка с запятой не ставится.Else

запятой не ставится.
Else с оператором могут отсутствовать.
Страничка справки


Перейти на

слайд структуры курса

Слайд 12 12
Case {логическое выражение} Of
список констант

12 Case {логическое выражение} Of список констант 1: ; список констант 2:

1: ;
список констант 2: ;

End;

Оператор выбора является естественным обобщением условного оператора для случая нескольких альтернатив. В начале оператора задается выражение дискретного типа, а альтернативы «помечаются» конкретными значениями этого типа. Выполнение оператора выбора заключается в выполнении той альтернативы, которая «помечается» значением, совпадающим с текущим значением выражения.

Оператор Case




Перейти к решению задач по данному разделу

Слайд 13 13
Страничка справки
Значение выражения и констант должно быть одного

13Страничка справкиЗначение выражения и констант должно быть одного и того же

и того же скалярного типа, т.е. Integer, Char и

т.д.

Тип Real в описании констант использоваться не может.



Перейти на слайд структуры курса

Слайд 14 14
Урок № 1 Задача № 1
Вывести на экран английский

14Урок № 1 Задача № 1Вывести на экран английский алфавит, разделяя буквы двумя пробелами.

алфавит, разделяя буквы двумя пробелами.


Слайд 15 15
Урок № 1 Задача № 1


15Урок № 1 Задача № 1

Слайд 16 16
Program z1-1; Uses Crt; Var Y: char; Begin

16Program z1-1; Uses Crt; Var Y: char; Begin

ClrScr; For

Y:=‘A’ to ‘Z’ do Write(Y:2); Readkey End.



Урок № 1 Задача № 1

Слайд 17 17

A B C D E F G H

17A B C D E F G H I J K

I J K L M N O P Q

R S T U V W X Y Z

Результат выполнения программы:

Урок № 1 Задача № 1



Слайд 18 18
Урок № 1 Задача № 2


Перейти на слайд структуры

18Урок № 1 Задача № 2Перейти на слайд структуры курса

курса

Слайд 19 19
Урок № 1 Задача № 2


19Урок № 1 Задача № 2

Слайд 20 20

Program z1-2;
Uses CRT;
Var i,j,K,N: integer;

20Program z1-2;Uses CRT; Var i,j,K,N: integer; S, So:

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);
Readkey;
End.

Урок № 1 Задача № 2



Слайд 21 21


Урок № 1 Задача № 2
Результат выполнения программы:
Через пробел

21Урок № 1 Задача № 2Результат выполнения программы:Через пробел введите значения K,

введите значения 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

Слайд 22 22
Напишите программу, которая выводит на экран таблицу умножения

22Напишите программу, которая выводит на экран таблицу умножения и разбить колонки

и разбить колонки по количеству на экране.
Урок № 1 Задача

для самостоятельного решения



Перейти на слайд структуры курса

Слайд 23 23


Урок № 2 Задача № 1

Вычислить уравнение у=2х+t при

23Урок № 2 Задача № 1Вычислить уравнение у=2х+t при всех значениях х

всех значениях х от 1,5 до 3 с шагом

0,5 и t от 1 до 5 с шагом 2.
Записать ответ в виде таблицы всех значений уравнения.

Слайд 24 24


Урок № 2 Задача № 1

24Урок № 2 Задача № 1

Слайд 25 25


Урок № 2 Задача № 1

Program z2-1;
Uses Crt;

25Урок № 2 Задача № 1Program z2-1;Uses Crt; Var t,x,y: Real;Begin

Var t,x,y: Real;
Begin ClrScr;
x:=1.5;

While x<=3 do begin
t:=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;
Readkey
End.

Слайд 26

Урок № 2 Задача № 1
Результат выполнения программы:

y= 4

Урок № 2 Задача № 1Результат выполнения программы:y= 4 при x= 1.5

при x= 1.5 при t= 1
y= 6 при x=

1.5 при t= 3
y= 8 при x= 1.5 при t= 5

y= 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

Слайд 27 27


Урок № 2 Задача № 2
В банк вкладывается сумма,

27Урок № 2 Задача № 2В банк вкладывается сумма, с которой выплачивается

с которой выплачивается 1 %. Определить, до какой значения

увеличится начальная сумма и через сколько лет сумма удесятерится?

Перейти на слайд структуры курса

Слайд 28 28


Урок № 2 Задача № 2

28Урок № 2 Задача № 2

Слайд 29 29



Program z2-2;
Uses Crt;
Var Sv,S,Se: Real;

29Program z2-2;Uses Crt; Var Sv,S,Se: Real; l:Integer;Begin ClrScr;

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,' месяц(ев)');
Readkey
End.

Урок № 2 Задача № 2

Слайд 30 30


Урок № 2 Задача № 2
Результат выполнения программы:
В банк

30Урок № 2 Задача № 2Результат выполнения программы:В банк внесли сумму Sv

внесли сумму Sv = 500

Сумма увеличится в 10 раз

до 5029,5 рублей
через 19 лет(года) и 5 месяц(ев)

Слайд 31 31
Найти все числа в интервале от 1 до

31Найти все числа в интервале от 1 до 1000, которые совпадают

1000, которые совпадают с последними разрядами своих квадратов,

например:

52 = 25, 252 = 625.



Урок № 2 Задача для самостоятельного решения

Перейти на слайд структуры курса

Слайд 32 32
Вычислить: M=X2+(2-A-A2)X-A2
при A=-2 и X=[1;10], шаг 2.
Просчитать все

32Вычислить: M=X2+(2-A-A2)X-A2при A=-2 и X=[1;10], шаг 2.Просчитать все значения уравнения, через

значения уравнения, через пробел вывести общий результат уравнения.


Урок №

3 Задача № 1

Слайд 33


Урок № 3 Задача № 1

Урок № 3 Задача № 1

Слайд 34 34
Program z3-1; Uses Crt; Var X:

34Program z3-1; Uses Crt; Var X: Integer;

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); Readkey End.



Урок № 3 Задача № 1

Слайд 35 35


Урок № 3 Задача № 1
Результат выполнения программы:
M=

35Урок № 3 Задача № 1Результат выполнения программы:M= -3 при A=

-3 при A= -2

при X=1
M= 5 при A= -2 при X=3
M= 21 при A= -2 при X=5
M= 45 при A= -2 при X=7
M= 77 при A= -2 при X=9

Mo= 145

Слайд 36 36
Каждая бактерия делится на 2 в течение 1

36Каждая бактерия делится на 2 в течение 1 минуты. В начальный

минуты. В начальный момент имеется одна бактерия. Составить программу,

которая рассчитывает количество бактерий на заданное вами целое число значение момента времени.



Урок № 3 Задача № 2

Перейти на слайд структуры курса

Слайд 37


Урок № 3 Задача № 2

Урок № 3 Задача № 2

Слайд 38 38
Program z3-2;
Uses Crt;
Var t,b:real; a:integer;
Begin

38Program z3-2;Uses Crt; Var t,b:real; a:integer;Begin ClrScr; a:=0;

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,' штук');
Readkey
End.

Урок № 3 Задача № 2



Слайд 39 39


Урок № 3 Задача № 2
Результат выполнения программы:
Задайте количество

39Урок № 3 Задача № 2Результат выполнения программы:Задайте количество времени:30За 30 мин.

времени:
30
За 30 мин. бактерия размножилась
с 1 до 1073741824

штук

Слайд 40 40
Составить программу, результатом выполнения которой является таблица значений

40Составить программу, результатом выполнения которой является таблица значений температуры по шкалам

температуры по шкалам Цельсия, Кельвина и Фаренгейта от 10

до 15 градусов через 0,4 градуса.



Урок № 3 Задача для самостоятельного решения

Перейти на слайд структуры курса

Слайд 41 41
Составьте программу, которая реализует эпизод применения компьютера в

41Составьте программу, которая реализует эпизод применения компьютера в книжном магазине.Урок № 4 Задача № 1

книжном магазине.


Урок № 4 Задача № 1

Слайд 42 42
Урок № 4 Задача № 1


42Урок № 4 Задача № 1

Слайд 43 43
Program z4-1;
Uses Crt;
Var s,kn:real;
Begin

43Program z4-1; Uses Crt; Var s,kn:real;Begin ClrScr; Write('Стоимость книги

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);
Readkey
End.



Урок № 4 Задача № 1

Слайд 44 44


Стоимость книги
560
Сумма денег
560
Спасибо
Урок № 4 Задача № 1
Результат выполнения

44Стоимость книги560Сумма денег560СпасибоУрок № 4 Задача № 1Результат выполнения программы:

программы:

Слайд 45 45


Урок № 4 Задача № 2
Написать программу которая выводит

45Урок № 4 Задача № 2Написать программу которая выводит звездочки в форме

звездочки в форме прямоугольного треугольника, от 1 до 'a‘.
Перейти

на слайд структуры курса

Слайд 46 46


Урок № 4 Задача № 2

46Урок № 4 Задача № 2

Слайд 47 47


Урок № 4 Задача № 2
Program z4-2;
Uses Crt;

47Урок № 4 Задача № 2Program z4-2;Uses Crt; Var a,i,j:integer;Begin ClrScr;

Var a,i,j:integer;
Begin ClrScr;
Write('Вводим значение a=

');
Readln(a);
For i:=1 to a do
Begin
For j:=1 to i do
Write('* ');
Writeln;
End;
Readkey;
End.

Слайд 48 48


Урок № 4 Задача № 2
Результат выполнения программы:
Вводим значение

48Урок № 4 Задача № 2Результат выполнения программы:Вводим значение a=7** ** *

a=
7

*
* *
* * *
* * * *
* * *

* *
* * * * * *
* * * * * * *

Слайд 49 49
Напишите программу, которая читает 5-ть чисел (каждая от

49Напишите программу, которая читает 5-ть чисел (каждая от 1 до 30)

1 до 30) для каждого просчитанного числа ваша программа

должна напечатать строку содержащую соответствующее число смежных звездочек.



Урок № 4 Задача для самостоятельного решения

Перейти на слайд структуры курса

Слайд 50 50
По номеру телефона выдать сообщение об учреждении и

50По номеру телефона выдать сообщение об учреждении и месте его расположения.Урок

месте его расположения.

Урок № 5 Задача № 1


Перейти на слайд

структуры курса

Слайд 51
Урок № 5 Задача № 1


Урок № 5 Задача № 1

Слайд 52 52
Program z5-1;
Uses CRT;
Var N: Integer;
Begin CLRSCR;

52Program z5-1;Uses CRT;Var N: Integer; Begin CLRSCR; Write ('Введите интересующий вас

Write ('Введите интересующий вас номер: ');
Readln

(N);
Case N of
01: Writeln ('Пожарная помощь, адрес: ул. Братская, 22');
02: Writeln ('Милиция, адрес: ул. Советская, 53');
03: Writeln ('Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7');
Else Writeln (‘Неправильно ввели номер’);
End;
Readkey;
End.

Урок № 5 Задача № 1



Слайд 53 53
Введите интересующий вас номер:
03
Скорая помощь, адрес: ул. 40

53Введите интересующий вас номер:03Скорая помощь, адрес: ул. 40 лет ПОБЕДЫ, 7Урок

лет ПОБЕДЫ, 7
Урок № 5 Задача № 1


Результат выполнения программы:

Слайд 54 54
Составьте программу которая по в веденному вами числу

54Составьте программу которая по в веденному вами числу k (число грибов)

k (число грибов) печатает фразу "Мы нашли в лесу

k грибов".



Урок № 5 Задача № 2

Перейти на слайд структуры курса

Слайд 55 55
Урок № 5 Задача № 2


55Урок № 5 Задача № 2

Слайд 56 56

Program z5-2;
Uses Crt;
Var k,k1:integer;
Begin ClrScr;
Write('k=');

56Program z5-2;Uses Crt;Var k,k1:integer;Begin ClrScr; Write('k='); Readln(k); k1:=k mod

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; Readkey;
End.



Урок № 5 Задача № 2

Слайд 57 57
K=
53
Мы нашли в лесу 53 гриба.
Урок № 5 Задача

57K=53Мы нашли в лесу 53 гриба.Урок № 5 Задача № 2Результат выполнения программы:

№ 2


Результат выполнения программы:

Слайд 58 58
Составьте программу которая выводит на экран по номеру

58Составьте программу которая выводит на экран по номеру месяца в году

месяца в году его название и количество дней. При

решении возьмите во внимание, что в високосный год в феврале месяце 29 дней, а в не високосный – 28.

Урок № 5 Задача для самостоятельного решения


Перейти на слайд структуры курса



  • Имя файла: yazyk-turbo-pascal-i-ego-prakticheskoe-primenenie.pptx
  • Количество просмотров: 103
  • Количество скачиваний: 0
- Предыдущая Создание базы адресов. Слияние
Следующая - Алюминий және оның қосылыстары

Похожие презентации

Операционные системы, среды и оболочки Операционные системы, среды и оболочки 121
Технологии и методологии проектирования ИС Технологии и методологии проектирования ИС 149
Монитор Монитор 140
Устройства вывода информации, монитор Устройства вывода информации, монитор 124
Структуры данных: деревья, сети, графы, таблицы Структуры данных: деревья, сети, графы, таблицы 147
Компьютерные игры Компьютерные игры 135
Кодирование текстовой информации Кодирование текстовой информации 109
Абсолютная и смешанные ссылки Абсолютная и смешанные ссылки 124
Презентация по информатике на тему Мир понятий Презентация по информатике на тему Мир понятий 162
Презентация Безопасность в сети Интернет Презентация Безопасность в сети Интернет 125
Строение компьютера Строение компьютера 203
Умеет ли компьютер думать? Умеет ли компьютер думать? 128
Презентация Римские цифры презентация к уроку по информатике (2 класс) по теме Презентация Римские цифры презентация к уроку по информатике (2 класс) по теме 141
Презентация по информатике на тему Компьютерная графика Презентация по информатике на тему Компьютерная графика 138
Компьютерные вирусы. Антивирусные программы. Компьютерные вирусы. Антивирусные программы. 162
Графический редактор Paint Графический редактор Paint 114
Устройства ввода и вывода Устройства ввода и вывода 88
Схема устройства компьютера Схема устройства компьютера 140
Защита информации Защита информации 105
Общие сведения о компьютере Общие сведения о компьютере 165
Архитектура предприятия. Лекция № 3. Стандарты, используемые при разработке архитектуры предприятия Архитектура предприятия. Лекция № 3. Стандарты, используемые при разработке архитектуры предприятия 119
Состав и компоновка ПК Состав и компоновка ПК 158
Проект Влияние компьютера на младших школьников Проект Влияние компьютера на младших школьников 150
Бази даних Бази даних 142
Чувственное познание окружающие мира Чувственное познание окружающие мира 128
Правила поведения в интернете Правила поведения в интернете 134
Types of graphic. Bitmap graphics. Differences between JPEG, GIF and bitmap Types of graphic. Bitmap graphics. Differences between JPEG, GIF and bitmap 109
Шаблоны классов Шаблоны классов 129
Создание графических объектов в текстовом редакторе. MS Word. Создание графических объектов в текстовом редакторе. MS Word. 165
Внеклассное мероприятие для 4 класса Основные части ПК Внеклассное мероприятие для 4 класса Основные части ПК 126