Практична робота "Їдальня"

Про матеріал

Практична робота "Їдальня". Практична робота до уроку "Основи алгоритмізації та програмування. Розгалуження в алгоритмах і програмах". Завдання практичної роботи: розробити проект для розв'язання задачі "Розробити меню ресторану та оформлення чеку"

Перегляд файлу

 

Увага! Під час роботи з комп’ютером дотримуйтеся правил безпеки.

 

 

Практична робота «Їдальня»

 

  1. Відкрийте Lazarus.
  2. Створіть нову форму за зразком.

  1. Запрограмуйте кнопку Видати чек

procedure TForm1.Button1Click(Sender: TObject);

var cina,suma:real;

    chek:string;

begin

suma:=0;

if CheckBox1.Checked=true then  begin cina:=5.60; suma:=suma+cina; еnd;

(аналогічно для інших компонентів)

 chek:=FloatToStr(suma)+' грн.';

Memo1.Lines.Add(chek);

end;

 

 

 

 

docx
До підручника
Інформатика (академічний, профільний рівень) 11 клас (Лисенко Т.І., Ривкінд Й.Я., Чернікова Л.А., Шакотько В.В.)
Додано
21 жовтня 2018
Переглядів
379
Оцінка розробки
Відгуки відсутні
Безкоштовний сертифікат
про публікацію авторської розробки
Щоб отримати, додайте розробку

Додати розробку