laba3 (811934)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

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

ФАКУЛЬТЕТ ____ИНФОРМАТИКА И СИСТЕМЫ УПРАВЛЕНИЯ________

КАФЕДРА ______Компьютерные Системы и сети (ИУ6)___________

Отчет

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

Название лабораторной работы: Программирование циклического процесса. Типы циклов.

Дисциплина: Основы программирования

Студент гр. ИУ6-14Б __________________ ___________________

(Подпись, дата) (И.О. Фамилия)

Преподаватель __________________ __________________

(Подпись, дата) (И.О. Фамилия)

Рассмотреть решение предложенной задачи с использованием всех трех видов циклов. Отладить программу с наиболее рациональным вариантом цикла. Обосновать выбор.

Определить первое число последовательности Фибоначчи, превышающее число k. Последовательность определяется законом: F₀=F₁=1; F_n=F_n-1+F_n-2 - для

n  2.

1) Программа с циклом while:

program laba3;

{$APPTYPE CONSOLE}

uses sysutils;

const n=10000;

var
t,i,k:integer; f:array [0..n] of integer;
begin
f[0]:=1;
f[1]:=1;
write('k:='); readln(k);
i:=2;
while f[i] <= k do
begin
f[i]:=f[i-1]+f[i-2];
t:=f[i-1];

f[i+1]:=f[i]+t;
i:=i+1;
end;
writeln(f[i]);
readln;
end.

2

Рис. 2 Результат работы программы

Рис. 1 Схема алгоритма программы

с циклом while

2) Программа с циклом for:

program laba32;

{$APPTYPE CONSOLE}

uses

SysUtils;

const n=10000;

var

i,k:integer; f:array [0..n] of integer;

begin

f[0]:=1;

f[1]:=1;

write('k:='); readln(k);

for i:=0 to k do begin

f[i+2]:=f[i+1]+f[i];

if f[i]>k then begin

writeln(f[i]);

break

end;

end;

readln;

end.

3

Рис. 3 Схема алгоритма программы

с циклом for

3) Программа с циклом repeat…until:

program laba33;

{$APPTYPE CONSOLE}

uses sysutils;

const n=10000;

var

t,i,k:integer; f:array [0..n] of integer;

begin

f[0]:=1;

f[1]:=1;

write('k:='); readln(k);

i:=2;

repeat

f[i]:=f[i-1]+f[i-2];

t:=f[i-1];

f[i+1]:=f[i]+t;

i:=i+1;

until f[i] > k;

writeln(f[i]);

readln;

end.

4

Рис. 4 Схема алгоритма программы

с циклом repeat…until

Вывод: Разработана программа с тремя видами циклов, определяющая первое число последовательности Фибоначчи, превышающее число k. Изучено программирование циклического процесса и типы циклов.

5

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы