ПОВОЛЗЬКИЙ ДЕРЖАВНИЙ УНІВЕРСИТЕТ
ТЕЛЕКОМУНІКАЦІЙ ТА ІНФОРМАТИКИ
Кафедра "Інформатика та обчислювальна техніка"
Контрольна робота з предмету
"Високорівневі методи інформатики та програмування"
Самара 2011р.
1. Завдання на контрольну роботу
Варіанти завдань вибираються з відповідних таблиць згідно з останньою M = 6 і передостанній N = 9 цифрам залікової книжки.
Рішення кожної задачі повинно складатися з блок-схеми алгоритму та реалізує його програми, забезпечені поясненнями. Програму реалізувати в середовищі Delphi як проект консольного застосування. p align="justify"> Задача 1.
Створити проект - додаток під Windows, яке по заданих розрахункових формулах і наборам вихідних даних, зазначених у табл.1, обчислює значення відповідних функцій. У проекті передбачити елементи введення вихідних даних, управління та виведення результатів обчислень у відповідні компоненти. Постачити елементи інтерфейсу пояснювальними написами. Значення аргументу взяти з зазначеного діапазону так, щоб протестувати всі гілки програми. br/>
Таблиця 1
MФункціі і условіяДанние і діапазон6a = 2.3
x = [1; 5]
procedure TForm1. MenuItem1Click (Sender: TObject); x, b, t: real;: = strtoInt (Edit1. Text);: = strtoFloat (Edit2. Text); (x <-3) and (x> = -5) then
begin: = b-sin (abs (X));
label3. Caption: = 't =' + floattostrF (t, fffixed, 6,2); else (x <= 1) and (x> 0) then
t: = sqr (ln (x));. Caption: = 't =' + floattostrF (t, fffixed, 6,2); else showMessage ('Функція не визначена');
В
Завдання 2.
Змінити додаток таким чином, щоб у Edit2 вводилося початкове значення змінної х із заданого діапазону, а програма автоматично (у циклі) обчислювала всі інші значення змінної з кроком 0,4 і відповідні їм значення функцій. Обчислення виконати з використанням оператора while. do або - repeat. until .
procedure TForm1. MenuItem2Click (Sender: TObject);, a, f: real;: string;: = StrToFloat (Edit1. Text);: = StrToFloat (Edit2. Text);. AutoSize: = True;: = 1;: = 'x | f' + chr (13); x <= 5 do (x <3) thenf: = a-3 * ln (x);: = st + FloatToStrF ( x, ffFixed, 6,2) + '' + Flo...
