Презентация, доклад по информатике: Pascal ABC

Содержание

Запуск программы на выполнение 1. Выполняем проверку - F92. Производим компиляцию – Alt + F93. Запуск программы – Ctrl + F94. Просмотр содержимого окна консоли – Alt + F5ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Слайд 1Pascal ABS

Pascal ABS

Слайд 2Запуск программы на выполнение
1. Выполняем проверку - F9
2. Производим компиляцию

– Alt + F9
3. Запуск программы – Ctrl + F9
4. Просмотр содержимого окна консоли – Alt + F5

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Запуск программы на выполнение 1. Выполняем проверку - F92. Производим компиляцию – Alt + F93. Запуск программы

Слайд 3Простейшая программа
program qq;
begin { начало программы }
{ тело

программы }
end. { конец программы }

название программы

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Простейшая программаprogram qq;begin { начало программы } { тело программы } end. { конец программы

Слайд 4Оператор вывода
Оператор вывода используется для вывода на экран компьютера какой-либо информации:

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

Оператор вывода на Паскале выглядит так:


write (список вывода);
или
writeln (список вывода);


Как вы догадались, разница между ними в том, что в случае write курсор останется на той же строке, а при writeln – перейдет на другую строку.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Оператор выводаОператор вывода используется для вывода на экран компьютера какой-либо информации: вывод результатов алгоритма в конце программы

Слайд 5Вывод на экран
program qq;
begin
write('2+'); { без перехода }
writeln('2=?');

{ на новую строку}
writeln('Ответ: 4');
end.

Протокол:
2+2=?
Ответ: 4

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Вывод на экранprogram qq;begin write('2+'); { без перехода } writeln('2=?'); { на новую строку} writeln('Ответ: 4');end.

Слайд 6Задания
«А»: Вывести на экран текст «лесенкой»
Вася

пошел
гулять
«В»: Вывести на экран рисунок из букв
Ж
ЖЖЖ
ЖЖЖЖЖ
ЖЖЖЖЖЖЖ
HH HH
ZZZZZ

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Задания«А»: Вывести на экран текст «лесенкой» Вася пошел

Слайд 7Переменные
Переменная – это величина, имеющая имя, тип и значение. Значение переменной

можно изменять во время работы программы.

a

Значение

Имя

Другой тип данных

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ПеременныеПеременная – это величина, имеющая имя, тип и значение. Значение переменной можно изменять во время работы программы.aЗначениеИмяДругой

Слайд 8Имена переменных
МОЖНО использовать
латинские буквы (A-Z)


цифры


знак подчеркивания _
заглавные и строчные буквы НЕ

различаются

НЕЛЬЗЯ использовать
русские буквы
пробелы
скобки, знаки +, =, !, ? и др.

имя не может начинаться с цифры

Какие имена правильные?
AXby R&B 4Wheel Вася “PesBarbos” TU154 [QuQu] _ABBA A+B

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Имена переменныхМОЖНО использоватьлатинские буквы (A-Z)цифрызнак подчеркивания _заглавные и строчные буквы НЕ различаютсяНЕЛЬЗЯ использоватьрусские буквыпробелыскобки, знаки +, =,

Слайд 9Объявление переменных
Типы переменных:
integer { целая }
real { вещественная }
и другие…
Объявление переменных:
var a, b,

c: integer;

выделение места в памяти

variable – переменная

тип – целые

список имен переменных

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Объявление переменныхТипы переменных:integer { целая }real { вещественная }и другие…Объявление переменных:var a, b, c: integer;выделение места в памятиvariable –

Слайд 10ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ГБПОУ МО

Слайд 11Оператор ввода используется в Паскале для ввода переменных или других исходных

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

Оператор ввода на Паскале выглядит так:


read(список переменных);
или
readln(список переменных);


В переводе с английского read означает читать, а readln – читать строку.


Оператор ввода

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Оператор ввода используется в Паскале для ввода переменных или других исходных данных. К примеру, вам необходимо сложить

Слайд 12Оператор ввода
program Sum;
var a, b, c: integer;
begin
read ( a,

b );
c := a + b;
writeln ( c );
end.

Задача: найти сумму 2 целых чисел, результат вывести на экран

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Оператор ввода program Sum; var a, b, c: integer; begin read ( a, b ); c := a

Слайд 13Оператор ввода
program Sum;
var a, b, c: integer;
begin
writeln('Введите два целых

числа');
read ( a, b );
c := a + b;
writeln ( a, '+', b, '=', c );
end.

Протокол:
Введите два целых числа
25 30
25+30=55

компьютер

пользователь

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Оператор ввода program Sum; var a, b, c: integer; begin writeln('Введите два целых числа'); read ( a, b

Слайд 14Оператор присваивания на Паскале
Команда присваивания используется для изменения значений переменных.

В

языке Паскаль эта команда обозначается так:

имя переменной:=выражение

Например

А:=34;

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

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Оператор присваивания на ПаскалеКоманда присваивания используется для изменения значений переменных. В языке Паскаль эта команда обозначается так:имя

Слайд 15Стандартные функции
abs(x) — модуль
sqrt(x) — квадратный корень
sin(x) — синус угла, заданного

в радианах
cos(x) — косинус угла, заданного в радианах
exp(x) — экспонента ех
ln(x) — натуральный логарифм
trunc(x)— отсечение дробной части
round(x)— округление до ближайшего целого

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Стандартные функцииabs(x) — модульsqrt(x) — квадратный кореньsin(x) — синус угла, заданного в радианахcos(x) — косинус угла, заданного

Слайд 16Задачи
Ввести с клавиатуры три целых числа, найти их сумму, разность, произведение

и среднее арифметическое.
Пример:
Введите три целых числа:
5 7 8
5+7+8=20
5*7*8=280
(5+7+8)/3=6.667

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачиВвести с клавиатуры три целых числа, найти их сумму, разность, произведение и среднее арифметическое. Пример:Введите три целых

Слайд 17Программа
Напишите программу которая находит сумму 2 чисел, числа даны в теле

программы

Program lab1_3;
Var a,b,c: integer;
BEGIN
c:=5;
b:=4;
a:=c*b;
writeln(‘Ответ: ’,a);
END.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ПрограммаНапишите программу которая находит сумму 2 чисел, числа даны в теле программыProgram lab1_3;Var a,b,c: integer;BEGINc:=5;b:=4;a:=c*b;writeln(‘Ответ: ’,a);END. ГБПОУ МО

Слайд 18Программа
Напишите программу которая выводит Ваше имя и Ваш возраст
program name;
Var a:

Integer;
b: String;
Begin
Writeln ('Введите имя ');
Readln (b);
Writeln ('Ваш возраст? ');
Readln (a);
Writeln (b,',вам ', а,’ лет?');
End.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ПрограммаНапишите программу которая выводит Ваше имя и Ваш возрастprogram name;Var a: Integer;b: String;Begin Writeln ('Введите имя ');

Слайд 19Самостоятельная работа
1. Вычислить значение выражения:
а) y = 15x2 + 8x

– 9 (переменная х должна вводиться с клавиатуры);
б) a = (b + c)*d – k (переменные b,c,d,k должны вводиться с клавиатуры).
2. Выведите на экран свою фамилию, имя и отчество, в следующей строке - дату рождения (все текстовые данные должны вводиться с клавиатуры).
3. Найти значение выражения: (a + (d - 12)*3) * (c - 5*k), где
а) значения переменных a, d, c и k вводятся с клавиатуры.
б) даны в тексте программы

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работа1. Вычислить значение выражения:а) y = 15x2 + 8x – 9 (переменная х должна вводиться

Слайд 20Самостоятельная работа
4. Найти периметр:
а) прямоугольника, ширину и длину вводить с клавиатуры;
б)

треугольника, длины всех сторон вводить с клавиатуры;
с) произвольного четырехугольника.
5. Написать программу вычисления стоимости покупки, состоящей из нескольких тетрадей и карандашей. Ниже представлен рекомендуемый вид экрана во время работы программы (данные, введенные пользователем, выделены полужирным шрифтом)

ВЫЧИСЛЕНИЕ СТОИМОСТИ ПОКУПКИ.
ВВЕДИТЕ ИСХОДНЫЕ ДАННЫЕ:
ЦЕНА ТЕТРАДИ (РУБ.) > 2.75
КОЛИЧЕСТВО ТЕТРАДЕЙ > 5
ЦЕНА КАРАНДАША (РУБ.) > 0.85
КОЛИЧЕСТВО КАРАНДАШЕЙ > 2
СТОИМОСТЬ ПОКУПКИ: 15.45 РУБ.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работа4. Найти периметр:а) прямоугольника, ширину и длину вводить с клавиатуры;б) треугольника, длины всех сторон вводить с

Слайд 21«Условный оператор» или «Ветвление»
На языке Pascal условное ветвление описывает оператор If,

который имеет следующий вид:

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

«Условный оператор» или «Ветвление»На языке Pascal условное ветвление описывает оператор If, который имеет следующий вид:ГБПОУ МО

Слайд 22Задача
Напишите программу, которая делит число А на число В, если В=0,

выводит ошибку «на 0 делить нельзя»

Program zadamie2;
Var b,c: integer;
a: real;
BEGIN
Writeln ('Введите число с');
Readln(c);
Writeln ('Введите число b');
Readln (b);
If b=0 Then Writeln('Делить на ноль нельзя!')
Else a:=c/b;
writeln('Ответ = ',a);
END.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачаНапишите программу, которая делит число А на число В, если В=0, выводит ошибку «на 0 делить нельзя»Program

Слайд 23Задача
Написать программу, которая будет заменять переменную противоположным
значением, если она изначально была

меньше нуля.

Program lab2_2;
Var x: integer;
BEGIN
Writeln ('Введите число х');
Readln(x);
If x<0 Then x:= -x; {как видим оператор Else отсутствует!}
Writeln ('Наше число',x);
END.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачаНаписать программу, которая будет заменять переменную противоположнымзначением, если она изначально была меньше нуля.Program lab2_2;Var x: integer;BEGINWriteln ('Введите

Слайд 24Задача
Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0;5).
Обозначим:

x - число, вводимое с клавиатуры пользователем (это переменная целого типа). Принадлежность числа x интервалу (0;5) определяется следующей системой неравенств:




Число X принадлежит заданному интервалу лишь в том случае, если одновременно выполняются оба условия– число х больше 0 и одновременно меньше 5.

На языке Pascal данное условие позволит осуществить оператор AND:

<Выражение 1> AND < Выражение 2>

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачаНаписать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0;5).Обозначим: x - число, вводимое с клавиатуры

Слайд 25Задача
Написать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0;5).
Program

w2;
Var x : Integer;
Begin
Writeln('Введите число x');
Readln(x);
If (x>0) And (x<5)
Then
Writeln(' Ответ: 2',x,' принадлежит интервалу(0;5)')
Else
Writeln(' Ответ: ',x,' не принадлежит интервалу');
End.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачаНаписать программу, проверяющую, принадлежит ли число, введенное с клавиатуры, интервалу (0;5).Program w2;Var x : Integer;BeginWriteln('Введите число x');Readln(x);If

Слайд 26Самостоятельная работа
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаГБПОУ МО

Слайд 27Самостоятельная работа
Даны два числа. Вывести на экран то из них, которое

больше (числа вводятся с клавиатуры).
Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
Даны два числа. Вывести вначале большее, а затем меньшее из них. (числа вводятся с клавиатуры).
Напишите программу которая определяет является ли этот треугольник прямоугольным.
Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.


ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаДаны два числа. Вывести на экран то из них, которое больше (числа вводятся с клавиатуры).Дано целое

Слайд 28Самостоятельная работа
program 1;
var
a, b: integer;
begin
Writeln('введите число №1');
readln(a);
Writeln('введите число №2');
readln(b);
if a >

b then
writeln('max:',a)
else
writeln('Ответ max:',b)
end.

Program If_2;
var a: integer;
begin
Writeln('введите число');
readln(a);
if a > 0 then a:=a+1
else a:=a-1;
write('ответ2',a);
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаprogram 1;vara, b: integer;beginWriteln('введите число №1');readln(a);Writeln('введите число №2');readln(b);if a > b then writeln('max:',a)else writeln('Ответ max:',b)end. Program If_2;

Слайд 29Самостоятельная работа
Program 3;
var a, b: integer;
begin
write('Введите числа 1:

');
readln(a);
write('Введите числа 2: ');
readln(b);
if a > b then
writeln(a,' ', b)
else
writeln(b,' ', a);
end.

Program 4;
Var a, b, c: real;
Begin
writeln ('введите сторону а');
Readln ( a);
writeln ('введите сторону b');
Readln ( b);
writeln ('введите сторону c');
Readln ( c);
If a*a + b*b = c*c then writeln ('треугольник прямоугольный')
else writeln ('не прямоугольный');
Readln;
End.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаProgram 3; var a, b: integer; begin write('Введите числа 1: '); readln(a); write('Введите числа 2: ');

Слайд 30Самостоятельная работа
Program 5;
var a, b: integer;
begin
write('Введите A: ');


readln(a);
write('Введите B: ');
readln(b);
if a <> b
then
writeln('A = ', a+b,'; B = ', a+b)
else
writeln('A = ',0,'; B = ',0);
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаProgram 5; var a, b: integer; begin write('Введите A: '); readln(a); write('Введите B: '); readln(b); if

Слайд 31Задача
Напишите программу которая находит корни квадратного уравнения вида:
ax2 + bx

+ c = 0. Числа a,b,c вводить с клавиатуры.

var
a,b,c: real;
x1,x2,D: real;
begin
writeln('Введите коэффициенты a,b,c квадратного уравнения a*x*x+b*x+c=0: ');
readln(a,b,c);
D := b*b - 4*a*c;
if D<0 then
writeln('Корней нет')
else if D=0 then
begin
x1 := -b/2/a;
writeln('Корни совпадют: x1=x2=',x1);
end
else
begin
x1 := (-b-sqrt(D))/2/a;
x2 := (-b+sqrt(D))/2/a;
writeln('Корни: x1=',x1,' x2=',x2);
end;
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ЗадачаНапишите программу которая находит корни квадратного уравнения вида: ax2 + bx + c = 0. Числа a,b,c

Слайд 32«Оператор выбора»
Мы рассмотрели ветвление двух направлений: по принципу условие верно –

идти по одной ветви, условие ложно – по другой. В этом случае применяется оператор if.

Как быть, если вариантов ветвления несколько?
На рисунке приведена схема, когда «ветвей» (или направлений) может быть несколько: если k=l – идти по одной ветви, если k=2 – по другой, k=3 – по третьей и т.д. в этом случае удобнее применять оператор Case.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

«Оператор выбора»Мы рассмотрели ветвление двух направлений: по принципу условие верно – идти по одной ветви, условие ложно

Слайд 33«Оператор выбора»
Задание 1. Напишите программу, выводящую названия дней недели согласно определенному

номеру. Воспользоваться последовательностью операторов IF:

Program nedela;
Var x : Integer;
Begin
Writeln ('Введите x');
Readln(x);
if x=1 then writeln ('понедельник');
if x=2 then writeln ('вторник');
if x=3 then writeln ('среда');
if x=4 then writeln ('четверг');
if x=5 then writeln ('пятница');
if x=6 then writeln ('суббота');
if x=7 then writeln('воскресенье');
End.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

«Оператор выбора»Задание 1. Напишите программу, выводящую названия дней недели согласно определенному номеру. Воспользоваться последовательностью операторов IF:Program nedela;

Слайд 34«Оператор выбора»
Задание 1. Напишите программу, выводящую названия дней недели согласно определенному

номеру. Воспользоваться оператор выбора CASE:

Где CASE (выбор), OF(из), ELSE (иначе), END(конец) – служебные слова;

Program nedela;
var
x: integer;
begin
write('Введите № дня недели -> ');
readln(x);
case x of
1: write('Понедельник');
2: write('Вторник');
3: write('Среда');
4: write('Четверг');
5: write('Пятница');
6: write('Суббота');
7: write('Воскресенье');
end;
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

«Оператор выбора»Задание 1. Напишите программу, выводящую названия дней недели согласно определенному номеру. Воспользоваться оператор выбора CASE:Где CASE

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

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

Program mes;
Var x: integer;
begin
write('Введите № месяца');
readln(x);
case x of
1: writeln ('зима');
2: writeln ('зима');
12: writeln ('зима');
3: writeln ('весна');
4: writeln ('весна');
5: writeln ('весна');
6: writeln ('лето');
7: writeln ('лето');
8: writeln ('лето');
9: writeln ('осень');
10: writeln ('осень');
11: writeln ('осень’);
Else writeln ('ошибка! Число должно быть от 1 до 12!');
end; end.

Program mes;
var
x: integer;
begin
writeln('Введите № месяца');
Readln(x);
CASE x OF
1, 2, 12: writeln ('зима');
3..5: writeln ('весна');
6..8: writeln ('лето');
9..11: writeln ('осень');
Else writeln ('ошибка!');
writeln ('Число должно быть от 1 до 12!');
End;
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

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

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

от 1 до 7 выдавать в качестве результата количество уроков в классе в соответствующий день

Program pr;
Var x:integer;
Begin
Writeln('введите день недели');
readln(x);
case x of
1:Writeln('Учебная практика');
2,3,4:Writeln('6 уроков');
5:Writeln('1 подгруппа -6 уроков,2 подгруппа -8 уроков');
6:Writeln('6 уроков');
7:Writeln('Выходной');
end;
readln;
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

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

Слайд 37Самостоятельная работа
Написать программу преобразования цифр (от 0 до 9) в слова

(ноль, один и т.д.). Цифры вводить с клавиатуры.


Program Num;
Var
a : integer;
Begin
writeln('Введите цифру');
readln(a);
case a of
0 : writeln ('ноль');
1 : writeln ('один');
2 : writeln ('два');
3 : writeln ('три');
4 : writeln ('четыре');
5 : writeln ('пять');
6 : writeln ('шесть');
7 : writeln ('семь');
8 : writeln ('восемь');
9 : writeln ('девять')
else writeln ('Это число не является цифрой');
end;
readln;
End.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работа Написать программу преобразования цифр (от 0 до 9) в слова (ноль, один и т.д.). Цифры вводить

Слайд 38Самостоятельная работа
Напишите программу моделирующую работу калькулятора, который может выполнять такие действия

как: сложение, вычитание, умножение, деление.

program Kalculator;
var a,b,rez:real;
p:char;
begin
write('Напишите 1-ое число :');
readln(a);
writeln(a);
write ('Напишите знак :');
readln(p);
case p of
'+': writeln ('плюс');
'-': writeln ('минус');
'*': writeln ('умножить');
'/': writeln ('делить');
end;

write('Напишите 2-ое число :');
readln(b);
writeln(b);
case p of
'+': rez:=a+b;
'-': rez:=a-b;
'*': rez:=a*b;
'/': rez:=a/b;
end;
writeln ('Получится :');
writeln (a,p,b,'=',rez);
end.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работа Напишите программу моделирующую работу калькулятора, который может выполнять такие действия как: сложение, вычитание, умножение, деление. program

Слайд 39СТРОКОВЫЙ ТИП ДАННЫХ
var a:string
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

СТРОКОВЫЙ ТИП ДАННЫХ var a:stringГБПОУ МО

Слайд 40Строковый тип данных (STRING) в паскаль служит для проведения операций с

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

Cтроковый тип данных

Строковый тип данных (STRING) в паскаль служит для проведения операций с текстом, состоящим из различных символов. В одну переменную типа String можно записать до 255 символов.
Переменная string описывается так же, как и переменные типа real или integer.
var s:string;
Если вы хотите указать максимальное количество символов, которое может содержать в себе строка, то это делается в квадратных скобках:
var s:string[8];

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Строковый тип данных (STRING) в паскаль служит для проведения операций с текстом, состоящим из различных символов. В

Слайд 41Операции над строками
Длина строки:
var n: integer;
...
n:= Length(s);
ГБПОУ МО "Колледж "Коломна" СП2

Михалин В.В.
Операции над строкамиДлина строки:var n: integer;...n:= Length(s);ГБПОУ МО

Слайд 42Символьные строки
Задача: заменить в строке все буквы 'а' на буквы 'б'.


ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Символьные строкиЗадача: заменить в строке все буквы 'а' на буквы 'б'. ГБПОУ МО

Слайд 43Операции со строками
Объединение (конкатенация) :
s1:= 'Привет';
s2:= 'Вася';
s := s1

+ ', ' + s2 + '!';

'Привет, Вася!'

Напишите программу, которая выведен на экран:
ФИО;
Дату рождения
Курс
группу

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Операции со строкамиОбъединение (конкатенация) :s1:= 'Привет'; s2:= 'Вася'; s := s1 + ', ' + s2 +

Слайд 44Операции со строками
Срез:
s:= '123456789';
s1:= Copy(s, 3, 5); { '34567'

}

с какого символа

откуда

5

Напишите программу которая с помощью операции «срез»
Из числа 7978917238713712481248 получает число 238. Число вводится с клавиатуры!!!

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Операции со строкамиСрез:s:= '123456789';s1:= Copy(s, 3, 5); { '34567' }с какого символаоткуда5Напишите программу которая с

Слайд 45Операции со строками
Удаление:
Напишите программу которая с помощью операции «удаление»
Из числа 7978917238713712481248

получает число 7948.
Число вводится с клавиатуры!!!

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Операции со строкамиУдаление:Напишите программу которая с помощью операции «удаление»Из числа 7978917238713712481248 получает число 7948. Число вводится с

Слайд 46Операции со строками
Напишите программу которая с помощью операции «Вставка» добавляет строку

«ФИО» в строку 7978917238713712481248.
В итоге должно получиться:
797891Иванов Иван Иванович7238713712481248
Число задается в теле программы!!!

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Операции со строкамиНапишите программу которая с помощью операции «Вставка» добавляет строку «ФИО» в строку 7978917238713712481248.В итоге должно

Слайд 47Поиск в строках
что
где
Напишите программу которая с помощью операции «Поиск» находит в

строке «Мороз и солнце; день чудесный!» определит номер символа «Л». {11}
Подсчитывает в данной строке кол-во символом {30}
Выводит сумму подсчитанных символов и номер позиции символа и умножает ее на 1024. {41984}
Строка прописывается в программе.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Поиск в строкахчтогдеНапишите программу которая с помощью операции «Поиск» находит в строке «Мороз и солнце; день чудесный!»

Слайд 48Графика в
Pascal ABS
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Графика в Pascal ABSГБПОУ МО

Слайд 49 Модуль GraphABC
Для работы с графикой в pascal abc используется модуль GraphABC.
Для

его подключения используется следующий код:

Для установки размеров графического окна используется процедура

SetWindowSize (ширина, высота)

SetWindowWidth(600);
SetWindowHeight(400);

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 Модуль GraphABCДля работы с графикой в pascal abc используется модуль GraphABC. Для его подключения используется следующий код:Для установки

Слайд 50 Система координат в Pascal
Система координат в Паскале выглядит следующим образом:
ГБПОУ МО

"Колледж "Коломна" СП2 Михалин В.В.
 Система координат в PascalСистема координат в Паскале выглядит следующим образом:ГБПОУ МО

Слайд 51 Цвета в Pascal
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 Цвета в PascalГБПОУ МО

Слайд 52 Управление цветом
setPenColor(color) — устанавливает цвет пера, задаваемый параметром color;
setBrushColor(color) — устанавливает цвет кисти, задаваемый

параметром color;
FloodFill(x,y,color) — заливает область одного цвета цветом color, начиная с точки (x,y).

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 Управление цветомsetPenColor(color) — устанавливает цвет пера, задаваемый параметром color;setBrushColor(color) — устанавливает цвет кисти, задаваемый параметром color;FloodFill(x,y,color) — заливает область одного цвета цветом color,

Слайд 53 ТОЧКИ, ОТРЕЗКИ
Для отображения точки в паскале используется процедура:
SetPixel(x,y,color) — Закрашивает один пиксел

с координатами (x,y) цветом color

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 ТОЧКИ, ОТРЕЗКИДля отображения точки в паскале используется процедура:SetPixel(x,y,color) — Закрашивает один пиксел с координатами (x,y) цветом color ГБПОУ МО

Слайд 54 ТОЧКИ, ОТРЕЗКИ
Для рисования линии используется:
Line(x1,y1,x2,y2) — рисует отрезок с началом в точке (x1,y1) и

концом в точке (x2,y2)

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 ТОЧКИ, ОТРЕЗКИДля рисования линии используется:Line(x1,y1,x2,y2) — рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2)ГБПОУ МО

Слайд 55 Прямоугольник
Rectangle(x1,y1,x2,y2) — рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).
ГБПОУ МО "Колледж "Коломна" СП2

Михалин В.В.
 ПрямоугольникRectangle(x1,y1,x2,y2) — рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).ГБПОУ МО

Слайд 56 Фигуры с заливкой
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

 Фигуры с заливкойГБПОУ МО

Слайд 57Окружность
Окружность можно нарисовать с помощью процедуры:
Circle(x,y,r) — рисует окружность с центром

в точке (x,y) и радиусом r.

ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

ОкружностьОкружность можно нарисовать с помощью процедуры:Circle(x,y,r) — рисует окружность с центром в точке (x,y) и радиусом r.ГБПОУ

Слайд 58Самостоятельная работа
Нарисуйте снеговика
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаНарисуйте снеговикаГБПОУ МО

Слайд 59Самостоятельная работа
Нарисуйте домик.
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Самостоятельная работаНарисуйте домик.ГБПОУ МО

Слайд 60Итоговая самостоятельная работа Pascal ABC
ГБПОУ МО "Колледж "Коломна" СП2 Михалин В.В.

Итоговая самостоятельная работа Pascal ABCГБПОУ МО

Слайд 61Pascal ABS

Pascal ABS
Скачать презентацию

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

Презентация и файл с заданиями по информатике Форматирование абзацев(9 класс) Стили заголовок 1 выровнять по середине (Ctrl+E), абзац интервал перед 20, после 24, размер шрифта 18Задание№2. Напечатать текст, а затем отформатировать, его так как указано в Презентация и файл с заданиями по информатике Форматирование абзацев(9 класс) Стили заголовок 1 выровнять по середине (Ctrl+E), абзац интервал перед 20, после 24, размер шрифта 18Задание№2. Напечатать текст, а затем отформатировать, его так как указано в 165
Презентация Мультимедиялық презентацияның конструкторы Презентация Мультимедиялық презентацияның конструкторы 134
Искусство иллюзии Искусство иллюзии 214
Презентация по робототехнике Робототехника как инструмент формирования инженерной компетенции обучающихся в рамках реализации ФГОС Презентация по робототехнике Робототехника как инструмент формирования инженерной компетенции обучающихся в рамках реализации ФГОС 235
Урок по теме: Информация. Единицы измерения информации Урок по теме: Информация. Единицы измерения информации 143
Интерактивный тест по программированию 8 класс Интерактивный тест по программированию 8 класс 232

Что такое shareslide.ru?

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

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

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

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

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