Главная страница
Навигация по странице:

  • Pl:=a*b; n:=b/d; Label5.Caption:= Площадь потолочного покрытия в кв м :+FloatToStr(Pl);

  • .:+FloatToStr(n);

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


    Скачать 67.19 Kb.
    НазваниеСоставление программы в среде программирования с использованием изученных функций Содержание урока
    АнкорСоставление программы в среде программирования с использованием изученных функций
    Дата11.04.2022
    Размер67.19 Kb.
    Формат файлаdocx
    Имя файлаСоставление программ.docx
    ТипУрок
    #463606

    9 класс. Информатика. Тема урока: « Составление программы в среде программирования с использованием изученных функций»

    Содержание урока.

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

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

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



    Программу разработаем в среде 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);
    Фрагмент окна редактора исходного кода.



    Окно формы.



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

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

    Домашнее задание: §1.5 повторить. Записать условие задачи и текст кода программы (выделены синим цветом). Самостоятельно: составить программу для вычисления площади прямоугольных участков (фигур).


    написать администратору сайта