PASCAL PascalABC "Меню" управления всеми ресурсами ИИО (Интегрированной инструментальной оболочки). Область текстового редактора. Строка подсказок. - презентация

1 PASCAL

2 PascalABC "Меню" управления всеми ресурсами ИИО (Интегрированной инструментальной оболочки). Область текстового редактора. Строка подсказок.

3 Клавиши управления CTRL+S CTRL+S –сохранить файл или File Save CTRL+O CTRL+O– открыть файл или File Open F9 F9 – запустить программу

4 Структура программы в общем виде program (имя программы);заголовок программы label (список меток); const (список постоянных значений); type(описание сложных типов данных); var (описание данных программы);описание переменных begin (начало программы) (алгоритм) {инструкций основной программы} end. (конец программы)терминатор

5 Пример программы program summa; var x,y,k,z: integer; begin write(Введите три числа ); readln(x,y,k); z:=x+y+k; write(z); end.

6 Целые типы Тип Значение Формат shortint Знаковый integer Знаковый longint – Знаковый byte Беззнаковый word Беззнаковый тип ЗначениеЧисло значащих чиселreal 2.9* * single 1.5* * double 5.0* * extended 3.4* * comp -2* * Вещественные типы

7 Целые типы Вещественные типы WRITE(X:6:2,Y:8:3) WRITE(X:6,Y:8)

8 Арифметические операции + - * / Целочисленное деление DIV – деление нацело MOD – остаток от деления Примеры 5 div 2 20 div 4 27 div 6 7 mod 3 20 mod 4 27 mod 6 16 div mod mod 10

9 Функция НазначениеТип результата FRAC(X) Дробная част ХВещественный INT(X) Целая часть Х, обнуление дробной части Вещественный ROUND(X) Округление до ближайшего целого Целый TRUNC(X) Отбрасывание дробной части Целый Стандартные функции работающие с вещественными числами

10 X^Y записывается как exp(Y*ln(X)) b=X Y b:=exp(Y*ln(X)) b=X 2 b:=x*x b=X3 b:=x*x*x Вычисление степеней в Паскаль

11 Примеры программ program f10; uses crt; var n:integer; beginclrscr; {инструкций основной программы} end.

12 Написать программу, которая генерирует случайное число в диапазоне от 0 до x-1 Program f52; Var x,n:integer; Begin randomize; Write (x=); Readln(x);n:=random(x); writeln(n=,n); readln End. Примеры программ

13 Массив (Линейный, вектор) Объявление: Ввод с клавиатуры: Поэлементные операции: Вывод на экран: const N = 5; var a: array[1..N] of integer; i: integer; const N = 5; var a: array[1..N] of integer; i: integer; for i:=1 to N do begin write('a[', i, ']='); read ( a[i] ); end; for i:=1 to N do begin write('a[', i, ']='); read ( a[i] ); end; a[1] = a[2] = a[3] = a[4] = a[5] = for i:=1 to N do a[i]:=a[i]*2; writeln('Массив A:'); for i:=1 to N do write(a[i]:4); writeln('Массив A:'); for i:=1 to N do write(a[i]:4); Массив A:

14 Массив (Линейный, вектор) Объявление: Ввод с клавиатуры: Поэлементные операции: Вывод на экран: const N = 5; var a: array[1..N] of integer; i: integer; const N = 5; var a: array[1..N] of integer; i: integer; for i:=1 to N do A[i] := random(25) - 10; for i:=1 to N do A[i] := random(25) - 10; a[1] = a[2] = a[3] = a[4] = a[5] = for i:=1 to N do a[i]:=a[i]*2; writeln('Массив A:'); for i:=1 to N do write(a[i]:4); writeln('Массив A:'); for i:=1 to N do write(a[i]:4); Массив A:

15 Матрицы (Двумерный массив) Объявление: const N = 3; M = 4; var A: array[1..N,1..M] of integer; B: array[-3..0,-8..M] of integer; Q: array['a'..'d',False..True] of real; const N = 3; M = 4; var A: array[1..N,1..M] of integer; B: array[-3..0,-8..M] of integer; Q: array['a'..'d',False..True] of real; Ввод с клавиатуры: for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,']='); read ( A[i,j] ); end; for i:=1 to N do for j:=1 to M do begin write('A[',i,',',j,']='); read ( A[i,j] ); end; for j:=1 to M do for i:=1 to N do begin

16 Матрицы Заполнение случайными числами for i:=1 to N do for j:=1 to M do A[i,j] := random(25) - 10; for i:=1 to N do for j:=1 to M do A[i,j] := random(25) - 10; цикл по строкам цикл по столбцам Вывод на экран for i:=1 to N do begin writeln; end; for i:=1 to N do begin writeln; end; перейти на новую строку for j:=1 to M do write ( A[i,j]:5 ); for j:=1 to M do write ( A[i,j]:5 ); в той же строке