Просмотр содержимого документа
«Практическое занятие 22»
Практическое занятие 22
Тема: Решение задач средствами среды программирования.
Цель: закрепить знания с помощью решения задач в среде программирования.
Оборудование: компьютер.
Выполнение работы:
Задание 1. Проект «Среднее арифметическое введенных чисел»
Подсчитать и вывести на форму среднюю оценку по 5 предметам, заданным произвольно с помощью диалоговых окон ввода – вывода.
П
оместить на форму – кнопку Button1 для запуска приложения – Ввод оценки.
2. Создать событийную процедуру, реализующую ввод оценок по 5 предметам функцией InputBox и выполняющую вывод результата функцией MessageDlg на специальную панель сообщений.
Программный код для кнопки Ввод оценки.
procedure TForm1.Button1Click(Sender: TObject);
var
a, b, c, d, e, f : Integer;
begin
a:= StrToInt(InputBox ('Введи оценку по истории', ' Ввод оценки','0'));
b:=StrToInt (InputBox('Введи оценку по химии', 'Ввод оценки','0'));
c:=StrToInt (InputBox('Введи оценку по информатике', ' Ввод оценки ','0')) ;
d:=StrToInt (InputBox('Введи оценку по физике', 'Ввод оценки ','0')) ;
e:=StrToInt (InputBox('Введи оценку по математике', 'Ввод оценки ','0')) ;
f:= (a+b+c+d+e)div 5 ;
MessageDlg('Средняя оценка по предметам ' + IntToStr(f), mtInformation,[mbOK],0) ;
end;
Сохраните проект в папке на Рабочем столе. Запустите проект на исполнение.
Задание 2. В проекте «Среднее арифметическое введенных чисел» измените вывод оценки. Это должно быть не целое число. Например, 3,5.
Просмотр содержимого документа
«Тест Lazarus 111»
Просмотр содержимого документа
«Тест Lazarus»
Просмотр содержимого документа
«тест Lazarus 112»
Просмотр содержимого документа
«тест Lazarus 113»
Просмотр содержимого документа
«тест Lazarus 114»