Программирование циклического процесса. Типы циклов

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

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

КАФЕДРА                            КОМПЬЮТЕРНЫЕ СИСТЕМЫ И СЕТИ (ИУ6)

Отчет

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

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

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

                   Студент   гр.   ИУ-6 13Б                ___________               _____________

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

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

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

Москва, 2019

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

Дано двузначное число k. Определить k-ю цифру последовательности 248163264128256... (степени 2). Массивов и строк не использовать.

Код программы:(через цикл while)

program Project3;

{$APPTYPE CONSOLE}

uses SysUtils;

var v,i,k,g,t:integer;

begin

writeln('vvedute k');

readln(k);

v:=2;

i:=1;

t:=0;

while i

begin

      writeln('v=', v);

      v:=v*2;

      i:=i+1;

      t:=v;

      while (t div 10<>0) do

        begin

          t:=t div 10;

          i:=i+1;

        end;

      writeln('-----')

end;

while i > k do

begin

g:=v div 10;

v:=v div 10;

i:=i-1;

end;

if i=k then

begin

g:=v mod 10;

writeln(g);

end;

readln;

end.

Результат программы:

Таблица 1 – результат программы.

Схема алгоритма:

[pic 2]

Рис 1-схема алгоритма

Код программы: (через цикл for)

program Project3;

{$APPTYPE CONSOLE}

uses SysUtils;

var bb,v,i,k,g,t:integer;