VPF::[Pascal] Задачи на массивы - Форум программистов

Olga654

Дата 28.5.2009, 11:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.5.2009

Репутация: нет
Всего: нет

Здраствуйте, вы бы не могли помочь мне с данными заданиями:

1)Обработать массив в соотвествии с условием задания. На экран вывести исходный и преобразованный массив в общепринятом виде. Обязатеьным является в программе использование подпрограмм.
Условие: В челочисленной матрице N(A,B) определить всё элементы, крастные трём. Сформировать из этих элементов одномерный массив и найти наименьший элемент этого массива A<=10, B<=15.

(A<=10, B<=15 это занчи- То что элементы в этом массиве должны быть меньше или равны этим цифрам).

2)Составить 2 программы на языке программирования Paskal (Одну - не используя цикла, другую используя соотвестсвующий оператор цикла). Сравнить полученное на ЭВМ значение суммы ряда со значением, вычесленным аналитически.

Найти сумму ряда:

Отдельное Спасибо neic за то что помог в прошлой теме!!

Rodman

Дата 28.5.2009, 18:24 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122

M
Rodman

Модератор: Пожалуйста, один топик - один вопрос.

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

neic

Дата 28.5.2009, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

В пятницу или на выходных решу первую задачу.
Вторую задачку тоже попытаюсь конечно сделать в это время, но не гарантирую.

Olga654

Дата 28.5.2009, 22:04 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.5.2009

Репутация: нет
Всего: нет

Спасибо, очень тебе благодарна за помощь.

neic

Дата 28.5.2009, 22:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

Репутация: 5
Всего: 7

1ая задача:

Код


USES CRT;
VAR I,L,K,MIN,J:INTEGER;
       A:ARRAY[1..3,1..2] OF INTEGER;
       B:ARRAY[1..6] OF INTEGER;
BEGIN
CLRSCR;

WRITELN('VVEDITE MASSIV');

FOR I:=1 TO 3 DO
BEGIN
       FOR J:=1 TO 2 DO
       BEGIN
               READLN(A[I,J])
               IF (J=1) AND (A[I,J])>10) THEN
               BEGIN
                      J:=J-1;
                      WRITELN('NE KORREKTNIJ VVOD DANNIH')
               END;

               IF (J>1) AND (A[I,J])>15) THEN
               BEGIN
                      J:=J-1;
                      WRITELN('NE KORREKTNIJ VVOD DANNIH')
               END;
       END;
END;

K:=0;

FOR I:=1 TO 3 DO
BEGIN
      FOR J:=1 TO 2 DO
      BEGIN
    IF A[I,J] MOD 3 = 0 THEN
                BEGIN
        K:=K+1;
        B[K]:=A[I,J]
                END;
      END;
END;


IF K>0 THEN 
BEGIN
        WRITELN;
    WRITELN('POLYCHENNIJ MASSIV CHISEL KRATNIH 3');
    WRITELN;

    FOR I:=1 TO K DO
    BEGIN
        WRITE(' ', B[I])
    END;
        WRITELN;
        WRITELN;

    L:=1;
    MIN:=B[L];

    FOR I:=1 TO K DO
    BEGIN
        IF MIN > B[I] THEN
        BEGIN
            L:=I;
            MIN:=B[L]
        END;
    END;

    WRITELN('MIN CHSILO = ', MIN, ' POD INDEXOM = ', L);
END;

IF K=0 THEN WRITELN('NET CHISEL KRATNIH 3');

READLN;
END.

Чутка раньше зарелизил =)

Добавлено через 6 минут и 13 секунд
Вторую задачу могу решить тока циклом, без цикла чё-т не получается.

Это сообщение отредактировал(а) neic - 28.5.2009, 22:16

Olga654

Дата 28.5.2009, 22:27 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.5.2009

Репутация: нет
Всего: нет

Понятно, не торопись сильно. Мне это не на столько срочно нужно. Но всё равно огромное спасибо)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »