Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 27.11.2008, 20:03   #1
jenix
 
Регистрация: 27.11.2008
Сообщений: 3
Вопрос Паскаль,массивы и матрицы,могу терпеть до завтра 9:30..потом мне хана(

№ 1) Эксперты, помогите пожалуйста...ничего в этом не смыслю, а очень надо иначе не получить мне зачёт по инфе!!!!в паскале, с помощью функции "рандом" получить массив размерностью[0..20].Представить элементы так, что бы сначала были расположенны все элементы с чётными, а затем с нечётными номерами в порядке их следования в исходном массиве.Нулевой номер считать чётным!!!!плиииззз, срочно нужно, заранее благодарен!!!!!
№ 2) С помошью функции рандом в диапозоне [-1;1] сформировать 2 матрицы 7х7. Перенести все отрицательные числа в одну матрицу, а все положительные в другую(обе 7х7), пустые места заполнить числом 10, а невместившиеся числа расположить в одномерной матрице[1..7] и подсчитать их количествоЖ пустые места также заполнить числом 10!!умоляю,хелп!!!!
jenix вне форума
Старый 27.11.2008, 20:42   #2
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

Вот первая задача... (если я правильно понял...:-))
Код:
program random1;
uses crt;
var startmas, resmas: array[0..20] of integer;
var i,j: integer;
begin
clrscr;
randomize;
for i:=0 to 20 do begin
startmas[i]:=random(99);
write(startmas[i]:3);
end;
writeln;
j:=0;
  for i:=0 to 20 do begin
    if (i mod 2) = 0 then begin
      resmas[j]:=startmas[i];
      j:=j+1;
    end;
 end;

 for i:=0 to 20 do begin
     if (i mod 2) = 1 then begin
        resmas[j]:=startmas[i];
        j:=j+1;
     end;
 end;
for i:=0 to 20 do write(resmas[i]:3);

readkey;
end.
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума
Старый 27.11.2008, 20:54   #3
jenix
 
Регистрация: 27.11.2008
Сообщений: 3
По умолчанию

спасибо огромнейшее!!!!осталось ток вторую...но она супер пупер тяжёлая(((
jenix вне форума
Старый 27.11.2008, 20:55   #4
jenix
 
Регистрация: 27.11.2008
Сообщений: 3
По умолчанию

а как этот метод называется?а то мне её защищать ещё...)
jenix вне форума
Старый 27.11.2008, 21:05   #5
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

какой еще метод?
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума
Старый 27.11.2008, 21:05   #6
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

:-) Метод Рустама...
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума
Старый 27.11.2008, 21:08   #7
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

Цитата:
пустые места заполнить числом 10
нули на 10 заменить что-ли?
Хорошо не там, где нас нет, а там, где нас еще небыло!!!
Рустам вне форума
Старый 27.11.2008, 21:29   #8
Рустам
Форумчанин
 
Регистрация: 04.07.2007
Сообщений: 260
По умолчанию

Цитата:
а невместившиеся числа расположить в одномерной матрице[1..7] и подсчитать их количество; пустые места также заполнить числом 10!!
че-та я сам в это не въеду...
без вот этой ,,,,, вот:
Код:
program matrix1;
uses crt;
var M1, M2, RM1, RM2 : array[1..7,1..7] of integer;
var S: array[1..7] of integer;
var i,j,i1,j1: integer;
begin
clrscr;
randomize;
       for i:=1 to 7 do begin
         for j:=1 to 7 do begin
           M1[i,j]:=-1+random(3);
           write(M1[i,j]:3);
         end;
         writeln;
       end;
writeln;
       for i:=1 to 7 do begin
         for j:=1 to 7 do begin
           M2[i,j]:=-1+random(3);
           write(M2[i,j]:3);
         end;
         writeln;
       end;
  for i:=1 to 7 do begin
    for j:=1 to 7 do begin
      if M1[i,j]>0 then RM1[i,j]:=M1[i,j];
      if M1[i,j]<0 then RM2[i,j]:=M1[i,j];
    end;
  end;
  for i:=1 to 7 do begin
    for j:=1 to 7 do begin
      if RM1[i,j]=0 then begin RM1[i,j]:=10; end;
      if RM2[i,j]=0 then begin RM2[i,j]:=10; end;
    end;
  end;
writeln;
       for i:=1 to 7 do begin
         for j:=1 to 7 do begin
           write(RM1[i,j]:3);
         end;
         writeln;
       end;
writeln;
       for i:=1 to 7 do begin
         for j:=1 to 7 do begin
           write(RM2[i,j]:3);
         end;
         writeln;
       end;
readkey;
end.
Хорошо не там, где нас нет, а там, где нас еще небыло!!!

Последний раз редактировалось Рустам; 27.11.2008 в 21:31.
Рустам вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
ПАСКАЛЬ.помогите пожалуйста срочно сделать задачу, завтра зачет. Absent Помощь студентам 14 15.06.2009 19:50
[B]Народ! Проверки мне верно или не верно? мне надо завтра сдавать[/B] Vladislav_87 Паскаль, Turbo Pascal, PascalABC.NET 6 04.06.2008 14:34
3 задачки на Паскаль. Массив,строки. помогите решить до завтра! meds Паскаль, Turbo Pascal, PascalABC.NET 2 29.05.2008 08:29
Задача на матрицы и массивы kaliha Помощь студентам 3 17.01.2008 23:46
Задачки на матрицы и массивы Dibox Помощь студентам 1 18.12.2007 06:46