1. Заповніть таблиці:
| Тип даних
| Назва в Delphi
| | Вираз (обчислення)
| Тип результату
|
| Цілі числа
|
|
| string + string
|
|
| Раціональні числа
|
|
| integer + integer
|
|
| Рядки
|
|
| integer – integer
|
|
|
|
|
| integer * integer
|
|
|
|
|
| integer / integer
| (!)
|
|
|
|
| real (+ - * /) real
|
|
|
|
|
| real (+ - * /) integer
|
|
2.
| Зверніть увагу, що змінні одного типу можна описувати через кому!
| |
Відомий фрагмент програми:
var
a, b : integer;
c, d : real;
s, t : string;
Заповніть таблицю (якщо вираз помилковий з точки зору Delphi, то впишіть «помилка»):
| Вираз
| Тип виразу
| | Вираз
| Тип виразу
|
| a+b
|
|
| IntToStr(a+b)
|
|
| a+c
|
|
| FloatToStr(s)
|
|
| a/c
|
|
| StrToFloat(t)
|
|
| a/b
|
|
| FloatToStr(d – a)
|
|
| s+t
|
|
| IntToStr(c+b)
|
|
| s+a
|
|
| StrToInt(b – a)
|
|
| d+a
|
|
| IntToStr (b/a)
|
|
3. Заповніть пропуски: Команда ShowMessage може виводити на екран лише _____________ і не може ________
4. Запустіть середовище програмування (ПускàВсе программыàBorland Delphi 7àDelphi 7).
5. Продивіться та повторіть приклад розв’язання задач у Delphi.
Задача 1. У тісному трюмі піратської бригантини капітан Флінт та боцман Федя ділили одне й те саме число на різні дільники: капітан Флінт з похмурою усмішкою на M, а боцман Федя зі спокійним виразом обличчя на N. Боцман Федя отримав результат K. Який результат отримав Флінт?
Вхідні дані. Числа M, N і K вводяться з клавіатури.
Вихідні дані. Результат Флінта виводиться на монітор.
Розв’язання. Очевидно, щоб узнати задумане число, треба N помножити на К, а щоб узнати результат Флінта, необхідно це число розділити на M. Отже, результат Флінта можна обчислити за формулою
(N*K)/Mабо N*K/M
Створіть у Delphi новий проект і розмістіть на формі компоненти, як на мал. нижче:
Створіть обробник події OnClick кнопки Button1.
Нам знадобляться 3 змінних: m, n і k, причому ці числа можуть бути не тільки цілими, а раціональними. Тому потрібно об’являти змінні типу real (введіть рядки, написані червоним):
procedure TForm1.Button1Click(Sender: TObject);
| Зверніть увагу, що змінні одного типу можна описувати через кому!
| |
var
m,n,k:real;
begin
end;
Далі треба присвоїти змінним m, n, k те, що користувач ввів з клавіатури. Додайте у процедуру рядки:
| Використовуємо StrToFloat, тому що m, n, k типу real
| |
m:=StrToFloat(Edit1.Text);
n:=StrToFloat(Edit2.Text);
k:=StrToFloat(Edit3.Text);
Надалі обчислення проводяться за відомою вже формулою (додайте в процедуру наступний рядок):
| Використовуємо FloatToStr, тому що n*k/m - вираз типу real
| |
ShowMessage(FloatToStr(n*k/m));
Програма готова. Перевірте правильність її роботи.
