Несколько заданий из лабораторной работы

@XIMT · Регистрация: 04.03.2015

Студворк — интернет-сервис помощи студентам

это мою защитная работа
где именно ошибки

ЛАБОРАТОРНАЯ РАБОТА № 4. ОДНОМЕРНЫЕ МАССИВЫ
Задание 5. Установите правильный порядок команд в программе, и определите, что в ней вычисляется.

3

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Var a, b:array[1..100] of integer;
i, n, k: integer;
8   for i:=1 to n do
if a[i] < 0 then Begin 
k:= k+1;
b[k]:= i;
End;
10 Readkey
11  End.
9   for i:= 1 to k do Write(b[i]:4);
2   Uses crt;
7   for i:= 1 to n do Begin
Write('a[', i, ']=');
Readln(a[i]);
End;
1   Program Example8;
4   Begin
5   Write('n=');
6   Readln(n); 
k:= 0;

По количеству отрицательных элементов заданного массива составляется новый массив, элементы которого являются порядковыми номерами отрицательных элементов первоначального массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Var a, b:array[1..100] of integer;
i, n, k: integer;
Begin
Write('n=');
Readln(n); 
k:= 0;
for i:= 1 to n do Begin
Write('a[', i, ']=');
Readln(a[i]);
End;
for i:=1 to n do
if a[i] < 0 then Begin 
k:= k+1;
b[k]:= i;
End;
for i:= 1 to k do Write(b[i]:4);
End.

Задание 6. Определите, что выполняется в программе.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Program Example9;
Uses crt;
Var a: array[1..100] of integer;
i, j, n, m:integer;
Begin
Clrscr;
Write('n='); Readln(n);
for i:= 1 to n do Begin
Write('a[', i, ']=');
Readln(a[i]);
End;
for j:= 1 to n-1 do
for i:= 1 to n-j do Begin
if a[i] < a[i+1] then Begin
m:= a[i];
a[i]:= a[i+1];
a[i+1]:= m;
End;
End;
for i:= 1 to n do Write(a[i]:5);
End.

Программа сортирует элементы матрицы по убыванию.

Задание 7. Составить программу, которая преобразует одномерный массив таким образом, чтобы сначала шли отрицательные, затем нулевые и положительные элементы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Var a: array[1..100] of integer;
i, n:integer;
Begin
Write('n='); Readln(n);
for i:= 1 to n do Begin
Write('a[', i, ']=');
Readln(a[i]);
End;
for i:= 1 to n do begin
  if a[i] < 0 then write(' ',a[i]);
  end;
for i:= 1 to n do begin
  if a[i] = 0 then write(' ',a[i]);
  end;
for i:= 1 to n do begin
  if a[i] > 0 then write(' ',a[i]);
  end;
End.

ЛАБОРАТОРНАЯ РАБОТА № 5. ДВУМЕРНЫЕ МАССИВЫ
Задание 2. Составьте блок-схему к программе, вычисляющей произведение элементов двумерного массива.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Program Example10;
Uses crt;
Var a: array[1..100, 1..100] of integer;
i, j, n, m: integer;
P: longint;
Begin
Clrscr;
Write('n='); Readln(n);
Write('m='); Readln(m);
for i:= 1 to n do
for j:= 1 to m do Begin
Write('a[', i, j, ']=');
Readln(a[i, j]);
End;
P:= 1;  
fori:=1 to n do
for j:= 1 to m do P:= P *a[i, j];
Write(‘P=’, P);
End.

п

Доработайте программу, чтобы на экран выводился массив в виде матрицы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Var a: array[1..100, 1..100] of integer;
i, j, n, m: integer;
P: longint;
Begin
Write('n='); Readln(n);
Write('m='); Readln(m);
for i:=1 to n do
for j:=1 to m do
begin
read(a[i,j]);
end;
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:5);
writeln;
End;
P:= 1;
for i:=1 to n do
for j:= 1 to m do P:= P *a[i, j];
Write('P= ', P);
End.

Задание 3. Составьте программу для поиска максимального элемента и его индексов.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
var a:array[1..20,1..20] of integer;
max,i,j,nmax,mmax:integer;
begin
mmax:=1;
nmax:=1;
for i:= 1 to 3 do begin
for j:= 1 to 3 do
readln(a[i,j]);
end;
for i:= 1 to 3 do begin
for j:= 1 to 3 do
writeln;
max:=a[1,1];
end;
for i:= 2 to 3 do
begin for j:= 1 to 3 do
if a[i,j]>max then begin
max:=a[i,j];
nmax:=i;
mmax:=j;
end;
end;
writeln('max= ',max);
writeln('nmax= ',nmax);
write('mmax= ',mmax);
End.

Задание 4. Заполните пустые места в программе, вычисляющей сумму элементов, расположенных на главной диагонали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program Example11;
Uses crt;
Var a: array[1..100, 1..100] of integer;
i, j, n, m, S: integer;
Begin
Clrscr;
Write('n='); Readln(n);
for i:=1 to n do
for j:=1 to n do  
Write('a[', i, j,']=');
Readln(a[i, j]);
 
S:= 0; 
for i:=1 to n do
for j:=1 to n do if   then S:=S+a[i,j];
 
for i:= 1 to n do 
Begin
for j:= 1 to n do
Write(a[i, j]:5);
Writeln;
End;
Writeln('S=', S);
End.

Доработайте программу, чтобы считалась сумма элементов, расположенных на побочной диагонали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
var mas:array[1..100,1..100]of integer;
i,j,n,sp:integer;
 begin
writeln('n=');
readln(n);
sp:=0;
randomize;
for i:=1 to n do
for j:=1 to n do 
mas[i,j]:=random(50);
for i:=1 to n do begin
sp := sp + mas[i,N-i+1];
end;
for i:=1 to n do begin
for j:=1 to n do
write (mas[i,j]);
writeln;
end;
writeln(sp);
end.

Задание 5. Составьте программу для поиска максимального элемента на побочной диагонали. Для заполнения массива воспользуйтесь датчиком случайных чисел.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Var a: array[1..100 , 1..100] of integer;
i, j, n, m, max, c, b: integer;
Begin
Write('n=');
Readln(n);
Write('m=');
Readln(m);
 for i:=1 to n do
 for j:=1 to m do
Begin
a[i,j]:=random(100);
write(a[i,j], ' ');
End;
writeln;
Writeln('Матрица :');
 For i:=1 to n do
  Begin
  For j:=1 to m do
  Write(A[i,j]:5);
  Writeln;
  end;
Writeln;
max:=a[1,1];
 for i:=2 to n do
 for j:=1 to m do
begin
 if i=j then begin
  if a[i,j]>max then begin
      max:=a[i,j];
      c:=i;
      b:=j;
      end;
   end;
  end;
Writeln('max=',max, ' его индексы : ', c, ',', b);

Задание 6. Составьте программу для поиска минимального элемента среди элементов, расположенных выше главной диагонали.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Var a: array[1..100 , 1..100] of integer;
i, j, n, m, min, c, b: integer;
Begin
Write('n=');
Readln(n);
Write('m=');
Readln(m);
 for i:=1 to n do
 for j:=1 to m do
Begin
a[i,j]:=random(100);
write(a[i,j], ' ');
End;
writeln;
Writeln('Матрица :');
 For i:=1 to n do
  Begin
  For j:=1 to m do
  Write(A[i,j]:5);
  Writeln;
  end;
Writeln;
min:=a[1,1];
c:=1;
b:=1;
 for i:=1 to n do
 for j:=1 to m do
begin
 if i<j then begin
  if a[i,j]<min then begin
      min:=a[i,j];
      c:=i;
      b:=j;
      end;
   end;
  end;
Writeln('min=',min, ' его индексы : ', c, ',', b);
End.

Задание 7. Составьте программу, которая подсчитывает количество строк в двумерном массиве, содержащих отрицательные элементы.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Var a: array[1..100 , 1..100] of integer;
i, j, n, m, c, S, q: integer;
Begin
Write('n=');
Readln(n);
Write('m=');
Readln(m);
 for i:=1 to n do
 for j:=1 to m do
Begin
a[i,j]:=-50+random(100);
write(a[i,j], ' ');
End;
writeln;
Writeln('матрица :');
 For i:=1 to n do
  Begin
  For j:=1 to m do
  Write(A[i,j]:5);
  Writeln;
  end;
Writeln;
S:=0;
      For i:=1 to n do
       begin
          For j:=1 to m do begin
           if a[i,j]<0 then c:=c+1;
           end;
           if c>0 then q:=q+1;
       end;
          writeln('q= ',q);
end.

@Puporev · 04.03.2015, 20:38

Сообщение от XIMT

где именно ошибки

Наверное в пустой голове. Даже коды не могли оформить по правилам, посмотрите как это делается в других темах и почитайте правила, а то смотреть противно на этот срам.

@APALoff · 05.03.2015, 00:05

Правила форума: Одна тема - одна задача!

Памирыч · 05.03.2015, 06:29

Комментарий модератора

За сим - закрыто. Прочитайте Правила и создайте темы согласно им

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@APALoff 1648 / 1077 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	05.03.2015, 00:05
	Правила форума: Одна тема - одна задача! 0