Важная информация
Показано с 1 по 4 из 4

Тема: С масивов A (10), D (12) получить массивы А1 и D1, которые содержат только кратные 7 числа исходных масивов.

  1. #1 С масивов A (10), D (12) получить массивы А1 и D1, которые содержат только кратные 7 числа исходных масивов. 
    Новичок
    Регистрация
    02.12.2011
    Сообщений
    15
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Очень надеюсь на быструю помощь)
    Ответить с цитированием  
     

  2. #2  
    Профи
    Регистрация
    31.10.2011
    Адрес
    Планета Земля
    Сообщений
    117
    Сказал(а) спасибо
    7
    Поблагодарили 9 раз(а) в 8 сообщениях
    Массивы вводятся вручную с клавиатуры или задаются в самой программе ?
    Ответить с цитированием  
     

  3. #3  
    Гуру Аватар для Абадябер
    Регистрация
    09.12.2010
    Адрес
    Беларусь, Минск
    Сообщений
    1,219
    Сказал(а) спасибо
    302
    Поблагодарили 176 раз(а) в 144 сообщениях
    Записей в блоге
    5
    Я получил условие и публичное сообщение только что, как только зашел на форум.
    В условии не указано несколько важных нюансов, во первых - это и ввод исходных данных - вручную, или из случайного числа, а во вторых - способ размещения чисел в результирующем массиве - по порядку, или на тех же местах, где располагались исходные в массивах-источниках.
    Поэтому, я выбрал такую модель: числа генерируются случайным образом, из диапазона от 1 до 100, и располагаются на тех-же местах.
    Код pascal:
    Var
        A: Array [1..10] Of Integer;
        D: Array [1..12] Of Integer;
        A1: Array [1..10] Of Integer;
        D1: Array [1..12] Of Integer;
        AI, DI: Integer;
    Begin
        Randomize;
        For AI:= 1 To 10 Do A[AI]:= Random(100) + 1;
        For DI:= 1 To 12 Do D[DI]:= Random(100) + 1;
        For AI:= 1 To 10 Do Begin
            If A[AI] Mod 7 = 0 Then A1[AI]:= A[AI];
            WriteLn('A1[', AI, '] = ', A1[AI]);
        End;
        For DI:= 1 To 12 Do Begin
            If D[DI] Mod 7 = 0 Then D1[DI]:= D[DI];
            WriteLn('D1[', DI, '] = ', D1[DI]);
        End;
        ReadLn;
    End.

    А вот вариант программы, в которой в результирующие массивы попадают только числа, кратные 7:
    Код pascal:
    Var
        A: Array [1..10] Of Integer;
        D: Array [1..12] Of Integer;
        A1: Array [1..10] Of Integer;
        D1: Array [1..12] Of Integer;
        AI, DI, A1I, D1I: Integer;
    Begin
        Randomize;
        For AI:= 1 To 10 Do A[AI]:= Random(100) + 1;
        For DI:= 1 To 12 Do D[DI]:= Random(100) + 1;
        A1I:= 1; D1I:= 1;
        For AI:= 1 To 10 Do Begin
            If A[AI] Mod 7 = 0 Then Begin
                A1[A1I]:= A[AI];
                WriteLn('A1[', A1I, '] = ', A1[A1I]);
                Inc(A1I);
            End;
        End;
        For DI:= 1 To 12 Do Begin
            If D[DI] Mod 7 = 0 Then Begin
                D1[D1I]:= D[DI];
                WriteLn('D1[', D1I, '] = ', D1[D1I]);
                Inc(D1I);
            End;
        End;
        ReadLn;
    End.
    Последний раз редактировалось Абадябер; 20.04.2012 в 07:14.
    Дружба-магия-радость!
    Ответить с цитированием  
     

  4. #4  
    Новичок
    Регистрация
    02.12.2011
    Сообщений
    15
    Сказал(а) спасибо
    0
    Поблагодарили 0 раз(а) в 0 сообщениях
    Спасибо, я примерно так же сделал))
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 0
    Последнее сообщение: 11.11.2012, 12:32
  2. Ответов: 1
    Последнее сообщение: 28.04.2012, 22:26
  3. Ответов: 2
    Последнее сообщение: 02.04.2012, 15:38
  4. Массивы и не только)
    от Виолетта в разделе QBasic
    Ответов: 7
    Последнее сообщение: 02.02.2011, 16:01
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •