Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal] Задачи на массивы

Автор: Olga654 28.5.2009, 11:57

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

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

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

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

Найти сумму ряда:http://ipicture.ru/
Отдельное Спасибо neic за то что помог в прошлой теме!!

Автор: Rodman 28.5.2009, 18:24

M
Rodman

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

Автор: neic 28.5.2009, 21:35

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

Автор: Olga654 28.5.2009, 22:04

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

Автор: neic 28.5.2009, 22:13

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 секунд
Вторую задачу могу решить тока циклом, без цикла чё-т не получается.

Автор: Olga654 28.5.2009, 22:27

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