обчислювання

Приклад 1:
Таблиця 1.3 Конфігурація блоків Назва блока Графічний вид блока Призначення у програмі Початок-кінець Початок (кінець) чи вхід (вихід) для підпрограм Блок введення- виведення Введення даних та виведення результатів обчислювання Блок обчислювань Обчислювання за формулами Умовний блок (розґалуження) Вибір напрямку виконування алгоритму залежно від виконання певних умов Блок модифікацій (заголовок циклу) Задає початкове й кінцеве значення та крок для параметра циклу Посилання на іншу сторінку Задає зв’язки поміж частинами схеми, розташованими на різних сторінках З’єднувач Зазначання зв’язку поміж перерваними лініями потоку, що зв’язують блоки Коментар Зв’язок поміж елементом схеми і поясненням Відстань поміж паралельними лініями потоків має бути не меншою за 3 мм, поміж іншими блоками й символами – не менше за 5 мм. Лінію потоку можна обривати, використовуючи на місці обриву з’єднувачі, якщо схему ви- конано на двох чи більшій кількості аркушів, чи якщо з’єднувані блоки розта- шовано на значній відстані один від одного.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 2:
Файл Unit2.h: struct Element int d; Element *next;; Element* fir(int x); void add(Element* fir, Element las, int x); void del_el(Element* c1, Element las); void vstavka(Element* c1, Element las, int x); void ochistka(Element *fir); Розділ 12 428 Форма додатка з результатами роботи матиме вигляд Файл Unit2.cpp: // Створення першого елемента списку Element* fir(int x) Element *c=new Element; c->d=x; c->next=0; return c; // Функція долучення елемента у кінець списку void add(Element* fir, Element las, int x) Element *c=new Element; c->d=x; c->next=0; (*las)->next = c; *las = c; // Функція вставлення елемента до списку void vstavka(Element* c1, Element las, int x) Element* c=new Element; c->d=x; c->next=c1->next; Динамічні структури даних 429 c1->next=c; if(c1==(*las)) (*las)=c; // Функція вилучення елемента зі списку void del_el(Element* c1, Element las) Element* c=c1->next; c1->next=c->next; if(c==(*las)) (*las)=c1; delete c; // Функція звільнення пам’яті від списку void ochistka(Element *fir) Element *c=fir; while (fir!=0) fir=fir->next; delete c; c=fir; Файл Unit1.cpp: #include “Unit2.h” // Функція виведення списку до StringGrid // (параметри – покажчик на початок списку і StringGrid, до якого виводиться список) void setka(Element *fir, TStringGrid *sg) Element *c=fir; int n=0; while(c!=0) sg->Cells[n][0]=c->d; n++; c=c->next; sg->ColCount=n; // Функція обчислювання середнього арифметичного додатних елементів списку float sr_ar(Element * fir) int sum=0, kol=0; Element *c=fir; while(c!=0) if(c->d>0) sum+=c->d; kol++; c=c->next; return 1.0*sum/kol; // Функція вилучення зі списку елементів з числовим значенням менше за –1 void vyluch (Element fir, Element las) Element* c1=(*fir); bool ok=false; while((*fir)->d<-1) // Якщо значення першого елемента є менше за –1, (*fir)=(*fir)->next; //першим стає той, що був другим Розділ 12 430 delete c1; // і вилучається той, що спочатку був першим. ok=true; while (c1->next!=0) if(c1->next->d < -1) del_el(c1, las); ok=true; else c1=c1->next; if(ok==false) ShowMessage(“Елементів < -1 нема"); return; //------------------------------------------------------------- // При запуску форми StringGrid1 заповнюється випадковими числами void __fastcall TForm1::FormCreate(TObject *Sender) randomize(); for(int i=0; i<4; i++) for(int j=0; j<5; j++) StringGrid1->Cells[j][i]=IntToStr(random(21)-10); //————————————————————- // Кнопка “Розв’язок” void __fastcall TForm1::Button1Click(TObject *Sender) Element *first=0,*last=0, *ce; int i,j,k=0,sum=0; for(i=0; i<4;i++) for(j=0; j<5; j++) if(abs(StrToInt(StringGrid1->Cells[j][i]))<=5) if (first==0) first=fir(StrToInt(StringGrid1->Cells[j][i])); last=first; else add(first,&last,StrToInt(StringGrid1->Cells[j][i])); setka(first, StringGrid2); // Виведення списку у StringGrid2 Edit1->Text=FormatFloat(“0.00”,sr_ar(first)); vyluch(&first, &last); // Вилучення елементів зі списку setka(first, StringGrid3); // Виведення списку до StringGrid3 int x=StrToInt(Edit2->Text); int y=StrToInt(Edit3->Text); ce=first; while(ce!=0) if(ce->d==y) vstavka(ce, &last, x); // Вставлення нового елемента до списку ce=ce->next; setka(first, StringGrid4); // Виведення списку до StringGrid4 ochistka(first); Динамічні структури даних 431 12.5 Різновиди списків За кількістю зв’язків між елементами списки бувають: 9 однозв’язні; 9 двозв’язні.
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”

Приклад 3:
#include “myclass.h” double worker::podatok() // Обчислювання податку double nal; switch(vid) case 0: if(oklad<=300) nal = 0; else nal = oklad*0.15; break; case 1: nal = oklad *0.2; return nal; double worker::zarplatnia() // Обчислювання зарплатні return oklad – podatok(); Файл Unit1.cpp .
— Невідомий автор, “132 Trofimenko Og Prokop Iuv Shvaiko Ig Ta Inc Osnovi Programuva Tech”