Подробнее о заявке
Предмет Pascal
Заявка номер Private
Стоимость 2850 руб.
Уникальность 70%
Объем 30 стр.
Дата заявки: 03.01.2018
Выполнено: 14.01.2018
Отчет по практике по Pascal:

«Отчёт по программе»

Задание

Нужно сделать отчёт по программе на языке программирования pasal, пример отчёта по другой программе прикрепил. саму программу прикрепить не удалось, поэтому напишу здесь. Условие программы для отчёта есть в самой программе. Для удобства могу скинуть программу в любой соц. сети.

uses crt;

var a: array [1..15] of integer; //массив а(15) b: array [1..10] of integer; //массив b(10) c: array [1..25] of integer; //массив c(25) i, i1, i2, f, error: integer; //f-флажок, error-переменная ошибки, остальные для циклов ch: char;

label l1, l2; begin //оформление clrscr; TextColor(black); gotoxy(20, 6); writeln('~~~~~~~~~~'); gotoxy(20, 7); writeln('|Вашему вниманию представляется программа, |'); gotoxy(23, 8); writeln('|которая сортирует элементы двух данных |'); gotoxy(27, 9); writeln('| упорядоченных массивов |'); gotoxy(15, 10); writeln('|в порядке возрастания/неубывания методом "слияния". |'); gotoxy(20, 11); writeln('~~~~~~~~~~'); TextColor(black); gotoxy(35, 13); writeln('Внимание!'); gotoxy(20, 15); writeln(' Элементы - целые числа от -10000 до 10000'); gotoxy(40, 20); TextColor(black); writeln('Программу составила студентка'); gotoxy(40, 21); writeln('РУТ (МИИТ) группы ЭББ-113'); gotoxy(40, 22); writeln('Лубочникова В.А.'); gotoxy(35, 24); writeln('Москва, 2017'); gotoxy(20, 33); writeln(' нажмите любую клавишу для продолжения'); //-оформление//// ch := readkey; //ввод массива l1: clrscr; gotoxy(35, 5); TextColor(black); writeln('Внимание!!!'); gotoxy(15, 6); writeln('Значение элемента должно быть в пределе от -10000 до 10000!'); writeln; TextColor(black); writeln('Введите значения элементов первого массива A(15)'); TextColor(black); i := 1; repeat //ввели с экрана два массива begin write('A[', i, ']: '); readln(a[i]); //error := IOResult; if (a[i] > 10000) or (a[i] < -10000) or (error 0) then begin TextColor(black); writeln('Вы ввели неверное значение элемента массива! Повторите ввод!'); TextColor(black); dec(i); end; inc(i); end; until i = 16; TextColor(black); writeln('Введите значения элементов первого массива B(10)'); TextColor(black); i := 1; repeat begin write('B[', i, ']: '); readln(b[i]); // error := IOResult; if (b[i] > 10000) or (b[i] < -10000) or (error 0) then begin TextColor(black); writeln('Вы ввели неверное значение элемента массива! Повторите ввод!'); TextColor(black); dec(i); end; inc(i); end; until i = 11; //смотрим, какой хотят получить массив по возрастанию или убыванию textcolor(black); writeln('Введите 1, если хотите отсортировать по невозрастанию, 2 - по неубыванию'); textcolor(black); readln(f); clrscr; //вывод исходных массивов textcolor(black); gotoxy(20, 4); writeln('~~РЕЗУЛЬТАТЫ_СОРТИРОВКИ~~'); gotoxy(30, 8); writeln('Исходные массивы:'); gotoxy(30, 10); writeln('А:'); gotoxy(30, 11); for i := 1 to 15 do write(a[i], ' '); gotoxy(30, 13); writeln('B:'); gotoxy(30, 14); for i := 1 to 10 do write(b[i], ' '); //сортировка слиянием i1 := 1; i2 := 1; for i := 1 to 25 do if i1 > 15 // т.е. если у нас элементы одного массива кончились, просто оставшийся вписываем в с, тк. он по условию упорядоченный then begin c[i] := b[i2]; i2 := 1; end else if i2 > 10 //аналогично с другим then begin c[i] := a[i1]; i1 := i1 + 1; end else //тут уже просто сравниваем два элемента, если if a[i1]

Читать больше
Срок выполнения:
  • Бесплатные корректировки
  • Шпаргалки в подарок!
  • Предоплата всего 25%
от 2 дней
Похожие заявки по pascal

Тип: Отчет по практике

Предмет: Pascal

Программирование

Стоимость: 2500 руб.

Тип: Отчет по практике

Предмет: Pascal

Построить гса для Паскаль программы

Стоимость: 2725 руб.

Тип: Отчет по практике

Предмет: Pascal

Дана строка. Подсчитать, сколько в ней букв r, k, t.

Стоимость: 3075 руб.

Закажи Отчёт по практике с полным сопровождением до защиты!
Думаете, что скачать готовую работу — это хороший вариант? Лучше закажите уникальную и сдайте её с первого раза!

Отзывы студентов

Павел 07.09.2023
Спасибо большое, возникли небольшие вопросы по работе решили оперативно.
Анна 22.06.2022
зачет поставлен. 80 баллов из 100
Константин 01.04.2022
Весь заказ сделан на отлично, всё понравилось. Качественная работа. Спасибо.
Сергей Сидлецкий Витальевич 19.02.2022
Отчет приняли. Спасибо!!!
Дмитрий 03.02.2021
нет замечаний все хорошо
Дана 19.11.2020
Руководитель поставил оценку отлично!
Дана 24.10.2020
Все удовлетворило, спасибо
Наталья 22.04.2020
Все хорошо, работа выполнена быстро. Спасибо!
Сергей 12.12.2016
Хочу выразить огромную благодарность автору за проделанную работу и за столь быстро сделанные корректировки. Преподават…
Лейс Наталья Викторовна 04.11.2015
Все выполняется в срок. Спасибо.
Лайфхаки по написанию Отчет по практике
Отчет по производственной практике: цели и задачи

Производственная практика – это та часть учебного процесса, которая обычно проходит на предприятиях в условиях реального производства.Например, студентов специальности «машиностроение» могут отправить на завод, где они будут помогать специалистам в наладке станков с ЧПУ.Такая работа часто является …

Читать дальше
Гоша хороший: характеристика на студента с места практики + пример написания

Без этого документа у вас не примут ни отчет по практике, ни зачтут практику вообще. Впрочем, поучить характеристику совсем несложно. Важно просто знать, что в ней должно содержаться и как она должна выглядеть.Если руководитель предприятия не знает, как писать характеристику на студента-практиканта…

Читать дальше