Зертханалық жұмыс №3: Циклді алгоритмдер, басқару операторлары және Pascal-тағы жүзеге асыру

Скачать

Орындаған: Тоқтарғазин Ә. А АУ-401 Тексерген: Жаксыгулова Д. Д

ҚАЗАҚСТАН РЕСПУБЛИКАСЫНЫҢ БІЛІМ ЖӘНЕ ҒЫЛЫМ МИНИСТІРЛІГІ СЕМЕЙ ҚАЛАСЫНЫҢ ШӘКӘРІМ АТЫНДАҒЫ МЕМЛЕКЕТТІК УНИВЕРСИТЕТІ

Автоматика және электротехника кафедрасы

С. Ө. Ж №3

Кіріктірілген циклдардың құрылымын ұйымдастыру. Циклдық алгоритмдерді орындайтын программа құру.

ТР және Си программалау жүйелеріндегі модульдерді салыстыру

.

Циклдарының түрлілігін оңай түсіну үшін, тек айырмашылығы қайталану санын білу, егер солай болса, онда біз арифметикалық цикл ол итерациялық цикл.

цикл while-do-

цикл repeat-until-

цикл шарты бар цикл «деген»

қайталау

Бұл цикл, сондай-ақ итерационно деп аталады. Блок-сұлба цикл

for := to do

for := downto do

істеу

істеу

Итерациялық цикл

Бұл цикл, сондай-ақ алдын ала жағдай бар цикл деп аталады.

while

Бұл цикл шарт ретінде ұзақ болып орындалады.

Бұл цикл ретінде ұзақ шарты жалған болып орындалады. Бойда жағдайы шынайы болып ретінде, цикл, үзіледі. Шарт шын болса, бастапқы цикл бір рет орындалады.

repeat

until

жай-күйі

қайталау

Break және жалғастыру циклы деп аталады.

үзіліс тен кейін ілмектер тоқтатылады және

оператордың келесі циклына бақылау өтеді

Цикл мәлімдемеде жалғастыру

Кейде ішіне басқа бір цикл орындау қажет.

continue

жалғастыру

unituncicl;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, Spin,

StdCtrls, Buttons;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

CheckBox1: TCheckBox;

CheckBox2: TCheckBox;

CheckBox3: TCheckBox;

Edit1: TEdit;

Edit2: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Memo1: TMemo;

SpinEdit1: TSpinEdit;

procedureButton1Click(Sender: TObject) ;

procedureFormCreate(Sender: TObject) ;

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{ TForm1 }

procedureTForm1. FormCreate(Sender: TObject) ;

begin

SpinEdit1. Value:=3; // количество членов рядаN

Edit1. text:='0, 1'; // начальное значениеXn

Edit2. text:='2, 0'; // конечное значениеXk

Memo1. Clear;

Memo1. Lines. Add('Лабораторная работа №3 - Циклический алгоритм') ;

end;

procedureTForm1. Button1Click(Sender: TObject) ;

varxn, xk, x, h, an, s, y, al, R, del: extended;

n, k:integer;

Әзірге орындалатын ілмектер мысалында алгоритм құруға тырысамыз.

Бағдарлама үстелінің кіріспесі

Бұл деректер пернетақтадан енгізілуі тиіс не пайдаланушыны көрсету қажет. Бұл бағдарлама желісі үшін

жазу («Enter», санау, - құны ші: ')

Пернетақтадан деректерді енгізу

1 [3, c. 82] арқылы санауышын көбейтпейді. Бұл әрекетті орындау үшін, теріңіз

саны: = + 1 санау;

Өнімнің нәтижесінде мәні қосыңыз. Бұл әрекетті орындау үшін, теріңіз

Бірнеше: = * а Mult;

Нәтижесі жолдар дисплейін қосыңыз. Бұл әрекетті орындау үшін, бағдарламаға жолды қосу

Арнайы жиһаз бен оргтехника ('Сандар өнімі болып табылады: «, Бірнеше) ;

Бағдарламасын іске қосыңыз, 1-ден 5-ке кез келген нөмірін енгізіңіз және нәтиже қараңыз

• Іс жүргізу
• Автоматтандыру, Техника
• Алғашқы әскери дайындық
• Астрономия
• Ауыл шаруашылығы
• Банк ісі
• Бизнесті бағалау
• Биология
• Бухгалтерлік іс
• Валеология
• Ветеринария
• География
• Геология, Геофизика, Геодезия
• Дін
• Ет, сүт, шарап өнімдері
• Жалпы тарих
• Жер кадастрі, Жылжымайтын мүлік
• Журналистика
• Информатика
• Кеден ісі
• Маркетинг
• Математика, Геометрия
• Медицина
• Мемлекеттік басқару
• Менеджмент
• Мұнай, Газ
• Мұрағат ісі
• Мәдениеттану
• ОБЖ (Основы безопасности жизнедеятельности)
• Педагогика
• Полиграфия
• Психология
• Салық
• Саясаттану
• Сақтандыру
• Сертификаттау, стандарттау
• Социология, Демография
• Спорт
• Статистика
• Тілтану, Филология
• Тарихи тұлғалар
• Тау-кен ісі
• Транспорт
• Туризм
• Физика
• Философия
• Халықаралық қатынастар
• Химия
• Экология, Қоршаған ортаны қорғау
• Экономика
• Экономикалық география
• Электротехника
• Қазақстан тарихы
• Қаржы
• Құрылыс
• Құқық, Криминалистика
• Әдебиет
• Өнер, музыка
• Өнеркәсіп, Өндіріс