Паскаль. При рандомном вводе матрицы, он печатает вторую матрицу перевернуто

02.12.2014, 15:44. Показов 583. Ответов 0

Метки нет (Все метки)

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

Как сделать, чтобы он печатал 2 матрицу рандомного ввода слева-направо, а не сверху-вниз?

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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Uses Crt;
var
a:array[1..10,1..10]of integer;
n,i,j,max,h,l,sp:integer;
begin
ClrScr;
    Repeat;
 Write('Введите размерность матрицы (n>0)and(n<=10)');       
 Readln(n);   
 Until( (n>0)and(n<=10) );   
 writeln('Для ввода вручную нажмите 1, случайными числами - любую клавишу');
readln(sp); {Выбор способа ввода}
if sp = 1 then begin   
 max:=-maxint;    
For i:= 1 to n do    
    For j:= 1 to n do           
 BEGIN  
 gotoxy(j*7,i*4);
Read(a[i,j]);
if(a[i,j]>max)then begin
max:=a[i,j];
h:=i;  l:=j;
end;
end;
end
else begin
for i := 1 to N do {Вводслучайнымичислами}
begin
for j := 1 to N do 
begin
gotoxy(i*7,j*4);
a[i,j] := -50 + random(101);
write(a[i, j]);
if(a[i,j]>max)then begin
max:=a[i,j];
h:=i;  l:=j;
end;
end;
end;
end;
writeln;
for j:=1 to n do
a[h,j]:=-a[h,j];
for i:=1 to n do
a[i,l]:=-a[i,l];
a[h,l]:=-a[h,l];
writeln;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j],' ');
writeln;
end;
write(' max=', max, ' №i=', h, ' №j=', l);
writeln;
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

02.12.2014, 15:44

Ответы с готовыми решениями:

Паскаль Дана матрица A(n,m). Вывести новую матрицу, состоящею из элементов состав-ленных при прохождении матрицы по спир
Дана матрица A(n,m). Вывести новую матрицу, состоящею из элементов состав-ленных при прохождении матрицы по спирали. полностью решение!

Укажите наибольшее из чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7
У меня была задача : ниже написана программа. Получив на вход число x, она печатает два числа a и b. Укажите наибольшее из таких чисел x,...

Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает сначала 4, потом 7
Получив на вход число a, этот алгоритм печатает два числа, k и m. Укажите наибольшее из таких чисел a, при вводе которых алгоритм печатает...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

02.12.2014, 15:44

Помогаю со студенческими работами здесь

Указать наибольшее из таких чисел x, при вводе которых алгоритм печатает сначала 2, потом 35
Я написал код: #include <iostream> using namespace std; int main(){ int x, a = 2, b = 35; cin >> x; a = 2; b = 35; while...

Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает сначала 3, а потом 7
Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наибольшее из таких чисел х, при вводе которых алгоритм печатает...

Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает сначала 4, а потом 3
Получив на вход число х, этот алгоритм печатает два числа К и R. Укажите наименьшее из таких чисел х, при вводе которых алгоритм печатает...

Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 2
Укажите наименьшее из таких чисел x, при вводе которого алгоритм печатает сначала 3, а потом 2 var x, a, b: integer; begin readln(x);...

Определить наибольшее и наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7
Укажите наибольшее и наименьшее из таких чисел x, при вводе которых алгоритм печатает сначала 3, а потом 7. var x, a, b:integer; begin ...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Наверх