Общий вид программы: program ; {заголовок программы} uses ...; {раздел описания модулей} var ...; {раздел объявления переменных} label ...; {раздел объявления меток} const ...; {раздел объявления констант} type ...; {раздел объявления типов} function ...; {раздел объявления функций} procedure ...; {раздел объявления процедур} begin {последовательность операторов} end. {конец программы}
Cлайд 4
Структура программы program ; //Раздел описаний begin //Действия end.
Cлайд 5
Первая программа program hello; begin writeln (‘это моя первая программа'); end. Запуск программы F9.
Cлайд 6
Компиляция (F9) Устранение ошибок в программе.
Cлайд 7
Программа Результат исполнения Остановка выполнения программы
Cлайд 8
Пояснения В пояснениях можно использовать русские буквы {могут находится в фигурных скобках} //могут писаться после двух слэшей
Cлайд 9
Первая программа //program hello; begin writeln ('моя первая программа'); end. Запуск программы F9.
Cлайд 10
Первая программа (вывод в графическом окне) uses GraphABC; begin textout (10, 10, 'Моя первая программа'); end.
Cлайд 11
Произведение двух чисел Ввести с клавиатуры два числа, вывести на экран их произведение.
Cлайд 12
Write — после вывода, курсор остается после последнего выведенного значения, Writeln — после вывода, курсор переходит на новую строку. Вывод
Cлайд 13
• символьные — заключаем их в апострофы. Writeln('Привет!'); На экране увидим: Привет! И курсор перейдет на новую строку. • числовые — Write (1,2); Write (3, ' ',56); (числа выводятся без дополнительных пробелов) На экране: 123 56 И курсор будет стоять после цифры 6. Вывод
Cлайд 14
Readln (список переменных через запятую); Read (список переменных через запятую); Ввод
Cлайд 15
Задание Написать программу нахождения суммы чисел А и В, вводимых с клавиатуры.
Cлайд 16
Решение Program primer; { Заголовок программы } Var A,B,S: Integer; {Раздел описания переменных } Begin { Раздел операторов} Writeln(‘Введите значения чисел А, В’); {оператор вывода} Read(A,B); {оператор ввода значений переменных с клавиатуры} S:=A+B; {оператор присваивания} Writeln(‘S=‘, S); {оператор вывода значения} Readln; {оператор ждет нажатия клавиши ввода} End. {конец программы}
Cлайд 17
Задание Рассчитайте гипотенузу прямоугольного треугольника при заданных значениях катетов а и в. Исходные данные а=8, в=5
Cлайд 18
Решение program gipotenuza; var a,b,c:real; begin writeln (' введи значение а'); Readln (a); writeln ( 'введи значение в'); Readln (b); c:=sqrt (sqr(a)+sqr(b)); writeln ('гипотенуза равна ',c); end.
Cлайд 19
Практическая работа Задача 1: Рассчитайте среднее значение двух чисел а и в. Задача 2: Рассчитайте среднее геометрическое двух неотрицательных чисел. Задача 3: Дана длина окружности L. Рассчитайте радиус окружности и площадь.
Cлайд 20
Домашнее задание Написать программу вычисления площади равнобедренной трапеции. Значения основания и боковой стороны вводятся с клавиатуры.