ГРАФИЧЕСКИЙ ИНТЕРФЕЙС PASCAL ABC. ОКНО РЕДАКТОРА КОДА. - презентация

1 ГРАФИЧЕСКИЙ ИНТЕРФЕЙС PASCAL ABC

2 ОКНО РЕДАКТОРА КОДА

3 ОБЩИЙ ВИД ПРОГРАММЫ: program ; {заголовок программы} uses...; {раздел описания модулей} var...; {раздел объявления переменных} label...; {раздел объявления меток} const...; {раздел объявления констант} type...; {раздел объявления типов} function...; {раздел объявления функций} procedure...; {раздел объявления процедур} begin {последовательность операторов} end. {конец программы}

4 СТРУКТУРА ПРОГРАММЫ program ; //Раздел описаний begin //Действия end.

5 ПЕРВАЯ ПРОГРАММА program hello; begin writeln (это моя первая программа'); end. Запуск программы F9.

6 КОМПИЛЯЦИЯ (F9) Устранение ошибок в программе.

7 Остановка выполнения программы

8 ПОЯСНЕНИЯ В пояснениях можно использовать русские буквы {могут находится в фигурных скобках} //могут писаться после двух слешей

9 ПЕРВАЯ ПРОГРАММА // program hello; begin writeln ('моя первая программа'); end. Запуск программы F9.

10 ПЕРВАЯ ПРОГРАММА (ВЫВОД В ГРАФИЧЕСКОМ ОКНЕ) uses GraphABC; begin textout (10, 10, 'Моя первая программа'); end.

11 ПРОИЗВЕДЕНИЕ ДВУХ ЧИСЕЛ Ввести с клавиатуры два числа, вывести на экран их произведение.

12 Write после вывода, курсор остается после последнего выведенного значения, Writeln после вывода, курсор переходит на новую строку. ВЫВОД

13 символьные заключаем их в апострофы. Writeln ('Привет!'); На экране увидим: Привет! И курсор перейдет на новую строку. числовые Write (1,2); Write (3, ' ',56); (числа выводятся без дополнительных пробелов) На экране: И курсор будет стоять после цифры 6. ВЫВОД

14 Readln (список переменных через запятую); Read (список переменных через запятую); ВВОД

15 ЗАДАНИЕ Написать программу нахождения суммы чисел А и В, вводимых с клавиатуры.

16 РЕШЕНИЕ Program primer; { Заголовок программы } Var A,B,S: Integer; {Раздел описания переменных } Begin { Раздел операторов} Writeln(Введите значения чисел А, В); {оператор вывода} Read(A,B); {оператор ввода значений переменных с клавиатуры} S:=A+B; {оператор присваивания} Writeln(S=, S); {оператор вывода значения} Readln; {оператор ждет нажатия клавиши ввода} End. {конец программы}

17 ЗАДАНИЕ Рассчитайте гипотенузу прямоугольного треугольника при заданных значениях катетов а и в. Исходные данные а=8, в=5

18 РЕШЕНИЕ program gipotenuza; var a,b,c:real; begin writeln (' введи значение а'); Readln (a); writeln ( 'введи значение в'); Readln (b); c:=sqrt (sqr(a)+sqr(b)); writeln ('гипотенуза равна ',c); end.

19 ПРАКТИЧЕСКАЯ РАБОТА Задача 1: Рассчитайте среднее значение двух чисел а и в. Задача 2: Рассчитайте среднее геометрическое двух неотрицательных чисел. Задача 3: Дана длина окружности L. Рассчитайте радиус окружности и площадь.

20 ДОМАШНЕЕ ЗАДАНИЕ Написать программу вычисления площади равнобедренной трапеции. Значения основания и боковой стороны вводятся с клавиатуры.