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

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

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

 
 Ответить  Открыть новую тему 
> Помогите пожалуйста с массивами, у меня экзамен на носу
сообщение
Сообщение #1


Гость






Здравствуйте,скажите,пожалуйста вы не можите мне помочь решить несколько задач
по турбо паскалю-тема массивы,хотя бы что-нибудь!!! Плиз!!!
1 Задан массив из n целых чисел, найти раность между максимальным и минимальным.
2 В массиве из разных целых чисел отсортировать элементы в интервале от
минималього до максимального:если минимум раньше максимума ,то по
возрастанию,если наоборот-по убыванию.
3 Дан массив из целых чисел,поместить отрицательные числа
влево,положительные-вправо.
4 В двумерном массиве определить максимальное значение.
5 В двумерном массиве определить координаты максимального значения.
6 В двумерном массиве поменять местами максимальное и минимальное.
7 В двумерном массиве поменять местами строки содержищие максимальное и
минимальное.
7 Сформировать случайным образом двумерный массив n на m,отсортитовать главную
диагональ.

Очень надеюсь на вашу помощь!!!
Если можите пишите на daria_vorobieva@mail.ru



Даша
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Новичок
*

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

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


первая выглядит так

Код

uses crt;
Const n=20;
Var
 mass:array [1..n] of integer;
 max,min,i:integer;
begin
    for  i:=1 to n do
    mass[i]:=random(200);
    max:=mass[1];
    for i:=1 to n do
    if mass[i]>max then
    max:=mass[i];
    min:=mass[1];
    for i:=1 to n do
    if mass[i]<min then
    min:=mass[i];
    max:=max-min;
    writeln(' Разность=',max);
    readkey;
end.


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


Новичок
*

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

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


а вторая так

Код

Uses Crt;
Type mas=array [1..20] of integer;
Var
 mass:mas;
 max,min,i,n:integer;
 {===================================Процедуры=======================}

procedure Sort1 (q:integer; var c:mas);
var
I:integer;
m :integer;
p:integer;
temp:integer;
begin
   M:=q-1;
   P:=1;
   While p<>0 do
   Begin
       p:=0;
       for i:=1 to m do
       begin
           if c[i]<c[i+1] then
           begin
               temp:=c[i];
               c[i]:=c[i+1];
               c[i+1]:=temp;
               p:=I;
           end;
       end;
       m:=p-1;
   end;
end;
procedure Sort2 (q:integer; var c:mas);
var I,m,p:integer;
    temp:integer;
begin
   M:=q-1;
   P:=1;
   While p<>0 do
   Begin
       p:=0;
       for i:=1 to m do
       begin
           if c[i]>c[i+1] then
           begin
               temp:=c[i];
               c[i]:=c[i+1];
               c[i+1]:=temp;
               p:=I;
           end;
       end;
       m:=p-1;
   end;
end;
begin
    n:=20;
    for  i:=1 to n do
    mass[i]:=random(200);
    max:=mass[1];
    for i:=1 to n do
    if mass[i]>max then
    max:=i;
    min:=mass[1];
    for i:=1 to n do
    if mass[i]<min then
    min:=i;
    if max>min then
    Sort2 (n,mass)
    else
    Sort1 (n,mass);
    Writeln(' ');
    for  i:=1 to n do
    Writeln(mass[i]);
    readkey;
end.


Может быть кто и компактнее сможет..... <_<

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





Группа: Пользователи
Сообщений: 6

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


В третьей можно просто также отсортировать массив по возрастанию
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Новичок
*

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

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


Цитата
В третьей можно просто также отсортировать массив по возрастанию

Можно и так-же но чтобы массив состоял не только из положительных но и отрицательных надо при заполнение массива за место

Код

mass[i]:=random(200);

написать к примеру
Код

mass[i]:=random(300)-random(300);


А на четвертую у меня так вышло
Код

Uses Crt;
const n=20;
     m=20;
Type mas=array [1..n,1..m] of integer;
Var
 mass:mas;
 max,i,j:integer;

begin
    for  i:=1 to n do
       for j:=1 to n do
       mass[i,j]:=random(300)-random(300);
       max:=mass[1,1];
    for i:=1 to n do
       for j:=1 to n do
         if mass[i,j]>max then
         max:=mass[i,j];
        Writeln('Ответ-',max);
    readkey;
end.


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


Новичок
*

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

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


Пятая очень похожа на 4 вот код

Код

Uses Crt;
const n=20;
     m=20;
Type mas=array [1..n,1..m] of integer;
Var
 mass:mas;
 max,i,j,x,y:integer;

begin
    for  i:=1 to n do
       for j:=1 to n do
       mass[i,j]:=random(300)-random(300);
       max:=mass[1,1];
    for i:=1 to n do
       for j:=1 to n do
         if mass[i,j]>max then
         begin
             max:=mass[i,j];
             x:=i;
             y:=j;
         end;
       Writeln('Строка-',x,'  Столбец-',y);
    readkey;
end.


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

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

 





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