Презентация, доклад по информатике Учебник по Паскалю

ГрафикаГрафика.ppt

Дополнительно

*

Графика

Проект создан группой учащихся 11 класса
МОУ СОШ № 24

Смоленск 2011

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

ВВЕДЕНИЕ

Графика

Дополнительно

*

Дополнительно

Графика

4 Знаки операций
Знаки операций предназначены для обозначения арифметических, логических или других действий (см. таблицы темы “”)

*

Дополнительно

Графика

Графика

4 Знаки операций
Знаки операций предназначены для обозначения арифметических, логических или других действий (см. таблицы темы “”)

*

Дополнительно

Графика

Графика

*

Дополнительно

Графика

Графика

*

Дополнительно

Графика

Графика

*

*

Дополнительно

Графика

Графика

*

*

Дополнительно

Графика

Графика

*

*

Дополнительно

Графика

Графика

Задачи
1.К какому типу в Паскале относятся следующие последовательности символов?
а) –123; б) 0.003; в) ’d’; г)’1.245’; д) ’Учебник по информатике’; е) True
2.Как хранится в памяти компьютера следующая последовательность символов?
а)12; б)-34.02; в) ’s’
Сколько байт выделяется для хранения? Почему?

*

*

Дополнительно

Графика

Графика

Константы – это величины, которые в ходе выполнения программы не изменяют свое значение. Они могут задаваться:
- в явном виде и тогда их вид определяет тип константы
Примеры:
17 - Integer; 3.14 - Real; ’h’ - Char; ’Tyrbo Pascal’ - String; True - Boolean
в виде именованной константы, тогда имя константы должно быть описано и указано ее значение.
Примеры:
С1=17;
С2=3.14;
С3=’h’;

*

Графика

Дополнительно

Графика

*

*

*

*

*

Дополнительно

Графика

Графика

Раздел описания меток
Label <метки>;

*

Дополнительно

Графика

Графика

Раздел описания переменных

Var <записываются имена всех переменных, используемых в программе>;
Переменные одного типа можно описать общим списком.
Пример1:
Описать переменные квадратного уравнения ax2+bx+c=0
Все переменные действительного типа
Var A,B,C,D,X1,X2:Real;
Пример2:
Если в программе используются переменные различных типов, то их разносят по спискам своего типа
Var A,B,C,D,X1,X2:Real;
I,S,Max:Integer;
Str:String;

*

Дополнительно

Графика

Графика

По назначению операторы можно разбить на следующие группы:
1 группа - из одного оператора присваивания.
Служит для вычисления значений выражений и присваивания их переменным
2 группа - операторы ввода-вывода.
Служат для обмена информацией между человеком и компьютером
3 группа – операторы обращения к процедуре.
Служат для структуризации программы
4 группа – операторы управления ходом выполнения программы.
Служат для изменения естественного порядка выполнения программы

*

Дополнительно

Графика

СТРУКТУРА ПРОГРАММЫ

Задачи
Описать переменные, которые используются при нахождении площади треугольника по трем сторонам (формула Герона).
Описать переменные, которые используются при нахождении расстояния между двумя точками с координатами x1, y1 и x2, y2.

Типы данных (простые)

Выражения

Структура программы

Линейные алгоритмы

Разветвляющиеся алгоритмы

Введение

Алфавит языка

Циклические алгоритмы

Массивы (структурный тип )

*

Дополнительно

Графика

Оператор присваивания A:=B;

А – переменная;
В – выражение;
Типы переменной А и значение переменной В должны соответствовать друг другу.
Если переменная А - целого типа, то выражение В тоже должно иметь значение целого типа.

Задачи.
1.Какие из следующих последовательностей символов являются операторами присваивания?
а)X:=Y; б)Min=K+1; в)Summa+1:=W; г)S:=S; д)A:=’****’; е)Rrr=125+1*A ж)Str:=’120*Y’; з)T:=5>Y;
2.Пусть значения переменных Х и У равны, соответственно, 3 и –2, какие значения будут иметь эти переменные после выполнения операторов присваивания?
а) X:=X+2*Y; Y:=Y/2;
в) Y:=-Y; X:=X+Y; Y:=Y+1;
г) X:=1; X:=X+Y;
д) X:=Y; Y:=X;

*

Дополнительно

Графика

*

Дополнительно

Графика

*

Дополнительно

Графика

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

*

Дополнительно

Графика

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

*

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

назад

Дополнительно

Графика

*

назад

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

*

Дополнительно

Графика

ПРОГРАММИРОВАНИЕ ЛИНЕЙНЫХ АЛГОРИТМОВ

*

задачи

Дополнительно

Графика

3. Какие числа будут выведены в результате выполнения последовательности
операторов:
Read(X); X:=X Mod 2; X:=Sqrt(X+1); Write(X,X*2); если в качестве исходного
данного использовалось число: а) 2; б)1.2; в)6; г)5.4?
4. Вычислить расстояние между двумя точками с данными координатами X1,Y1 и X2,Y2.
5. На предприятии 2-м рабочим выделена премия (N руб). Разделить эту премию между рабочими в зависимости от стажа их работы на предприятии (прямо пропорциональная зависимость). Стаж вводится с клавиатуры.
6. По стороне основания и боковому ребру определить полную площадь поверхности правильной призмы:
а) треугольной; б) четырехугольной; в)шестиугольной.
7. Продолжить программу –«Диалог с компьютером».
8. Дано целое число А. Не используя никаких функций и никаких операций кроме умножения получить:
а) А8 за три операции; б) А10 за четыре операции; в) А7 за четыре операции;
9. Дано число Х. Вычислить выражение 2х4-3х3+4х2-5х+6.Позаботиться об
экономии операций.

*

назад

Условный оператор

Условный оператор имеет вид:
If Q Then B1 [Else B2];
Блок-схема:

B1

(Else) - +(Then)

Q - выражение, принимающее логическое значение;
B1, B2 – любые операторы, в единственном числе;
Выполняются:
Вычисляется выражение Q, которое имеет логическое значение.
Если это значение True, то выполняется оператор B1. Если же Q имеет значение False, то в случае полной формы условного оператора выполняется оператор B1 , а в случае неполной формы управление передается следующему оператору программы.

*

*

пример

Дополнительно

Графика

ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ

*

Для самостоятельной работы

Дополнительно

Графика

Y= (X+2)2 , X>=0
X-2 ,X<0
4. Даны числа А, B, Х. Составить программу вычисления значения Y.

(X+2)2 , X Y= X-2 ,A<=X<=B
2*X ,X>B

5. Даны 3 различных числа. Найти максимальное из этих чисел.
6. Даны 3 числа. Определить сколько среди них нулей.
7. Даны 3 числа. Определить сколько среди них отрицательных и сколько
положительных чисел.

ПРОГРАММИРОВАНИЕ РАЗВЕТВЛЯЮЩИХСЯ АЛГОРИТМОВ

*

*

Составной оператор

Дополнительно

Графика

Задача :
Даны 2 различных числа. Вычислить x=(y+z)2; - где y=max*2; z=max/min;
Решение:
Program Vet2;
Var A,C,Max,Y:Integer;
Z,X:Real;
Begin
Writeln(’Введите 2 различных числа’);
Readln(A,C);
If A>C Then
Begin
Y:=A*2;
Z:=A/C;
End
Else
Begin
Y:=C*2;
Z:=C/A;
End;
X:=SQR(Y+Z);
Write(’X = ’,X);
End.

*

*

задача

Дополнительно

Графика

ИСПОЛЬЗОВАНИЕ СОСТАВНОГО ОПЕРАТОРА

*

*

Для самостоятельной работы

Дополнительно

Графика

ИСПОЛЬЗОВАНИЕ СОСТАВНОГО ОПЕРАТОРА

*

*

Логические условия

Дополнительно

Графика

Задача .
Даны числа X,Y,Z. Проверить, можно ли построить треугольник с данными сторонами.
Решение:
Program Vet3;
Var X,Y,Z:Integer;
Begin
Writeln(’Введите 3 числа’);
Readln(X,Y,Z);
If (X+Y>Z) and (X+Z>Y) and (Y+Z>X) Then
Writeln(’Треугольник существует.’)
Else
Writeln(’Треугольник не существует.’);
End.

*

*

задачи

Дополнительно

Графика

ИСПОЛЬЗОВАНИЕ СОСТАВНЫХ ЛОГИЧЕСКИХ УСЛОВИЙ

*

*

Дополнительно

Графика

задачи

*

*

Дополнительно

Графика

ОПЕРАТОР ВАРИАНТА (ВЫБОРА)

задача

*

*

Дополнительно

Графика

*

*

Дополнительно

Графика

задача

*

*

Дополнительно

Графика

*

*

Дополнительно

Графика

*

Дополнительно

Графика

M2;

Repeat
M1;
M2;
:
Mk;
Until N;
Блок - схема

:

:

-

Repeat – повторять;
Until – до;
M1, M2,…, Mk – группа операторов, они называются операторами тела цикла.
N – выражение, имеющее логическое значение (условие выхода из цикла)
Выполняется:
Выполняются операторы M1, M2,…, Mk;
Вычисляется значение N;
Если N – True, то оператор цикла заканчивает свою работу, иначе перейти к пункту 1
Среди операторов тела цикла обязательно должен присутствовать оператор, изменяющий значение выражения N;

задача

*

*

Дополнительно

Графика

ЦИКЛ С ПОСТУСЛОВИЕМ («ДО»)

Задачи для самостоятельного решения:
Даны числа от 1 до N. Найти: а) сумму всех чисел; б) произведение всех чисел; в) среднее арифметическое.
Вычислить сумму всех двузначных чисел.
Вычислить сумму чисел: S=1+3+5+…+R где R-нечетное.
Вычислить произведение чисел: P=2+4+6+…+R где R-четное.
Найти значения функции y=x2 при х=1,3,5,…,15.
Найти значения функции р=(р2+15) при р=2,4,6,…,20.

*

Дополнительно

Графика

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ «ПОКА»

While N do M;

M

задача

*

*

Дополнительно

Графика

Решение:
Program Ci2;
Var K,N:Integer;
S:Real;
Begin
Writeln(’Введите четное число’);
Readln(N);
K:=0;S:=0;
While K Begin
K:=K+2;
S:=S+1/K;
End;
Writeln(’S= ’,S);
End.

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ «ПОКА»

Сам работа

*

Дополнительно

Графика

3. Найти значение Х: Х=(1*3*5*…*N)/(1+3+5+…+N) (N – нечетное).
4. Даны числа от 1 до N. Вычислять: S=

вплоть до слагаемого, меньшего заданного Е (Е<1).
5. Вычислить среднее арифметическое чисел K,K+1,K+2,…,K+N; (K6. Вычислить сумму чисел: S=N+(N+1)+(N+2)+(N+3)+…+(N+R); (N7.Вычислить произведение чисел: P=N*(N+1)*(N+2)*(N+3)*…*(N+R); (N8 .Вычислить: P=1+(1*2)+(1*2*3)+(1*2*3*…*R).
9. Найти значения функции M=N2-N при N={2,4,6,…,T} (T-четное).
10. Найти значения функции X=Y2*(Y2-Y)/Y при Y={N,N*1,N*2,…,N*M} (N

ОПЕРАТОР ЦИКЛА С ПРЕДУСЛОВИЕМ «ПОКА»

*

Дополнительно

Графика

For – для;
To – до;
Downto – уменьшая до;
K – переменная порядкового типа (Integer, Char, Boolean), называется параметром цикла;
N1, N2 – выражение, имеющее значение того же типа, что и параметр K;
M – любой оператор в единственном числе;
Если по смыслу задачи надо повторять группу операторов, то их надо превратить в один составной оператор (заключить в операторные скобки):
Выполняется:
Вычисляется значение N1, N2;
K:=N1;
Проверяется условие:
K<=N2 (to)
K>=N2 (downto)
Если условие не выполнено, то выполнение оператора цикла заканчивается. Иначе выполняется оператор M;
K – получает приращение:
K:=succ(K) (to);
K:=pred(K) (downto);
Переход к пункту 3;

задачи

*

*

Дополнительно

Графика

Задача .
Вывести на экран цифры в обратной последовательности
Решение:
Program Ci4;
Var R:Integer;
Begin
For R:=9 downto 1 do Write(R,’ ’:4);
End.
Задача
Вывести на экран 10 случайных чисел в диапазоне от 0 до 100.
Решение:
Program Ci4;
Const X=100;
Var Y,R:Integer;
Begin
Randomize; {инициализирует генератор случайных чисел}
For R:=1 to 10 do
Begin
Y:=Random(X);
Writeln(R,’=’,Y);
End;
End.

ЦИКЛ С ПАРАМЕТРОМ

*

*

Дополнительно

Графика

пример

*

Дополнительно

Графика

Например, элемент таблицы, стоящий в строке с индексом 17 и в столбце – 1 вагон, имеет значение – Вася.

*

Дополнительно

Графика

*

Дополнительно

Графика

Каждое число в таблице имеет тип Integer. Это - тип злементов (M).
Индексы данной таблицы изменяются от 1 до 8 . У одномерных массивов один список (B1).
Таким образом, описание этого массива (в разделе Var) выглядит так: Tab:Array[1..8] of Integer;
Задав конкретные значения индексов, можно выбрать определенный элемент массива. Например, оператор:
N:=A[5];
Присвоит переменной N значение элемента массива, имеющего индекс 5, т.е. число 11.

задача

*

Дополнительно

Графика

решение

ОДНОМЕРНЫЕ МАССИВЫ

*

Дополнительно

Графика

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

ОДНОМЕРНЫЕ МАССИВЫ

*

Дополнительно

Графика

ОДНОМЕРНЫЕ МАССИВЫ

*

Дополнительно

Графика

Задачи для сам работы

*

Дополнительно

Графика

НАХОЖДЕНИЕ МАКСИМАЛЬНОГО ЭЛЕМЕНТА МАССИВА

*

Дополнительно

Графика

*

самостоятельная работа

Дополнительно

Графика

СОРТИРОВКА ОДНОМЕРНОГО МАССИВА

*

Дополнительно

Графика

*

Дополнительно

Графика

Каждое число в таблице имеет тип Integer. Это - тип злементов (M).
У двумерных массивов два списка (B1,B2).
Таким образом, описание этого массива (в разделе Var) выглядит так : Tab:Array[1..3,1..4] of Integer;
Задав конкретные значения индексов, можно выбрать определенный элемент массива. Например оператор:
N:=A[1,3];
Присвоит переменной N значение элемента массива, имеющего индекс строки 1, индекс столбца 3, т.е. число 15.

Задача 1.
Задан массив из целых чисел, размерностьюN*M (N-строки, M-столбцы). Вывести на экран:
а) N-ю строку; б) M-й столбец; в) весь массив.
Задача 2.
Задан массив из строк, размерностьюN*M (N-строки, M-столбцы). Отсортировать все элементы массива по возрастанию.

решение

*

Дополнительно

Графика

ДВУМЕРНЫЕ МАССИВЫ

*

Задача 2

Дополнительно

Графика

1

2

Т1
РР
Т2
РР
Т3
РР
Т4

РР

Т1
Т2
Т3
Т4

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

*

*

Дополнительно

Графика

ПОДПРОГРАММЫ.

Описание процедур
Обращение к процедуре
Формальные параметры – переменные
Формальные параметры – значения
Описание функций

*

Дополнительно

Графика

*

назад

Дополнительно

Графика

*

назад

Дополнительно

Графика

*

назад

Дополнительно

Графика

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ПЕРЕМЕННЫЕ

*

задачи

Дополнительно

Графика

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ПЕРЕМЕННЫЕ

*

далее

Дополнительно

Графика

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ПЕРЕМЕННЫЕ

*

назад

Дополнительно

Графика

*

примеры

назад

Дополнительно

Графика

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ЗНАЧЕНИЯ

*

задача

Дополнительно

Графика

Переменная I, описанная в процедуре, называется локальной по отношению к процедуре. Локальная – местная, имеющая местное значение. Как только процедура выполнится, значение локальной переменной I забудется.

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ЗНАЧЕНИЯ

*

Для самостоятельной работы

Дополнительно

Графика

ФОРМАЛЬНЫЕ ПАРАМЕТРЫ - ЗНАЧЕНИЯ

*

назад

Дополнительно

Графика

Обращение к функции

*

Дополнительно

Графика

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

Program func1;
Var A,B,C,D,M1,M2,M3:Integer;
Function Max(X,Y:Integer):Integer;
Begin
If X>Y Then Max:=X Else Max:=Y;
End;
Begin
Readln(A,B,C,B);
m1:=Max(A,B);
m2:=Max(C,D);
m3:=Max(M1,M2);
Writeln(’Max=’,M3);
End.

назад

Дополнительно

Графика

Модуль System

Модуль автоматически подключается к любой программе
В модуль System входят следующие подпрограммы:
арифметические функции;
функции для величин порядкового типа;
функции преобразования типов;
процедурыпроцедуры и функции работы со строками;
процедуры и функции работы с файлами;

Стандартные модули

Дополнительно

Графика

СТАНДАРТНЫЕ МОДУЛИ

*

Стандартные модули

СТАНДАРТНЫЕ МОДУЛИ

*

Стандартные модули

СТАНДАРТНЫЕ МОДУЛИ

*

Стандартные модули

Стандартные модули

дополнительно

Графика

Дополнительно