Урок "Составление программы в среде программирования с использованием изученных функций".

Прикладное программирование для школьников.

При изучении языков программирования в школьном курсе информатики, у школьников возникает вопрос: а где можно использовать полученные навыки программирования.

Учителю очень важно донести до учащихся, что программированием можно решить большой круг прикладных задач. Например: рассчитать необходимое количество строительных материалов для строительства дома. Для начала рассчитаем материалы для дома с двухскатной крышей.

Программу разработаем в среде Lazarus.

Lazarus — бесплатная и свободная графическая среда разработки программного обеспечения на языке Object Pascal для компилятора Free Pascal Compiler (FPC), также свободного программного обеспечения. В Lazarus используется технология визуального программирования

Программа позволяет рассчитать требуемое количество кровельного материала для крыши дома с любыми размерами.

Текст кода программы.

procedure TForm1.Button1Click(Sender: TObject);

 var  h,n,a,b,c,d,S,Pl:real;

begin

b:=StrToInt(Edit1.Text);

a:=StrToInt(Edit2.Text);

d:=StrToInt(Edit3.Text);

h:=StrToInt(Edit4.Text);

c:=sqrt(h*h+(a/2)*(a/2));

S:=2*b*c;

Pl:=a*b;

n:=b/d;

  Label5.Caption:='Площадь потолочного покрытия в кв м:'+FloatToStr(Pl);

  Label6.Caption:='Площадь крыши в кв м:'+FloatToStr(S);

  Label7.Caption:='Количество листов жести шт.:'+FloatToStr(n);    

Фрагмент окна редактора исходного кода.

Окно формы.

Сохраняем проект, запускаем.

Меняя входные данные, получаем разные результаты для количества листов железа (профиля).

Приобретенные во время занятия программированием навыки, будут для школьника хорошим подспорьем в будущей жизни.