Подякувати Студентському архіву довільною сумою
Admin
26.02.2023 12:38
Дякуємо, що користуєтесь нашим архівом!
ОДНОВИМІРНІ МАСИВИ
Інформація про навчальний заклад
ВУЗ:
Національний технічний університет України Київський політехнічний інститут
Інститут:
Не вказано
Факультет:
Не вказано
Кафедра:
Не вказано
Інформація про роботу
Рік:
2010
Тип роботи:
Звіт про виконання лабораторної роботи
Предмет:
Основи програмування
Частина тексту файла (без зображень, графіків і формул):
Міністерство освіти і науки України
Національний технічний університет України
“Київський політехнічний інститут”
Кафедра ОТ
ЗВІТ
про виконання лабораторної роботи № 5_1
з дисципліни
“Основи програмування ”
Тема: ОДНОВИМІРНІ МАСИВИ
Постановка задачі
Заданий одновимірний масив Р(n) цілих чисел. Визначити, скільки елементів масиву Р, що мають парні порядкові номера, є непарними числами; замінити кожен із таких елементів величиною | pmax - pi |, де і – індекс відповідного елемента, pmax - макси мальний елемент масиву Р. Якщо таких елементів немає, вивести відповідне повідомлення. Надрукувати вхідний масив, визначену кількість елементів та вихідний масив (при їх наявності).
аналітичні викладки
Одновимірний масив (чи просто масив) — це такий засіб мови програмування (на зразок змінної) (Іноді масивом називають саму впорядковану множину значень. А кожне таке значення називають елементом масиву. Таке змішування понять не повинно Вас бентежити — програмісти не математики і не схильні до ювелірної точності визначень), що дозволяє посилатися на будь-який елемент пронумерованої множини значень. При цьому всі значення (елементи множини) повинні бути одного типу. А їхня кількість не повинна перевершувати заздалегідь заданого числа
блок-схема алгоритму
текст програми
program lab5_1;
uses crt;
const n=10;
type vek=array[1..n] of integer;
var m:vek; {masiv}
k,{s4et4ik}
i{,{peremenaya cikla}
{ max}:integer; {maxsimym}
q:string; {flag povtoreniy programi}
procedure input;
begin
for i:=1 to n do
m[i]:=random(50);
end;
{====================}
procedure output;
begin
for i:=1 to n do
write(m[i]:3,' ');
writeln;
end;
{=======================}
function max:integer;
var max1:integer;
begin
max1:=m[1];
for i:=2 to n do
if m[i]>max1 then
max1:=m[i];
max:=max1;
end;
{=========================}
procedure osnova(max1:integer);
begin
i:=2;
k:=0;
while i<=n do
begin
if (m[i] mod 2)<>0 then
begin write(m[i],' pomenalos na =');
m[i]:=abs(max1-m[i]); writeln(m[i]);
k:=k+1;
end;
i:=i+2;
end;
if k=0 then
writeln('sootvetstvyushix elementov ne naideno')
else
writeln('koli4estvo =',k);
end;
{==================================================}
begin
clrscr;
writeln ('Laboratorna robota 5_1');
writeln ('Variant 15');
writeln('vikonav Kononec German ip-02');
q:='yes'; {startovoe zna4enie vneshnego cikla}
while (q='yes') or (q='Y') or (q='y') do {yslovie}
begin
input; {ctvorena masiva}
write('pervii masiv ');
output; {vivod ctvorenogo masiva}
osnova(max); {osnovni peretvorena}
write('vtoroi masiv ');
output; {vivod peretvorenogo masivy}
writeln;
writeln('povtorit` program? (yes\no)'); {zapros na povtor programi}
readln(q); {vvidenie zna4enia cikla}
clrscr;
end;
end. {konec}
Відеокопія результату
/
Висновок
В даній лабораторній роботі навчився використовувати одновимірні масиві (вектори) як структуровані типи даних, працювати з індексами, створенням та виводом їх в тілі програми і в підпрограмах.
/
25.02.2013 16:02-
Ділись своїми роботами та отримуй миттєві бонуси!
0%
Оголошення від адміністратора