Содержание
-
Язык программирования «Паскаль»
Программирование на Паскале
-
Основные типы переменных
Целый тип - integer. Целые числа от -32768 до 32767. Действительный тип – real. Символьный тип - char. Один любой символ. Строковый тип - string. Строка до 255 символов. Логический тип - boolean. Одно из 2 значений: истина (TRUE ) или ложь (FALSE).
-
Пример:x: integer; y:real; a:char; b:string; c:boolean. Допустимые значения переменных: x:=28; x:=x-12; y:=7.8; y:= 2.1*x; a:= ‘H’ ; a:= ‘+’; b:= ’лето’; c:= 5
-
Структура программы
Программа состоит из следующих разделов: заголовок (programимя; ) подключение библиотеки подпрограмм ( usescrt; ) объявление меток ( label 1,12,#1;) объявление констант ( const e=2.7; ) определяемые пользователем типы данных ( type …;) объявление переменных ( var a: real; b,c : char; ) раздел подпрограмм основной блок программы ( begin … end.)
-
Все разделы кроме последнего могут отсутствовать. Как правило простые программы состоят из трех разделов: 2, 6, 8. Комментарии в тексте программы указываются в фигурных скобках.
-
Пример программы
Uses crt; Vara,b,s: integer; h:real; Begin Write (‘Введите два числа ‘); Readln (a, b); s:= a+b; h:= a/b; Writeln (‘Сумма = ‘,s); Writeln (‘Частное = ‘,h); End. 1 2 3 4 Определить сумму и частное двух целых чисел Части программы объявление переменных; ввод исходных данных; решение задачи; вывод результатов.
-
Программа и результаты работы программы
-
Команда вывода информации на экранWriteи Writeln
x:=20; y:=2012; n:=43; Writeln (‘Сегодня‘); Write (x, ‘сентября’); Writeln (y,’года’); Writeln (‘Школа №’,n); Сегодня 20 сентября 2012 года Школа №43 Фрагмент программы Результат выполнения фрагмента программы
-
Вывод переменных действительного типа (Real)
Примеры: (на вывод числа отводится 6 знакомест) Writeln(‘Summa = ’,s) Summa = 24.637284512 Writeln(‘Summa = ’,s:6:2) Summa = 24.64Writeln(‘Summa = ’,s:6:1) Summa = 24.6 Writeln(‘Summa = ’,s:6:0) Summa = 25 Writeln(‘Summa = ’,s:6:3) Summa = 24.637 Writeln(‘Summa = ’,s:6:5) Summa = 24.63728
-
Команда ввода информации с клавиатуры Readln
Write (‘Введите два числа ‘); Readln (a, b); Write (‘Введите третье число ‘); Readln (c); Введите два числа 7 4 Введите третье число 6 Фрагмент программы Результат выполнения фрагмента программы Числовые значения вводятся с клавиатуры и присваиваются переменным a, b, c
-
Команда присваивания
Имя переменой := выражение; Примеры имён переменных:a, x1, summa, max1. Примеры выражений: 1. Число:x:=24, evro:=44.38 2. Имя переменной: x:=y, x1:=a 3. Арифметическое выражение:p:=2*(a+b), x1:=(-b+sqrt(d))/(2*a) Тип переменной должен соответствовать типу выражения.
-
Арифметические операции
1. Сложение: + 2. Вычитание: - 3. Умножение: *4. Деление: / Для целых чисел и переменных целого типа имеются ещё две операции 5. Целочисленное деление: div x:=27 div 5 ( результат x=5) 6. Остаток от деления:mod x:=27 mod 5 ( результат x=2)
-
Разработать программы для решения задач
Даны длина и ширина прямоугольника. Определить площадь и периметр прямоугольника. Даны катеты прямоугольного треугольника. Определить площадь и периметр треугольника.→ sqrt(b*b) Дано двузначное (трехзначное) целое число. Определить сумму цифр. Определить стоимость покупки и размер сдачи. Цена товара, количество купленных килограмм и количество поданных кассиру денег вводятся с клавиатуры.
-
Определить стоимость покупки и размер сдачи. Цена товара, количество купленных килограмм и коли-чество поданных кассиру денег вводятся с клавиатуры.
Дано: С – цена товараК – количество кг.М – количество поданных денег Найти: S– стоимость покупкиР – размер сдачи Решение: S = C * K P = M – S var c, k, s, p, m: real; Begin write (‘Введите цену ‘);readln (с); write (‘Введите кол-во кг. ‘);readln (к); write (‘Введ. поданные деньги ‘);readln (m); s := c * k; p := m – s; writeln (‘Стоимостьпокупки = ’,s);writeln (‘Размер сдачи= ’,p); end. 4 1 2 3
-
Определить количество денег в долларах, если известно количество денег в рублях. (1 доллар = 36,38 руб.)
Дано: К – количество руб. Найти: D– количество долларов Решение: D = K / 36,38 Write (‘Введите кол-во рублей ‘);Readln (k); d := k / 36.38; Writeln (‘Кол-во долларов = ’,d); End. Var d: real; k: integer; 4 1 2 3 Uses crt; Begin
Нет комментариев для данной презентации
Помогите другим пользователям — будьте первым, кто поделится своим мнением об этой презентации.