Высокоуровневые методы информатики и программирования

ПОВОЛЖСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ ТЕЛЕКОММУНИКАЦИЙ И ИНФОРМАТИКИ Кафедра «Информатика и вычислительная техника»

Контрольная работа по предмету

" Высокоуровневые методы информатики и программирования"

Самара 2011 г.

1. Задание на контрольную работу

Варианты заданий выбираются из соответствующих таблиц согласно последней M=6 и предпоследней N=9 цифрам зачётной книжки.

Решение каждой задачи должно состоять из блок-схемы алгоритма и реализующей его программы, снабженные пояснениями. Программу реализовать в среде Delphi как проект консольного приложения.

Задача 1.

Создать проект — приложение под Windows, которое по заданным расчетным формулам и наборам исходных данных, указанных в табл.1, вычисляет значения соответствующих функций. В проекте предусмотреть элементы ввода исходных данных, управления и вывода результатов вычислений в соответствующие компоненты. Снабдить элементы интерфейса пояснительными надписями. Значения аргумента взять из указанного диапазона так, чтобы протестировать все ветви программы.

Таблица 1

procedure TForm1. MenuItem1Click (Sender: TObject);

var x, b, t: real;

begin

b: =strtoInt (Edit1. Text);

x: =strtoFloat (Edit2. Text);

if (x<-3) and (x>=-5) then

begin

t: =b-sin (abs (X));

label3. Caption: ='t='+ floattostrF (t, fffixed, 6,2);

end else

if (x<=1) and (x>0) then

begin

t: =sqr (ln (x));

label3. Caption: ='t='+floattostrF (t, fffixed, 6,2);

end else showMessage ('Функция не определена');

Задача 2.

Изменить приложение таким образом, чтобы в Edit2 вводилось начальное значение переменной х из заданного диапазона, а программа автоматически (в цикле) вычисляла все остальные значения переменной с шагом 0,4 и соответствующие им значения функций. Вычисление выполнить с использованием оператора while. do или — repeat. until.

procedure TForm1. MenuItem2Click (Sender: TObject);

var

x, a, f: real;

st: string;

begin

a: =StrToFloat (Edit1. Text);

x: =StrToFloat (Edit2. Text);

Label4. AutoSize: =True;

x: =1;

st: =' x | f '+chr (13);

while x<=5 do

begin

if (x<3) then

begin f: =a-3*ln (x);

st: =st+FloatToStrF (x, ffFixed, 6,2) +' '+FloatToStrF (f, ffFixed, 6,2) +chr (13);

end

else

if (x=4) then

begin

f: =5*sqr (cos (x));

st: =st+FloatToStrF (x, ffFixed, 6,2) +' '+FloatToStrF (f, ffFixed, 6,2) +chr (13);

end

else st: =st+'Функция не определена' +chr (13);

x: =x+0.4;

end;

label4. Caption: =st;

end;

Проект в режиме конструирования Проект в режиме запуска Задачи 1

Проект в режиме запуска Задачи 2

Задача 3.

Составить алгоритм, написать программу, создать проект — приложение под Windows, которое позволяет произвести вычисление по заданию 1, приведенному в в табл.2.

1. Для этого, используя компонент StringGrid, ввести одномерный массив из целых чисел в диапазоне — 20. +20. В модуле проекта необходимо:

— описать массив; ввести элементы массива из заданного диапазона;

— выполнить с элементами массива действия, заданные в табл.2;

— вывести результаты вычислений на экран в соответствующие компоненты;

— снабдить элементы интерфейса пояснительными надписями;

— сохранить проект решения в своей папке на диске D: Temp Tabl модуль под именем Main. pas, а проект под именем Mas1. dpr.

Таблица 2

procedure TForm1. Button1Click (Sender: TObject);

var

i: byte;

G: array [1.16] of integer;

st: string;

begin

st: = ' ';

for i: =1 to 16 do

G [i]: =StrToInt (StringGrid1. Cells [i-1,0]);

for i: =1 to 8 do

st: =st+IntToStr (G [i]) +' '+IntToStr (G [8+i]) +chr (13);

label3. Caption: =st;

end;

initialization

{$I unit1. lrs}

end.

Проект в режиме проектирования Проект в режиме запуска

2. Выводы

В контрольной работе выполнены 3 задачи на разные алгоритмические структуры, описывающие следующие процессы:

2. Разветвляющийся

4. Циклический итеративный

5. Циклический регулярный, используемый для работы с массивами.

Каждая структура реализуется с помощью соответствующих операторов:

Ветвление if. then. else, регулярный цикл for. to. do, итеративный цикл while. do. При работе с массивами использовались операторы for. to. do.

Для ввода переменных и вывода результата расчета использовались компоненты Windows.

информатика алгоритм оператор консольный

3. Литература

1. Информатика. Базовый курс. Под ред. Симонович С. В. СПБ.: «Питер», 2005.

2. Delphi 7. Учебный курс. Бобровский С. И. — СПб.: «Питер», 2003.

3. Основы программирования в Delphi 7. Культин Н. Б., СПб. 2005.

4. Программирование в Turbo Pascal 7.0 и Delphi. Культин Н. Б., СПб. 2001.

5. Стефанова И. А. Методические указания и контрольные задания по курсу «Информатика и программирование» .