 ПОЗНАВАТЕЛЬНОЕ Сила воли ведет к действию, а позитивные действия формируют позитивное отношение Как определить диапазон голоса - ваш вокал Игровые автоматы с быстрым выводом Как самому избавиться от обидчивости Противоречивые взгляды на качества, присущие мужчинам Вкуснейший "Салат из свеклы с чесноком" Натюрморт и его изобразительные возможности Применение, как принимать мумие? Мумие для волос, лица, при переломах, при кровотечении и т.д. Как научиться брать на себя ответственность Зачем нужны границы в отношениях с детьми? Световозвращающие элементы на детской одежде Как победить свой возраст? Восемь уникальных способов, которые помогут достичь долголетия Классификация ожирения по ИМТ (ВОЗ) Глава 3. Завет мужчины с женщиной
Оси и плоскости тела человека - Тело человека состоит из определенных топографических частей и участков, в которых расположены органы, мышцы, сосуды, нервы и т.д.
| Висновок щодо проходження практики
Звіт З обчислювальної практики /інформатика і програмування/ /масиви/
Виконав: студент 104 груп Мельник Д.Д. Керівник практики: Асистент Лукашів Т.О. Чернівці, 2011 Завдання 1 Для заданої матриці program lab1; uses crt; var a,b:array [1..50,1..50] of real; i,j,n:integer; max:real; begin clrscr; write('введіть розмірність матриці A(n*n) n= '); read(n); write('введіть матрицю='); for i:=1 to n do begin for j:=1 to n do begin write('a[',i,'',j,']='); readln(a[i,j]); end; end; begin max:=a[1,1]; for i:=1 to n do begin for j:=1 to n do begin if max<a[i,j] then begin max:=a[i,j]; end; b[i,j]:=a[j,i]; writeln(' b[',i,'',j,']=',b[i,j]:0:0); end; end; end; write('max=',max:0:0); readKeY; end.
Міністерство освіти,науки, молоді та спорту України Чернівецький національний університет імені Юрія Федьковича
Звіт З обчислювальної практики /інформатика і програмування/ /рядки/
Виконав: студент 104 груп Мельник Д.Д. Керівник практики: Асистент Лукашів Т.О. Чернівці, 2011 Завдання 2 Ввести з клавiатури список прiзвищ студентiв групи. Роздрукувати цей список у алфавiтному порядку. program lab2; uses crt; var a:array [1..50] of string; i,n,k:integer; b: string; t:text; begin clrscr; assign(t,'file.txt'); rewrite(t); write('vvedit''kilkist'' prizvysch n:'); read(n); write('vvvod''te prizvyscha :'); for i:=1 to n+1 do begin write(' ',i-1,')'); readln(a[i]); end; for i:=1 to n+1 do begin for k:=i+1 to n+1 do if a[k]<a[i] then begin b:=a[k]; a[k]:=a[i]; a[i]:=b; end; end; writeln('prizvysscha v alfavitnomu por''adku:'); for i:=1 to n+1 do writeln(a[i]); for i:=1 to n+1 do writeln(t,a[i]); close(t); readkey; end.
Міністерство освіти,науки, молоді та спорту України Чернівецький національний університет імені Юрія Федьковича
Звіт З обчислювальної практики /інформатика і програмування/ /множини/
Виконав: студент 104 груп Мельник Д.Д. Керівник практики: Асистент Лукашів Т.О. Чернівці, 2011 Завдання 3. Задано дві непорожні послідовності цілих чисел, які містять числа в інтервалі від 1 до 50. Кожна з послідовностей закінчується нулем. Знайти множину непарних чисел з другої послідовності, яких немає в першій. program lab3; uses crt; var a,b,an,bn,cn:array [1..50] of integer; n,i,j:integer; begin clrscr; write('введіть розмірність послідовності n='); read(n); writeln('введіть послідовність a:'); for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; writeln('введіть послідовність b:'); for j:=1 to n do begin write('b[',j,']='); readln(b[j]); end; writeln('непарні елементи обох послідовностей'); for i:=1 to n do if odd(a[i]) then begin an[i]:=a[i]; write(' , ',an[i]); end; for j:=1 to n do if odd(b[j]) then begin bn[j]:=b[j]; write(' , ',bn[j]); end; writeln(' непарні елементи яких немае в першій послідовності'); for i:=1 to n do begin for j:=1 to n do begin if an[i]<>bn[j] then write(' , ',bn[j]); end; end; readkey; end.
Міністерство освіти,науки, молоді та спорту України Чернівецький національний університет імені Юрія Федьковича
Звіт З обчислювальної практики /інформатика і програмування/ /записи/
Виконав: студент 104 груп Мельник Д.Д. Керівник практики: Асистент Лукашів Т.О. Чернівці, 2011 Завдання 4. 1. Ввести з клавiатури масив з 10 записiв. Кожен запис повинен мiстити такi поля: прiзвище, група, оцiнка з iнформатики, оцiнка з iноземної мови, оцiнка з економiчної теорiї. Вивести масив на екран у виглядi таблицi, впорядкувавши рядки таблицi за прiзвищами. Таблиця повинна мiстити стовпчик з пiдрахованими середнiми балами кожного студента. program lab4; uses crt; type student=record pib:string[50]; bal_inf:integer; bal_inm:integer; bal_eko:integer; bal_ser:real; end;
var spysok: array [1..50] of student; n,i,k:integer; a:array [1..50] of integer; b:student; begin clrscr;
write('vvedit kilkist studentiv: '); readln(n); write('vvedit grupu studentiv: '); for i:=1 to n do with spysok[i] do begin write('',i,')PIB:'); readln(pib); write('informatyka:'); readln(bal_inf); write('inozemna mova:'); readln(bal_inm); write('ekonomika:');readln(bal_eko); bal_ser:=(bal_inf+bal_inm+bal_eko)/3;
end; for i:=1 to n do begin for k:=i+1 to n do if (spysok[k].pib<spysok[i].pib) then begin b:=spysok[k]; spysok[k]:=spysok[i]; spysok[i]:=b; end; end;
writeln('________________________________________________________________________'); writeln('| PIB | informatyka | inozemna mova | ekonomika | seredniy bal |'); writeln('------------------------------------------------------------------------'); for i:=1 to n do begin with spysok[i] do begin write('|':0,PIB:13); write('|':0,bal_inf:13); write('|':0,bal_inm:15); write('|':0,bal_eko:11); writeln('|':0,bal_ser:7:3); end; end;
writeln('|_____________________________________________________________________'); readkey; end.
Додаток № 1 Міністерство освіти, науки молоді та спорту України Чернівецький національний університет імені Юрія Федьковича
ЩОДЕННИК Обчислювальної практики
_____________________________________________________________________________ (прізвище, ім'я, по-батькові)
студента факультету прикладної математики
Чернівецького національного університету імені Юрія Федьковича
спеціальності ________________________________________
курсу ________________ групи _________________________
Чернівці – 2011 КАЛЕНДАРНИЙ ПЛАН
Керівник практики від факультету _____________________/ / (підпис) Студент _____________________/ / (підпис) Висновок щодо проходження практики _________________________________________________________________________________________________________________________________________________________________________________________________________ ______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
Оцінка за підсумками звіту з практики _________________________
Підпис керівника практики від факультету _________________________ (підпис, прізвище, ініціали)
|
визначити номери рядка та стовпця, на перетині яких знаходиться максимальний елемент матриці, і поміняти їх місцями.
