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

ПОВОЛЖСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ

ТЕЛЕКОММУНИКАЦИЙ И ИНФОРМАТИКИ

Кафедра "Информатика и вычислительная техника"

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

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

Самара 2011г.

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

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

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

Задача 1.

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

Таблица 1

6                a=2.3

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 ('Функция не определена');

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) +' '+FloatToStrF (f,ffFixed,6,2) +chr (13);(x=4) then: =5*sqr (cos (x));: =st+FloatToStrF (x,ffFixed,6,2) +' '+FloatToStrF (f,ffFixed,6,2) +chr (13);

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

x: =x+0.4;;. Caption: =st;;

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

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

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

Задача 3.

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

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

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

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

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

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

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

Таблица 2

procedure TForm1. Button1Click (Sender: TObject);: byte;: array [1.16] of integer;: string;: = ' ';i: =1 to 16 do[i]: =StrToInt (StringGrid1. Cells [i-1,0]);i: =1 to 8 do: =st+IntToStr (G [i]) +' '+IntToStr (G [8+i]) +chr (13);. Caption: =st;;

{$I unit1. lrs}.

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

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

2. Выводы

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

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

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

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

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

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

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

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

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

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

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

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

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