60897

Лінійні алгортми. Побудова блок – схеми алгоритму

Конспект урока

Педагогика и дидактика

Багаторядкове поле редагування Memo. Розв‘язок: c = ; Блок – схема Багаторядкове поле Memo. Компонента Memo знаходиться на закладці Stndrd. Приберіть із багаторядкового поля рерагування слово Memo1.

Украинкский

2014-06-05

44.5 KB

1 чел.

Тема : Лінійні алгортми.

 Побудова блок – схеми алгоритму.

 Багаторядкове поле редагування Memo.

Завдання:  Обчислити гіпотенузу та площу прямокутного трикутника за заданими   

                  довжинами його катетів.

Змінні: a – довжина першого катету;

 b – довжина другого катету;

 c – довжина гіпотенузи;

 S – значення площі трикутника.

Вхідні дані  (аргументи) :    a, b.

Вихідні дані (результати):   с, S.

Розв‘язок:     c = ;

 

Блок – схема


Багаторядкове поле Memo.

Компонента Memo      знаходиться на закладці Standard. Вставте її в форму. Відрегулюйте розмір поля. Приберіть із багаторядкового поля рерагування слово Memo1. Для цього в вікні Object Inspector змініть значення властивості Lines ( рядки ) об‘єкту    Memo1. Викличте вікно редагування цієї властивості  (вікно String list editor – редактор багаторядкового поля) , натиснувши кнопку   . Приберіть слово  Memo1.

 

Зауваження.  Не можна прибирати слово Memo1 із властивості Name.

Інтерфейс доданку

 

Програмний код

procedure TForm1.Button1Click(Sender: TObject);

var a, b, c, S : real;

    code    : integer;

    str1      : string [10];

    str2      : string [10];

begin

Val (Edit1.Text, a, code);

Val (Edit2.Text, b, code);

 с := Sqrt(a*a + b*b);

S: = a*b/2;

Str (c: 8: 2, str1);

Str (S: 8: 2, str2);

Memo1.Lines.Add ('   Гіпотенуза    ' + str1);

Memo1.Lines.Add ('   Площа          '  + str2);

end;


 

А также другие работы, которые могут Вас заинтересовать

61383. Аппликация со сложенными и согнутым деталями. Жемчужина в ракушке 18.39 KB
  А сегодня мы узнаем новый вид – объемная аппликация. Как вы думаете что это за аппликация Объемная аппликация это аппликация имеющая выступающие над плоскостью детали.
61385. Басни Крылова 24.46 KB
  Задачи: Образовательные: учить понимать особенности жанра басня; формировать умение выражать свои эмоции и впечатления при помощи выразительного чтения Воспитательные: привить интерес к басенному творчеству и урокам чтения...
61388. Разнообразие и значение ракообразных 22.41 KB
  Цель урока: познакомится с разнообразием и значением ракообразных в жизни человека. Тип урока: изучение нового материала.
61391. THE CONCEPT OF BUSINESS 14.99 KB
  Go through the following vocabulary notes to avoid difficulties in understanding ex. II and the text. Use these words in your own sentences.