Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
DevioLab
CRYPTO TRADING AUTOMATION
LIVE
AUTOMATED CRYPTO TRADING • BINANCE
Автоматизуйте свій
криптопортфель
Торгові боти DevioLab аналізують крипторинок,
автоматично відкривають і закривають позиції
та керують вашим портфелем на Binance 24/7.
CRYPTO
80 Bots
BINANCE
Spot Trading
TRADING
24 / 7
deviolab.com
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2013
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування та алгоритмічні мови
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № __
з дисципліни
“Основи програмування та алгоритмічні мови”
Тема:_____________________________________________
Постановка задачi:
Заданий одновимірний масив A(n) дійсних чисел. Побудувати масив В, кожний елемент якого обчислюється як bі = аmax - аі, де аmax - макси мальний елемент масиву А. Обчислити . Всі кратні 7 елементи масиву А збільшити на величину d. Надрукувати вхідний, побудований масиви, визначену величину d та вихідний масив.
Аналiтичнi викладки:
D = сума квадратів різниць всіх відповідних елементів масивів А і В.
Число кратне 7 якщо воно ділиться на 7 без остачі.
Блок-схема:
Текст програми:
program lab5_1;
uses crt;
const n=11;
type mas=array[1..n] of longint;
var A,B :mas;
i,d,m_el :longint;
procedure ZapovnMas(var masiv :mas);
begin;
for i:=1 to n do masiv[i]:=random(30);
end;
procedure VivodMas(masiv :mas);
begin;
for i:=1 to n do write(masiv[i]:7);
writeln;
end;
function MaxEl(masiv :mas) :longint;
var Max_El :longint;
begin;
Max_El:=masiv[1];
for i:=1 to n-1 do if Max_El < masiv[i+1] then Max_El:=masiv[i+1];
MaxEL:=Max_El;
end;
procedure ChangeMas(var masiv1 :mas; masiv2 :mas);
begin;
for i:=1 to n do masiv1[i]:=m_el-masiv2[i];
end;
function Find_d(masiv1,masiv2 :mas) :longint;
var fd :longint;
begin;
fd:=0;
for i:=1 to n do
fd:=fd+sqr(abs(masiv1[i]-masiv2[i]));
Find_d:=fd;
end;
procedure Change7(var masiv :mas);
begin;
for i:=1 to n do if (masiv[i] mod 7)=0 then masiv[i]:=masiv[i]+d;
end;
{---osnovna programa---}
begin;
randomize;
clrscr;
ZapovnMas(A);
writeln('massiv A:');
VivodMas(A);
m_el:=MaxEl(A);
writeln('max=',m_el);
ChangeMas(B,A);
writeln('Massiv B');
VivodMas(B);
d:=Find_d(A,B);
writeln('d=',d:8);
Change7(A);
writeln('New A');
VivodMas(A);
readln
End.
Скриншот:
Висновок: программа працює правильно, при підставленні таких самих значень елементів масиву А у екселі та обчисленні за формулами виходить такий самий результат
25.02.2013 16:29
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора