Тема: «Ввод и отладка программ циклической структуры»

МКИП

Отчёт

Лабораторная работа №3

По дисциплине О. А.П.

Специальность: 2203

Студента группы

Тема: «Ввод и отладка программ циклической структуры»

2004

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

Программные средства: Интегрированная инструментальная среда TPascal 7.0

Задание: Разработать и отладить программу циклической структуры.

Формулировка задачи: Составить программу вычисления суммы нечётных чисел натурального ряда. Натуральный ряд содержит M чисел. Полученную сумму разделить на 5 и уменьшить на величину M.

M – вводится с клавиатуры.

Математическая модель:

S:=S+i

Q=S/5-M

Таблица переменных Таблица №1

ИМЯ	Индификатор	ТИП	НАЗНАЧЕНИЕ	ПРИМЕЧАНИЕ
i	i	Integer	Промежуточная	Переменная
S	S	Integer	Промежуточная	Сумма
Q	Q	Real	Выводная	Итог вычислений
M	M	Integer	Вводимая	Вводится с клавиатуры

Таблица сообщений Таблица №2

СООБЩ. №	ТЕКСТ
1	Введите число элементов
2	Сумма нечётных чисел=

ИМЯ	МОДУЛЬ	НАЗНАЧЕНИЕ
READLN	SYSTEM	Чтение строки с клавиатуры
WRITELN	SYSTEM	Печать без перевода строки
CLRSCR	CRT	Очистка экрана

Таблица тестов Таблица №4

Вводимые переменные M	Результат Q	ВЫХОДНЫЕ ДАННЫЕ Q
1	-0.80	-0.80
30	15	15
600	4292	4292

Текст погграммы:

program cikl;

uses crt;

var

m, s,i:integer;

q:real;

begin

clrscr;

gotoxy(28,7);

writeln('Введите число элементов');

gotoxy(38,8);

readln(m);

s:=0;

for i:=1 to m do

begin if odd(i)=true then s:=s+i else

end;

q:=s/5-m;

gotoxy(26,9);

writeln('Сумма нечётных чисел= ',q:2:2);

readln;

end.

B C D E F Лист № докум. Подп. Дата Лист

Протокол выполнения:

1.

Введите число элементов

6

Сумма нечётных чисел= -4.20

2.

Введите число элементов

30

Сумма нечётных чисел= 15.00

3.

Введите число элементов

2

Сумма нечётных чисел= -1.80