Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

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

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.08.2010, 15:06   #1
Woxx
Пользователь
 
Регистрация: 27.08.2010
Сообщений: 16
По умолчанию Одномерные и двумерные массивы

Добрый день форумчане!!!! Тут я столкнулся с массивами презнаться честно я их ваще не понимаю, хотелось бы на примере этих задач понять суть массивов!!!!
Одномерный массив:
Дана последовательность целых чисел, в которой есть нулевые элементы.
Сформировать массив из номеров этих элементов.

Двумерный массив
Дан двумерный массив А. Сформировать двумерный массив В путём возведения в квадрат элементов массива А.

Заранее спасибо!!!!
Woxx вне форума Ответить с цитированием
Старый 28.08.2010, 15:26   #2
p51x
Старожил
 
Регистрация: 15.02.2010
Сообщений: 15,103
По умолчанию

Код:
йа_целый_счетчик_нулевых_элементов = йа_нуль;
йа_цикл_фор йа_целый_счетчик := 1 йа_до йа_колво_элементов делать
  йа_уловие (йа_элемент_с_индексом_йа_целый_счетчик = йа_нуль) йа_инкремент йа_целый_счетчик_нулевых_элементов;
p51x вне форума Ответить с цитированием
Старый 28.08.2010, 15:27   #3
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,497
По умолчанию

2)
Код:
program forwoxx;
uses crt;
const
    m = 10;
    n = 10;
var
    A, B: array[1..m, 1..n] of integer;
    i, j: integer;
begin
    clrscr;
    writeln ('Введите массив А');
    for i := 1 to m do
        for j := 1 to n do
        Read (A[i, j]);
     Readln;
    for i := 1 to m do
        for j := 1 to n do
        B[i, j] := sqr(A[i, j]);
    writeln ('массив B');
    for i := 1 to m do
        for j := 1 to n do
        write(B[i, j]:4);
     ReadKey;
end.
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 28.08.2010 в 18:43.
Hacker19_90 вне форума Ответить с цитированием
Старый 28.08.2010, 15:39   #4
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

Чуток подправил
Код:
uses crt;
const
    m = 10;
    n = 10;
var
    A, B: array[1..m, 1..n] of integer;
    i, j: integer;
begin
    clrscr;
    writeln ('Введите массив А');
    for i := 1 to m do begin
        for j := 1 to n do
        Read( A[i, j]);
     Readln;
    for i := 1 to m do
        for j := 1 to n do
        B[i, j] := sqr(A[i, j]);
    writeln ('массив B');
    for i := 1 to m do
        for j := 1 to n do
        write(B[i, j]:4);
  end;
end.
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Старый 28.08.2010, 15:44   #5
DRAgon™
Форумчанин
 
Аватар для DRAgon™
 
Регистрация: 14.03.2010
Сообщений: 362
По умолчанию

хатя и так правильно,невнимательно посмотрел
Чем больше моя слава, тем я больше тупею; и таково, несомненно, общее правило.(А.Эйнштейн)
DRAgon™ вне форума Ответить с цитированием
Старый 28.08.2010, 15:49   #6
Woxx
Пользователь
 
Регистрация: 27.08.2010
Сообщений: 16
По умолчанию

Спасибо большое, век не забуду!!!
Woxx вне форума Ответить с цитированием
Старый 28.08.2010, 18:20   #7
Hacker19_90
Delphi Warrior
Старожил
 
Аватар для Hacker19_90
 
Регистрация: 15.08.2008
Сообщений: 2,497
По умолчанию

1)
Код:
program forvanya;
uses crt;
const
    m = 10;
var
    posl: array[1..m] of integer;
    mass: array[byte] of integer;
    i: integer;
    kol: integer;
begin
    clrscr;
    writeln ('Введите последовательность:');
    for i := 1 to m do
        Read( posl[i]);
    Readln;
    kol := 0;
    for i := 1 to m do
    begin
         if posl[i] = 0 then
         begin
              Inc(kol);
              Mass[kol] := i;  
         end;
    end;
    writeln ('номера нулевых');
    for i := 1 to kol do
        write(mass[i]:4);
    ReadKey;
end.
Mess with the best, die like the rest. (с) Hackers
Лабораторные, курсовые на Delphi\Pascal\C++
ya.flex-freelance@yandex.ru Icq - 636-954-303

Последний раз редактировалось Hacker19_90; 28.08.2010 в 18:29.
Hacker19_90 вне форума Ответить с цитированием
Старый 28.08.2010, 18:27   #8
Woxx
Пользователь
 
Регистрация: 27.08.2010
Сообщений: 16
По умолчанию

Спасибо, это работает
Woxx вне форума Ответить с цитированием
Старый 28.08.2010, 18:58   #9
Carbon
JAVA BEAN
Участник клуба
 
Аватар для Carbon
 
Регистрация: 22.04.2007
Сообщений: 1,331
По умолчанию

Ну как, теперь понятна суть массивов?
Carbon вне форума Ответить с цитированием
Старый 28.08.2010, 19:09   #10
Gambler
Игрок
Форумчанин
 
Аватар для Gambler
 
Регистрация: 29.10.2006
Сообщений: 367
По умолчанию

Ага ))) Понятна. Завтра по строкам задачки будете решать. )))
Жизнь всегда игра. Но смерть - не всегда поражение.

#define true (Math.random()>0.5) //Удачной отладки
Gambler вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Одномерные и Двумерные массивы(qBasic) EgorA_T Помощь студентам 0 17.06.2010 19:32
Одномерные и двумерные массивы dexter2145 Помощь студентам 8 11.06.2010 15:59
Даны одномерные массивы А и В. Сформировать массивы, состоящие из элемент LyaLya Помощь студентам 15 20.12.2009 14:12
одномерные и двумерные массивы Алекс К. Помощь студентам 3 09.03.2009 17:53