Разделы презентаций


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

Содержание

Окно редактора кода

Слайды и текст этой презентации

Слайд 1Графический интерфейс Pascal ABC

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

Слайд 2Окно редактора кода

Окно редактора кода

Слайд 3Общий вид программы:
program ; {заголовок программы}
uses ...;

{раздел описания модулей}
var ...;

{раздел объявления переменных}
label ...; {раздел объявления меток}
const ...; {раздел объявления констант}
type ...; {раздел объявления типов}
function ...; {раздел объявления функций}
procedure ...; {раздел объявления процедур}
begin
{последовательность операторов}
end. {конец программы}
Общий вид программы: program ; {заголовок программы}uses   ...;    {раздел описания модулей}var

Слайд 4Структура программы
program ;
//Раздел описаний
begin
//Действия
end.

Структура программы program ;//Раздел описанийbegin//Действия end.

Слайд 5Первая программа
program hello;
begin
writeln (‘это моя первая программа');
end.
Запуск программы F9.

Первая программаprogram hello;beginwriteln (‘это моя первая программа');end.Запуск программы F9.

Слайд 6Компиляция (F9)
Устранение ошибок в программе.

Компиляция (F9)Устранение ошибок в программе.

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

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

Слайд 8Пояснения
В пояснениях можно использовать русские буквы

{могут находится в фигурных скобках}

//могут

писаться после двух слэшей

ПоясненияВ пояснениях можно использовать русские буквы{могут находится в фигурных скобках}//могут писаться после двух слэшей

Слайд 9Первая программа
//program hello;
begin
writeln ('моя первая программа');
end.
Запуск программы F9.

Первая программа//program hello;beginwriteln ('моя первая программа');end.Запуск программы F9.

Слайд 10Первая программа (вывод в графическом окне)
uses GraphABC;
begin

textout (10, 10, 'Моя первая программа');

end.
Первая программа (вывод в графическом окне)uses GraphABC;   begin   textout (10, 10, 'Моя первая

Слайд 11Произведение двух чисел
Ввести с
клавиатуры
два числа,
вывести
на экран

их
произведение.

Произведение двух чиселВвести с клавиатуры два числа, вывести на экран их произведение.

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

Writeln — после вывода, курсор переходит на новую строку.
Вывод

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

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


И курсор перейдет на новую строку.
• числовые — Write (1,2); Write

(3, ' ',56);
(числа выводятся без дополнительных пробелов)
На экране: 123 56
И курсор будет стоять после цифры 6.

Вывод

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

Слайд 14Readln (список переменных через запятую);
Read (список переменных через запятую);
Ввод

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

Слайд 15Задание
Написать программу нахождения суммы чисел А и В, вводимых с

клавиатуры.

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

Слайд 16Решение
Program primer; { Заголовок

программы }
Var A,B,S: Integer; {Раздел описания

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

Слайд 17Задание
Рассчитайте гипотенузу прямоугольного треугольника при заданных значениях катетов а и

в. Исходные данные а=8, в=5

ЗаданиеРассчитайте гипотенузу прямоугольного треугольника при заданных значениях катетов а и в. Исходные данные а=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.

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

Слайд 19Практическая работа
Задача 1: Рассчитайте среднее значение двух чисел а и

в.
Задача 2: Рассчитайте среднее геометрическое двух неотрицательных чисел.
Задача 3: Дана

длина окружности L. Рассчитайте радиус окружности и площадь.
Практическая работаЗадача 1: Рассчитайте среднее значение двух чисел а и в.Задача 2: Рассчитайте среднее геометрическое двух неотрицательных

Слайд 20Домашнее задание
Написать программу вычисления площади равнобедренной трапеции. Значения основания и

боковой стороны вводятся с клавиатуры.

Домашнее заданиеНаписать программу вычисления площади равнобедренной трапеции. Значения основания и боковой стороны вводятся с клавиатуры.

Обратная связь

Если не удалось найти и скачать доклад-презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

Email: Нажмите что бы посмотреть 

Что такое TheSlide.ru?

Это сайт презентации, докладов, проектов в PowerPoint. Здесь удобно  хранить и делиться своими презентациями с другими пользователями.


Для правообладателей

Яндекс.Метрика