Презентация "Программирование на языке Паскаль" (9 класс) по информатике – проект, доклад

Язык программирования «Паскаль»

Программирование на Паскале

Основные типы переменных

Целый тип - 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 имя; ) подключение библиотеки подпрограмм ( uses crt; ) объявление меток ( label 1,12,#1;) объявление констант ( const e=2.7; ) определяемые пользователем типы данных ( type …;) объявление переменных ( var a: real; b,c : char; ) раздел подпрограмм основной блок программы ( begin … end.)

Все разделы кроме последнего могут отсутствовать. Как правило простые программы состоят из трех разделов: 2, 6, 8. Комментарии в тексте программы указываются в фигурных скобках.

Пример программы

Uses crt; Var a,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.64 Writeln(‘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.

Определить количество денег в долларах, если известно количество денег в рублях. (1 доллар = 36,38 руб.)

Дано: К – количество руб. Найти: D – количество долларов Решение: D = K / 36,38

Write (‘Введите кол-во рублей ‘); Readln (k); d := k / 36.38; Writeln (‘Кол-во долларов = ’,d); End.

Var d: real; k: integer; Uses crt; Begin