Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal Посмотрите пожалуйста, что в очереди не то??? https://www.cyberforum.ru/ pascal/ thread80815.html
написала программу среди 4 очередей найти 2 одинаковые, а она не работает толком, помогите исправить, я и так крутила и эдок, но все насмарку... ЗАЧЕТ ГОРИТ Program Ochered; uses crt; type Alfa=String; PComp=^Comp;{ukazatel na zapis} Comp=record {sama zapis} sD:Alfa;{ tip elementa } pNext:PComp;{ ukazatel na sleduwij el } end;
Pascal Матрица. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке
1.Дана матрица размера 5 x 10. Преобразовать матрицу, поменяв местами минимальный и максимальный элемент в каждой строке.
Pascal узнать продажи за год Предприятие выпускает изделия 2-х типов. Изделия первого типа могут продаваться отдельно и одновременно служат комплектующим для изделий второго типа. Предприятие обязано поставить не менее А штук первого вида изделий. Если часть из них остаётся, то они идут на производство вторых изделий. Выпуск первых изделий зависит от поставщиков материалов и поэтому случаен. Определить... https://www.cyberforum.ru/ pascal/ thread80802.html Pascal Функция проверки простого числа https://www.cyberforum.ru/ pascal/ thread80795.html
var n: integer; Function Simple (Pr : Integer) : Boolean; Var I : Integer; LogPer : Boolean; Begin I := 2; {счетчик} Repeat LogPer := (Pr Mod I = 0); I := I + 1 Until (I > Pr Div 2 + 1) Or (LogPer);
Pascal Переписать компонента файла f в файл g
1)Число компонент файла f, компонентами которого являтся целые числа, кратно 10. Переписать компонента файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы вначале шли отрицательные числа десятки, а за ними - неотрицательные. Порядок самих десяток должен быть сохранён. 2)О каждом из спортменов известны фамилия и число набраных баллов. Напечатать протокол соревнований, в котором...
Pascal Составить программу для ввода двухмерных массивов А и В размерностью 4х5 https://www.cyberforum.ru/ pascal/ thread80789.html
помогите плиз,желательно завтра нужно сдать(((( 1)Составить программу для ввода двухмерных массивов А и В размерностью 4х5 , А=(Akn); b=(Bkn); k:=1,2,3,4; n=1,2,3,4,5 и вычисления матрецы С по формуле: Ckn=Akn+2*Bkn; 2)Функция - STRRCHR(C: STRING; CH: CHAR): INTEGER - возвращает номер позиции первого вхождения символа CH в строку С справа , если его нет , то функция возврощает 0. ...
Pascal пустая последовательность натуральных чисел №1 Дана не пустая последовательность натуральных чисел,за которой следует ноль.Определить порядковый номер первого числа являющегося полиндромом(при этом ноль во внимание не принимать) Если таких чисел нет,то сообщить об этом. Полиндром-это число,не изменяющееся при выписывании его цифр в обратном порядке) №2 Дана матрица A(N\M)вещественных чисел.Построить вектор,состоящий из номеров... https://www.cyberforum.ru/ pascal/ thread80788.html Pascal Предприятие выпускает изделия 2-х типов.
Предприятие выпускает изделия 2-х типов. Изделия первого типа могут продаваться отдельно и одновременно служат комплектующим для изделий второго типа. Предприятие обязано поставить не менее А штук первого вида изделий. Если часть из них остаётся, то они идут на производство вторых изделий. Выпуск первых изделий зависит от поставщиков материалов и поэтому случаен. Определить...
Pascal Описать процедуру Swap(X, Y), меняющую содержимое переменных https://www.cyberforum.ru/ pascal/ thread80781.html
Описать процедуру Swap(X, Y), меняющую содержимое переменных X и Y (X и Y — вещественные параметры, являющиеся одновременно входными и выходными). С ее помощью для данных переменных A, B, C, D последовательно поменять содержимое следующих пар: A и B, C и D, B и C и вывести новые значения A, B, C, D. Описать процедуру SortInc3(A, B, C), меняющую содержимое переменных A, B, C таким образом,...
Pascal сформировать массив из чисел в 8ричной, десятичной или 16ричной системах исчисления. https://www.cyberforum.ru/ pascal/ thread80779.html
Вот где здесь ошибка? В файле записана информация, состоящая из 0 и 1. По требованию пользователя сформировать массив из чисел в 8ричной, десятичной или 16ричной системах исчисления. Type mas=array of integer; Var f:file of byte;
Упорядочить по возрастанию ту часть последовательности, которая находится до максимального элемента этой последовательности Pascal
написать программу, которая упорядочивает по возрастанию ту часть последовательности, которая находится до максимального элемента этой последовательности. помогите, завтра зачет!!!!!!!!!
Pascal Вычислить количество нулей создать программу где: Дан одномерный массив. нужно вычислить: 1)количество нулей 2)кол-во элементов между мax и min желательно написать всё в одной программе https://www.cyberforum.ru/ pascal/ thread80770.html
119 / 119 / 41
Регистрация: 21.12.2009
Сообщений: 194
24.12.2009, 23:42 0

Найти минимальный среди элементов тех строк матрицы, которые упорядочены либо по возрастанию, либо по убыванию - Pascal - Ответ 440362

24.12.2009, 23:42. Показов 1413. Ответов 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
27
28
29
30
31
32
33
34
program VaD;
uses crt;
var
   a:array [1..100,1..100] of integer;
   i,j,min,b,d,n,m:integer;
begin
 clrscr;
 repeat
  write ('zadaite razmer matrici: ');
  readln (n,m);
 until (n>0) and (n<=100) and (m>0) and (m<=100);
 for i:=1 to n do
   for j:=1 to m do
    begin
     write ('a[',i,',',j,']: ');
     readln (a[i,j]);
    end;
 b:=0;
 d:=0;
 min:=a[1,1];
 for i:=1 to n do
  for j:=m downto 2 do
   begin
    if a[i,j]<a[i,j-1] then b:=b+1;
    if a[i,j]>a[i,j-1] then d:=d+1;
   end;
  if (b+1=m) or (d+1=m) then
    for i:=1 to n do
     begin
      for j:=1 to m do
        if a[i,j]<min then min:=a[i,j];
      writeln ('min element ',i,'-oi stroki: ',min);
     end;
end.


Вернуться к обсуждению:
Найти минимальный среди элементов тех строк матрицы, которые упорядочены либо по возрастанию, либо по убыванию Pascal
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.12.2009, 23:42
Готовые ответы и решения:

Найдите максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию
Дана матрица размера М х N. Найдите максимальный среди элементов тех столбцов, которые упорядочены...

Найти минимальный среди элементов тех строк, которые упорядочены либо по возрастанию, либо по убыванию
Дана матрица размера M Ч N. Найти минимальный среди элементов тех строк, которые упорядочены либо...

Найти минимальный элемент среди элементов строк, рассположенных либо по возрастанию, либо по убыванию
всем прива, подскажите как сделать задачу на Паскаль. Дано массив a. Найти минимальный элемент...

Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию
Дана матрица размера M x N. Найти максимальный среди элементов тех столбцов, которые упорядочены...

3
24.12.2009, 23:42
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.12.2009, 23:42
Помогаю со студенческими работами здесь

Дана матрица M;N. Найти минимальный элемент среди тех строк, которые упорядочены либо по убыванию, либо по возрастанию
Дана матрица M;N. Найти минимальный элемент среди тех строк, которые упорядочены либо по убывантю...

Найти максимальный среди элементов тех столбцов, которые упорядочены либо по возрастанию, либо по убыванию
1 Даны три точки A, B, C на числовой оси. Найти длины отрезков AC и BC и их сумму. 2. ...

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru