Графический интерфейс Pascal ABC

Август 9, 2022

Главная
Информатика
Графический интерфейс Pascal ABC

Содержание

2. ОКНО РЕДАКТОРА КОДА
3. ОБЩИЙ ВИД ПРОГРАММЫ: program ; {заголовок программы} uses ...; {раздел описания модулей} var ...; {раздел объявления
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('Привет!'); На экране увидим: Привет! И курсор перейдет на
14. Readln (список переменных через запятую); Read (список переменных через запятую); ВВОД
15. ЗАДАНИЕ Написать программу нахождения суммы чисел А и В, вводимых с клавиатуры.
16. РЕШЕНИЕ Program primer; { Заголовок программы } Var A,B,S: Integer; {Раздел описания переменных } Begin {
17. ЗАДАНИЕ Рассчитайте гипотенузу прямоугольного треугольника при заданных значениях катетов а и в. Исходные данные а=8, в=5
18. РЕШЕНИЕ program gipotenuza; var a,b,c:real; begin writeln (' введи значение а'); Readln (a); writeln ( 'введи
20. Скачать презентацию

Слайд 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);
(числа выводятся без дополнительных пробелов)
На экране: 123 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.

Графический интерфейс Pascal ABC

Содержание

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

ОБЩИЙ ВИД ПРОГРАММЫ: program <имя>; {заголовок программы}uses ...; {раздел описания модулей}var ...;

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

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

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

Программа Результат исполнения Остановка выполнения программы

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

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

ПЕРВАЯ ПРОГРАММА (ВЫВОД В ГРАФИЧЕСКОМ ОКНЕ)uses GraphABC; begin textout (10, 10,

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

Write — после вывода, курсор остается после последнего выведенного значения, Writeln

• символьные — заключаем их в апострофы. Writeln('Привет!');На экране увидим: Привет! И

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

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

РЕШЕНИЕProgram primer; { Заголовок программы }Var A,B,S: Integer; {Раздел описания переменных

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

РЕШЕНИЕprogram gipotenuza;var a,b,c:real;beginwriteln (' введи значение а');Readln (a);writeln ( 'введи значение

Похожие презентации