Главная страница Случайная страница
Разделы сайта
АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника
⚡️ Для новых пользователей первый месяц бесплатно. А далее 290 руб/мес, это в 3 раза дешевле аналогов. За эту цену доступен весь функционал: напоминание о визитах, чаевые, предоплаты, общение с клиентами, переносы записей и так далее.
✅ Уйма гибких настроек, которые помогут вам зарабатывать больше и забыть про чувство «что-то мне нужно было сделать».
Сомневаетесь? нажмите на текст, запустите чат-бота и убедитесь во всем сами!
Лабораторная работа №4. Тема: «Алгоритм поиска минимального и максимального элементов в массиве»
|
|
Тема: «Алгоритм поиска минимального и максимального элементов в массиве»
Цель: научиться находить максимальный и минимальный элемент одномерного массива, с помощью языка программирования Turbo Pascal.
Вариант №_1
Задание 1. В программе были исправлены пять ошибок.
| Правильные ответы | |
| 1. | I |
| 2. | Clrscr; |
| 3. | |
| 4. | : = |
| 5. | Writeln(‘min=’, min: 3: 3); |
| Задание 3. | Задание 4. |
| Код программы Program sortirovka; Var x: array[1..8]of integer; I: integer; Min, max: integer; Begin Writeln('Введите 4 числа'); For i: =4 to 8 do read(x[i]); Min: =x[i]; Max: =x[i]; For i: =4 to 8 do begin If min> x[i] then min: =x[i]; If max< x[i] then max: =x[i]; End; Writeln('массив чисел: '); For i: =4 to 8 do write(x[i], ' '); Writeln(''); Writeln('max=', max); Writeln('min=', min); Readln; End. | Код программы Program sortirovka; Var x: array[2..5]of integer; I: integer; Min, max: integer; Begin Writeln('Введите 4 числа'); For i: =2 to 5 do read(x[i]); Min: =x[i]; Max: =x[i]; For i: =2 to 5 do begin If min> x[i] then min: =x[i]; If max< x[i] then max: =x[i]; End; Writeln('массив чисел: '); For i: =2 to 5 do write(x[i], ' '); Writeln(''); Writeln('max=', max); Writeln('min=', min); Readln; End. |
Вывод:
 |
Лабораторная работа №5
Тема: «Сортировка массивов».
Цель: научится использовать алгоритмы сортировки элементов в массиве в языке программирования Turbo Pascal.
Вариант №_____
Задание 1. В программе были исправлены семь ошибок.
| Правильные ответы | |
| 1. | array |
| 2. | Integer; |
| 3. | 100 do |
| 4. | arr |
| 5. | > |
| 6. | |
| 7. | Writeln; |
| Задание 2. | |
| Задание 3. | Задание 4. |
| Код программы Program sortirovka; Var arr: array[1..7]of integer; i, n, j, k: integer; begin write('Введите количество елементов в массиве n='); readln(n); For i: =1 to 7 do begin write('arr[', i, ']='); readln(arr[i]); end; writeln; write('Массив: '); for i: =1 to 3 do begin write(arr[i]: 4); end; writeln; writeln; for i: =1 to n-1 do for j: =1 to n-i do if arr[j]> arr[j+1] then begin k: =arr[j+1]; arr[j+1]: =k; end; write('Массив отсортирован: '); for i: =1 to n do writeln(arr[i]: 4); writeln; readln; end. | Ответы на вопросы 1. Массив - тип или структура данных в виде набора компонентов (элементов массива), расположенных в памяти непосредственно друг за другом. 2. Массивы бывают одномерные и двумерные 3. Сортировки бывают: А) метод пузырька Б) метод нахождения минимального элемента В) метод массива вставками Г) метод поиска перебором Д) метод бинарного поиска |
Вывод:
 |
Лабораторная работа №10
Тема: «Операция минимизации»
Цель: научится составлять решение задач с помощью подпрограммы в Turbo Pascal.
Вариант №_1
Задание 1. В программе были исправлены пять ошибок.
| Правильные ответы | |
| 1. | b |
| 2. | x |
| 3. | y-x |
| 4. | nod |
| 5. | a, b |
Задание 2. В программе были исправлены пять ошибок.
| Правильные ответы | |
| 1. | b |
| 2. | step |
| 3. | |
| 4. | nod |
| 5. | b |
| Задание 1. | Задание 2. |
| Код программы Program zadacha_1; Var rez, a, b: longint; function nod(x, y: longint): longint; Begin If x=y then nod: =x else If x> y then nod: =nod(x-y, y) else nod(x, y-x); End; begin Writeln('a, b'); readln(a, b); rez: =nod(a, b); writeln('nod='a', 'b'); readln; end. | Код программы Program zadacha_2; Var a, b, s: real; k: integer; function step(b: real; n: integer): real; Begin If n=0 then step: =1 else If n> 0 then step: =step(b, n-1)*b else step: =step(b, n+1)/b; End; begin Writeln('a, k'); readln(a, k); b: =step(a, k); writeln('s=', s: 7: 2); readln; end. |
Вывод:
|
|
|