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


 

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

11704. Исследование работы рефрактометра ИРФ - 22 330.5 KB
  Лабораторная работа № 3 Исследование работы рефрактометра ИРФ 22 1 ЦЕЛЬ РАБОТЫ: Изучение принципа работы на рефрактометре ИРФ 22. 2. ОБОРУДОВАНИЕ И ПРИБОРЫ: Рефрактометр ИРФ 22; Дистиллированная вода. Этанол. Четыре контрольные пробы раствора с разл
11705. Создание диаграммы вариантов использования в среде проектирования Rational Rose 498.5 KB
  Лабораторная работа №1 Создание диаграммы вариантов использования в среде проектирования Rational Rose 1 Общие сведения о Rational Rose Компания Rational Software является лидирующей в области создания методологий и программных решений ориентированных на программистов анали...
11706. Защита сетевых ресурсов с помощью разрешений NTFS 16.52 KB
  Лабораторная работа № 6. Защита сетевых ресурсов с помощью разрешений NTFS. Цели: назначить учетным записями группам разрешения доступа к папке и файлу; предоставить пользователям возможность изменятьразрешения доступа к файлам и папкам; предоставить пользователям воз...
11707. Настройка и администрирование сетевых принтеров 27.5 KB
  Лабораторная работа № 7. Настройка и администрирование сетевых принтеров Цель работы: узнать об установке и администрировании сетевых принтеров научиться управлять принтерами и документами а также разрешать распространенные проблемы печати. Выполнил: Слепцов И.
11708. Аудит ресурсов и событий 25.5 KB
  Лабораторная работа №8. Аудит ресурсов и событий. Цели работы: научиться планировать политику аудита настроить аудит для файлов и папок настроить аудит для принтеров просматривать журнал находить события в журнале заархивировать журнал безопасности конфигуриров
11709. Мониторинг ресурсов 16.19 KB
  Лабораторная работа №9. Мониторинг ресурсов. Цели работы: оптимизировать производительность дисков с помощью утилиты Check Disk оснастки Disk Defragmenter сжатия данных и дисковых квот; определить какие из папок на Вашем компьютере являются общими; контролировать общие папки;...
11710. Архивация и восстановление данных 24.25 KB
  Лабораторная работа № 10. Архивация и восстановление данных Цели :научится архивировать данные на компьютере и по сети; Научится создать расписание архивации; Научится настроить варианты архивации в Backup Wizard Мастер архивации; Научится восстанавливать данные. Ход ра
11711. Установка и настройка сетевых служб 27.5 KB
  Лабораторная работа № 11. Установка и настройка сетевых служб. Цели работы: получение практических навыков по установке и настройке служб DHCP и DNS в сетевой среде Windows. Выполнил: Слепцов И. А. Группа: 103ПО. Дата: 12.12.12. Проверил: Антипенков А. В. Ход работы Устано...
11712. Установка и конфигурирование Terminal Services и Terminal Services Licensing 27 KB
  Лабораторная работа № 12. Установка и конфигурирование Terminal Services и Terminal Services Licensing. Цели работы: установить службы Windows 2000 Terminal Services и выполнить их удаленную настройку установить службы лицензирования и открыть сеанс связи с терминальными службами. Выполнил: Слепцов...