Подробнее о заявке
Предмет 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 руб.

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

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

Оксана 27.04.2024
Все отлично, единственное что, по отчёту потребовали 70% оригинальности, сама доработала.
Юлия 30.11.2023
очень быстро, доступная цена и качественная работа. очень довольна. спасибо, что вы есть)) когда не хватает времени сам…
Юлия 28.06.2023
Огромное спасибо автору и менеджеру за вашу работу. Выменя очень выручили. Получила отлично за эту работу. Вы справилис…
Станислав 03.03.2023
Идеально проделанная работа. Спасибо за помощь!!!
Павел 08.11.2022
Спасибо,заказ выполнен полностью.за работу поставлена оценка "отлично".
Екатерина 03.06.2022
Цена=качество=мое спокойствие! Вы лучшие!
Лилия 26.03.2022
Работа выполнена качественно
алла 18.10.2021
Все отлично, спасибо
Наталья 22.04.2020
Все хорошо, работа выполнена быстро. Спасибо!
Сергей 12.12.2016
Хочу выразить огромную благодарность автору за проделанную работу и за столь быстро сделанные корректировки. Преподават…
Лайфхаки по написанию Отчет по практике
Отчет по производственной практике: цели и задачи

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

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

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

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