IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Массивы,матрицы, помогите исправить
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


Задача :
нужно составить массивы исходных данных, написать программу работающую с любым допустимым набором данных, исходные и полученные массивы вывести на экран.
данные моего варианта которые непосредственно надо подставить:
Это двумерный массив х[10,20], элементы которого расчитываются по формуле х[i,j] = (i*i*i)/(j*j)+(j*j)/(i*i*i*i*i),
найти мах и мин элемента матрицы, упорядочить элементы 4 го столбца и 5 строки по неубыванию.
Исходный и полученный массивы вывести в файл и на экран


Вот я чет думал так, но чето неработает (совсем непонимаю процедуры и функции)
Код

program plo;
uses crt;
const
n = 10;
m = 20;
function f(y, b: integer): boolean;
procedure bubble(var ar: array of integer; z: integer);
type
matrix = array[1..n,1..m] of real;
var
  a,x:matrix;
  i,j,T: integer;
  flagsort: boolean;
  min,max:real;
begin

  ClrScr;
  assign (output,'output.txt');
  rewrite (output);
  for i:=1 to n do
  begin
     for j:=1 to m do
     begin
      a[i,j]:=(i*i*i)/(j*j)- (j*j)/(i*i*i*i*i);
      write(output,a[i,j]:4);
     end;
     writeln(a[i,j]:4);
  end;

begin
      min:=a[1,1];
    for i:=1 to 10 do
     for j:=1 to 20 do
      if a[i,j]<min then
        min:=a[i,j];
        writeln (min);
end;
begin
    max:=a[1,1];
      for i:=1 to 10 do
        for j:=1 to 20 do
         if a[i,j]>max then
           max:=a[i,j];
           writeln (max);
           end;

begin
  if (y > 0) and (b > 0) then f := (b > y)
  else f := y > b
end;

begin
  for i := 1 to z do
    for j := z downto i + 1 do
      if f(ar[pred(j) - 1], ar[j - 1]) then begin
    T := ar[pred(j) - 1]; ar[pred(j) - 1] := ar[j - 1]; ar[j - 1] := T
      end
end;
end.


ОЧЕНЬ ПРОШУ если несложно укажите на ошибки и подскажите возможные пути их решения.

Тема с такой задачей уже создавалась , но прошу эту неудолять.
Логика проста : старые темы редко кто просматривает,поэтому я создал новую.

Сообщение отредактировано: Ibmsystem -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


просто человек
******

Группа: Пользователи
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


М
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [cоde=pas] ... [/cоde].


исправляй...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3





Группа: Пользователи
Сообщений: 9
Пол: Мужской

Репутация: -  0  +


ОКАЙ?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.12.2020 8:54
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name