Язык программирования Pascal - PowerPoint PPT Presentation

pascal n.
Download
Skip this Video
Loading SlideShow in 5 Seconds..
Язык программирования Pascal PowerPoint Presentation
Download Presentation
Язык программирования Pascal

play fullscreen
1 / 33
Язык программирования Pascal
307 Views
Download Presentation
maris-garcia
Download Presentation

Язык программирования Pascal

- - - - - - - - - - - - - - - - - - - - - - - - - - - E N D - - - - - - - - - - - - - - - - - - - - - - - - - - -
Presentation Transcript

  1. Язык программирования Pascal

  2. Структура программы Pascal Programимя программы; Usesраздел подключения модулей; Constраздел констант; Varраздел описанийпеременных; Beginоператоры; End.

  3. Пример структуры программы Pascal Programpr1; {Заголовок} Const{константы} g=9.8; Var{объявление переменных} a,b : integer; {целые числа -32768..+32767} x,y : real;{дробные числа} Begin A:=192+42;{оператор присваивания} X:=a/8; End.

  4. Оператор присваивания Оператор присваивания имеет вид: переменная := выражение; i := i + 1; // увеличивает значение переменной i на 1 В PascalABC.NET определены также операторы +=, -=, *=, /=

  5. Целые числа в Free Pascal integer{целые числа -32768..+32767} longint{длинные целые -2M..+2M} Byte {0..255} Word {0..65тыс}

  6. Полный список типов целых чисел (PascalABC.NET)

  7. Целочисленное деление и остаток Programpr2; {Заголовок} Var a,b : integer; {целые числа -32768..+32767} Begin A:=8 div 3 ; {=2 div - ц.ч. деление} B:=7 mod a; {=1 mod – остаток от деления} Write (‘a=’,a,’ b=’,b); {вывод на экран} Readln{пауза до нажатия enter} End.

  8. Операторы ввода и вывода {выводит информацию в одну строку} Write (‘Hello ’,a+2*b); Writeln (‘Первая строка’); {переносит в конце} Writeln(‘Вторая строка’); Writeln(a:10,b:10,c:10,d:10); {Табуляция в 10} Read(a); {ввод значения a с клавиатуры} Readln(b); {ввод 1 строки}

  9. сумматор Uses CRT; Var A, B:integer; Begin Clrscr; {очистка экрана} Textcolor(10); {цвет текста 0-15} Writeln(‘Введите два числа’); Readln(a,b); Write (‘Сумма чисел равна ’,a+b); Readln; End.

  10. ******* * * * * * * * * * * * * * *** * * * *******

  11. Вещественные числа (real, double) Описание Ввод значений x y Вывод выражения Кол-во цифр после запятой Var x,y: real; Begin Write(‘Введите x,y ‘); Readln(x,y); Writeln(‘x/y=’, x/y :0:3) Readln; End.

  12. Арифметические операции • Div • Mod

  13. Найти корни квадратного уравнения Ax2+Bx+C=0 D=B2-4ac X= var a,b,c,d,x1,x2:real; begin writeln('Введите a,b,c'); readln(a,b,c); d:=sqr(b)-4*a*c; x1:=(-b-sqrt(d))/(2*a); x2:=(-b+sqrt(d))/(2*a); writeln(‘d=’, d :0:2, ‘ x1=’, x1 :0:2, ‘ x2=’, x2 :0:2); End.

  14. Вычисления в программе • Дана сторона квадрата а. Найти его периметр P=4a Vara,p:real; Begin write(‘a=’); readln(a); P:= ; //пишем формулу P writeln(‘p=’, p :0:2) End. Примео ввода: a=7.21 Пример вывода: P=30.84

  15. Условие Нет Да Действие 2 Действие 1 Условный оператор (ветвление) или разветвляющийся алгоритм - форма организации действий, при которой в зависимости от выполнения некоторого условия совершается одна или другая последовательность шагов

  16. IfA mod 2 = 0 Нет Да ‘Нечетное’ ‘Четное’ Условный оператор (ветвление) ifусловие thenоператор1 elseоператор2; Var a:integer; Begin write(‘Введите число:‘); readln(a); if a mod 2 = 0 then write (‘Четное’) else write (‘Нечетное’); End. Ввод а

  17. Цикл с параметром FOR i:=нач. to кон. Doопер.;

  18. Даны целые числа K и N (N > 0). Вывести N раз число K. K=5 N=4 5 5 5 5 Var i,k,n:integer; Begin Write(‘k=‘); Readln(k); Write(‘N=’); Readln(n); For i:=1 to N do write(k, ’ ’); Readln End.

  19. Цикл с предусловием WHiLEусловие DO оператор; WHiLEусловие DO begin оператор1; оператор2; … end; Условие Нет Да оператор

  20. Задача While1 Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Не используя операции умножения и деления, найти длину незанятой части отрезка A. VarA,B:real; Begin write(‘A=’); readln(A); write(‘B=’); readln(B); While A>=B do A:=A-B; writeln(‘Остаток: ’, A :0:2); readln End. А

  21. Задача While2 VarA,B:real; i:integer; Begin write(‘A=’); readln(A); write(‘B=’); readln(B); While A>=B do begin A:=A-B; i:=i+1 end; writeln(‘Остаток: ’, A :0:2); readln End. Даны положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B(без наложений). Не используя операции умножения и деления, найти количество отрезков B, размещенных на отрезке A. А

  22. While 3 Даны целые положительные числа N и K. Используя только операции сложения и вычитания, найти частное от деления нацело NнаK, а также остаток от этого деления.

  23. While 4 Дано целое число N (> 0). Если оно является степенью числа 3, то вывести True, если не является — вывести False. Var N, M:integer; Begin M:=1; While M<N do M:=M*3; Writeln(M=N); End.

  24. While 5  Дано целое число N (> 0), являющееся некоторой степенью числа 2: N = 2K. Найти целое число K — показатель этой степени. Var N, M, k:integer; Begin M:=1; While M<N do begin M:=M*3; end; End.

  25. While 6 • Дано целое число N (> 0). Найти двойной факториал N: • N!! = N·(N−2)·(N−4)·…

  26. Строковые типы • Символьный тип ‘A’ ‘2’ ‘%’ #32(по номеру) • Var c : char; • C:= ‘a’; chr(42); - возвр. символ ‘A’ по номеру ord(‘D’); - возвр. Номер символа • Строковый тип ‘Привет мир’ (макс. 255 симв) Vara,b : string; begina:=‘тепло’; B:=‘ход’; writeln(a+b); {Конкатинация} End.

  27. Строковые операторы S:=‘информатика’; Length(s); возвр. длину строки Copy(s,3,5); возвр. часть строки нач.3-го 5 символов позиция^^кол-во символов Pos(‘а’,s); возвр. позицию вхождения подстроки в строку Delete(s,8,4); удаление части строки позиция^^кол-во символов Insert(‘ция’,s,8); вставка подстр. в строку позиция^ s[3] – возвращает 3-й символ ‘ф’ Writeln(copy(s,3,3) + s[8]); {‘фор’ + ’т’}

  28. Program STRING7; var s:string; Begin readln(s); writeln('Код первого символа: ', ord(s[1])); writeln('Код последнего символа: ', ord(s[ length(s) ]) ); end. {Это фрагмент второй задачи. Пишите в новом файле. Допишите программу} For i:=1 to N do S:=S+C;

  29. Одномерные массивы М- это упорядоченный набор данных Var a:array [нач..кон] of тип_данных; Var a:array [0..9] of integer; i:integer; Begin a[0]:=14; for i:=1 to 9 do a[i]:=i; End.

  30. Array 1 (Массив) Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых положительных нечетных чисел: 1, 3, 5, … . Var a:array[1 .. 100] of integer; i, N :integer; Begin write(‘N=’); readln(n); a[1]:=1; for i:=2 to N do a[i]:=a[i-1]+2 ; for i:=1 to N do write(a[i],’ ‘); readln End.

  31. Array 2 (Массив) Дано целое число N (> 0). Сформировать и вывести целочисленный массив размера N, содержащий N первых степеней двойки: 2,4, 8, 16 … . Var a:array[1 .. 100] of integer; i, N :integer; Begin write(‘N=’); readln(n); a[1]:=2; for i:=2 to N do begin a[i]:= a[i-1]*2 ; write(a[i],’ ‘); end; End.

  32. Двумерные массивы матрица 5х4 Var a:array[1..5, 1..4] of integer; i – строка j – столбец For i:=1 to 5 do For j:=1 to 4 do a[i,j]:=(i-1)*4+j;

  33. Matrix1. Даны целые положительные числа M и N. Сформировать целочисленную матрицу размера M × N, у которой все элементы I-й строки имеют значение 10·I (I = 1, …, M). M=3 N=5 VAR a:array[1..100,1..100]of integer; i, j, M,N:integer; Begin write(‘M=’);readln(M); write(‘N=’);readln(N); For i:=1 to M do begin For j:=1 to N do begin a[i,j]:=i*10; write(a[i,j] :4); end; writeln end; End.