87894

Програми циклічної структури

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

Информатика, кибернетика и программирование

Мета: Закріплення знань про програми циклічної структури, складання програм та робота з нею. Індивідуальне завдання №5 Умова : Скласти 3 варіанта програм циклічної структури типа for, while та repeat, зробити компіляцію, ввести вхідні данні, порівняти результати.

Украинкский

2015-04-24

25.71 KB

0 чел.

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

НАЦІОНАЛЬНИЙ ТЕХНІЧНИЙ УНІВЕРСИТЕТ

“ХАРКІВСЬКИЙ ПОЛІТЕХНІЧНИЙ ІНСТИТУТ”

Кафедра: “Інформатика та інтелектуальна власність”




ЗВІТ

з лабораторної роботи №3

тема: “ Програми циклічної структури

Дисципліна: “Структури та організація даних ЕОМ”





Виконав: студ. гр. КІТ-64

Кабанин А.В.

Перівірив: к.т.н., ас. каф. ІІВ

Бурцев М.В.

                                                                                                                     Поворознюк О.С.



Харків 2014

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

Тема:  «Програми циклічної структури»

Мета: Закріплення знань про програми циклічної структури, складання програм та робота з нею.

Індивідуальне завдання №5

Умова : Скласти 3 варіанта програм циклічної структури типа for, while та repeat, зробити компіляцію, ввести вхідні данні, порівняти результати.

Формула:   

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

Program lab_3_1;

 var n,i,x : integer;

   s: real;

 begin

  WriteLn('Введите число');

  readln(n);

  s:=0;  x:=1;

  for i:=1 to n do

   begin

    s:=8/(16+sqr(x))+s;

    x:=x+1;

   end;

  writeLn('Сума ряду з ',n,' елементов ровняется ',s);

 end.

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

Program lab_3_2;

 var n,i,x : integer;

   s: real;

 begin

  WriteLn('Введите число');

  readln(n);

  s:=0;  i:=1;  x:=1;

  While i<=n do

   begin

     s:=8/(16+sqr(x))+s;

     i:=i+1;   x:=x+1;

   end;

  writeLn('Сума ряду з ',n,' елементов ровняется ',s);

  end.

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

Program lab_3_3;

  var n,i,x : integer;

   s: real;

 begin

  WriteLn('Введите число');

  readln(n);

  s:=0;  I:=0;  x:=1;

   begin

    repeat

    S:=8/(16+sqr(x))+s;

    I:=i+1;   x:=x+1;

    until I>=n;

   end;

  writeLn('Сума ряду з ',n,' елементов ровняется ',s);

 end.

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

Розрахунок формули    в програмі турбо Паскаль  3 методами: for, while та repeat.

Висновки

На лабораторній роботі №3 я  закріпив знання про програми циклічної структури. Навчився складати програми на основі закріплених знань.


 

А также другие работы, которые могут Вас заинтересовать

56179. ВИГОТОВЛЕННЯ ІГРАШОК-СУВЕНІРІВ “СПОРТСМЕНИ“ 56.5 KB
  Із поролону вирізати деталі: тулуб разом із головою та ноги. Із коричневого драпу вирізати деталі тулуба й ніг. З’єднати деталі тулуба із тканини й поролону зметати й зшити косим стібком через край. З’єднати деталі із тканини й поролону зметати й зшити.
56181. Німецька мова — одна з найкращих європейських мов 145.5 KB
  Stimmt. Ich bin damit einverstanden. Auβerdem werden wir H?rverstehen?ben, Sprachreaktion entwickeln, die Liebe zur deutschen Sprache beitragen. Jetzt beginnen wir mit der Wortschatzarbeit.
56184. Справочник юного натуралиста 977.5 KB
  Сельским жителям лесостепных районов УССР известна эта небольшая серая птица с коричневой подковкой на груди. Дятел Дятлы тоже принадлежат к лазающим птицам в полном смысле этого слова и при лазанье по коре деревьев очень ловко умеет пользоваться парным расположением своих пальцев.
56185. ЧЕЛОВЕК И ОКРУЖАЮЩАЯ СРЕДА 190.5 KB
  Развивать интуицию память речь умение логически мыслить делать выводы. Вечное как мир: с чего начинается Родина маминой песни родительского дома или рисунка букваре Изменения Положительные Отрицательные Воды Почвы Население Атмосфера...
56186. The Structure and Functions of British Parliament 103.5 KB
  The British Parliament works in a large building called the Palace of Westminster (popularly known as the Houses of Parliament). This contains offices, committee rooms, restaurants, bars, libraries and even some places of residence.