Лабораторная работа - Программирование разветвляющихся алгоритмов - файл n6.doc

Лабораторная работа - Программирование разветвляющихся алгоритмов
скачать (257.3 kb.)
Доступные файлы (7):
n1.dia
lab_rab_3_v_11.bak
lab_rab_3_v_11.exe
lab_rab_3_v_11.o
lab_rab_3_v_11.pas
n6.doc60kb.09.12.2009 03:32скачать
n7.doc228kb.10.12.2009 19:31скачать

n6.doc



Министерство образования и науки Российской Федерации

Федеральное агентство по образованию

Государственное образовательное учреждение высшего

профессионального образования

Алтайский государственный технический университет

им. И. И. Ползунова
Заринское представительство

Кафедра «Информационные системы в экономике»

отчет о лабораторной работе №3

по теме: «Программирование разветвляющихся алгоритмов»


Выполнил: ст. гр. Зр-з ПИЭ – 91

Хрущ А. А.

Проверил преподаватель:

______________________

Оценка .

Подпись .

Дата .


г. Заринск 2009


Содержание

1. Постановка задачи……………………………………………………….3
2. Описание алгоритма……………………………………………………..3
3. Описание программы…………………………………………………….3
Приложение А. Текст программы………………………………………….5
Приложение Б. Тест программы…………………………………………...6

1. Постановка задачи.

По имеющимся площадям круга и квадрата определить поместится ли круг в квадрате.

2. Описание алгоритма.

Блок-схема программы представлена на рисунке 1.Текст программы представлен в приложении А, тестовый пример представлен в приложении Б.

3. Описание программы.
По введенным площадям фигур программа вычислит их сторону и диаметр и сравнит если диаметр меньше или равен стороне то программа выдаст сообщение что круг входит, иначе, будет сообщение "КРУГ НЕ ПОМЕСТИТСЯ"

константы:

pi = 3.14; число ?, для вычисления диаметра

переменные:

r, s, sk, sp, a, d: real; вещественные переменные для арифметических вычислений, ввода данных и вывода результатов.




Рисунок 1. блок-схема алгоритма

Приложение А. Текст программы.
PROGRAM LABA_3_V_11; //заголовок программы

const // раздел объявления констант

pi = 3.14; // значение константы

var // раздел объявления переменных

r, s, sk, sp, a, d: real; // переменные вещественного типа

begin // начало основной программы

writeln('По введенным данным программа определит '); // вывод на экран

writeln('поместится ли круг в квадрат');

writeln(' Введите площадь круга'); // вывод на экран

readln(sk); // считывание переменной

writeln('Введите площадь квадрата');

readln(sp);

// Найдем сторону квадрата

a:=sp/2; // вычисление стороны квадрата по приведенной формуле

// найдем диаметр круга

r:=sqrt(sk)/pi; // вычисляем радиус круга

d:= r+r; // диаметр это два радиуса

// далее операции сравнения в виде разветвляющегося алгоритма

if (a=d) or (a>d) then // логическая операция (отношение)

begin // если утверждение верно выполнится это деиствие

writeln(' Да круг поместится в квадрат т.к. ', a:5:3,' > ', d:5:3);

end

else

begin // если неверно то выполнится это действие

writeln('диаметр круга ', d:5:3, ' больше чем сторона квадрата ', a:5:3);

writeln(' КРУГ НЕ ПОМЕСТИТСЯ');

end;

readln; // ожидаем действия пользователя

end. // конец файла. выход из программы


Приложение Б. Тест программы.

запускаем файл lab_rab_3_v_11.exe

■ Free Pascal IDE Version 1.0.10 [2007/09/09]

■ Compiler Version 2.2.0

■ GBD Version GDB 6.2.1

■ Cygwin "C:\FPC\2.2.0\bin\i386-win32\cygwin1.dll" version

Running "c:\fpc\лабораторки \lab_rab_3_v_11.exe "

По введенным данным программа определит

поместится ли круг в квадрат

Введите площадь круга

5

Введите площадь квадрата

8

Да круг поместится в квадрат т.к. 2.000 > 1.424
Running "c:\fpc\лабораторки\lab_rab_3_v_11.exe "

По введенным данным программа определит

поместится ли круг в квадрат

Введите площадь круга

200

Введите площадь квадрата

40

Да круг поместится в квадрат т.к. 10.000 > 9.008
Running "c:\fpc\лабораторки \lab_rab_3_v_11.exe "

По введенным данным программа определит

поместится ли круг в квадрат

Введите площадь круга

200

Введите площадь квадрата

10

диаметр круга 9.008 больше чем сторона квадрата 2.500

КРУГ НЕ ПОМЕСТИТСЯ


Во время работы программы ошибок не выявлено.



Учебный материал
© bib.convdocs.org
При копировании укажите ссылку.
обратиться к администрации