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 я  закріпив знання про програми циклічної структури. Навчився складати програми на основі закріплених знань.


 

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

63531. Загальні поняття конструювання 483.5 KB
  Конструювання як інженерна діяльність є процесом пошуку знаходження і відображення в конструкторській документації форми розмірів складу виробу деталей вузлів використовуваних матеріалів комплектуючих виробів взаємне розташування частин і зв’язки між ними вказівок...
63533. Оптоелекронні пристрої 3.51 MB
  Використовують для естетичних завдань, а також використовування вимірювання різних дефектів у важливих за призначенням об’єктах (дефект колеса літака), а також в інформаційних системах.
63535. Основные параметры и характеристики сканеров 19.34 KB
  Существует несколько видов разрешения указываемого производителем сканеров. В массовых моделях сканеров обычно оно бывает равно 100 или 200 для ручных и рулонных сканеров и 300 600 или 1200 dpi для планшетных сканеров.
63538. Налоги в экономической системе общества 98.5 KB
  Налог является таким образом не только финансовой категорией но и правовой признаки налога смотреть в практике. Таким образом в налогах выражается весь спектр экономических политических и социальных интересов государства и общества.
63539. Древнейшие цивилизации на территории нашей страны 1.14 MB
  Однако целых три столетия до этого имя хазар не сходило со страниц летописей разных народов и не случайно поскольку именно их держава каганат до возвышения Руси доминировала в Восточной Европе.