Нужно сделать отчёт по программе на языке программирования 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]
Тип: Отчет по практике
Предмет: Pascal
Дана строка. Подсчитать, сколько в ней букв r, k, t.
Стоимость: 3075 руб.
Производственная практика – это та часть учебного процесса, которая обычно проходит на предприятиях в условиях реального производства.Например, студентов специальности «машиностроение» могут отправить на завод, где они будут помогать специалистам в наладке станков с ЧПУ.Такая работа часто является …
Читать дальшеБез этого документа у вас не примут ни отчет по практике, ни зачтут практику вообще. Впрочем, поучить характеристику совсем несложно. Важно просто знать, что в ней должно содержаться и как она должна выглядеть.Если руководитель предприятия не знает, как писать характеристику на студента-практиканта…
Читать дальше