понеділок, 23 квітня 2018 р.

                                                                     Задача № 3
Скласти алгоритм,який визначає.в якій саме координатній чверті знаходиться точка,задана своїми координатами на площині.
                                                                              Задача № 2
                    Скласти алгоритм,що визначатиме ріст найвищого серед членів вашої команди.
Задача № 1

                        Скласти алгоритм,що визначатиме агрегатний стан рідини при заданій температурі.

середа, 18 квітня 2018 р.


Повна форма розгалуження
Скорочена форма розгалуження
якщо  умова
          то серія команд 1
          інакше серія команд 2
все
якщо  умова
          то серія команд 1
все
серія команд 1 виконується, якщо умова істинна,
серія команд 2, якщо умова хибна.
серія команд виконується лише у випадку, якщо умова істинна.
if   (...........)
    then begin
                 …………...….
               end
    else  ………………   
if   (...........)
    then ……………..  
      

пʼятниця, 13 квітня 2018 р.

Лазарус: відтворення проекту із використанням Кнопок, Написів, Полів

В Лазарусі я використала такі функції:

procedure TForm1.Button1Click(Sender: TObject); var x,y,s:real; begin x:=StrToFloat(edit1.text); y:=StrToFloat(edit2.text); s:=x+y; edit3.Text:=FloatToStr(s); end;

КнопкаНаписПоле

Лазарус: відтворення проекту із використанням Кнопок, Написів, Полів В Лазарусі я використала такі функції: ShowMessage('Молодець, '+Edit1.text);Form1.Text:='Привіт '+Edit1.text;Edit1.Text:='';Close;
Зображення