Задачи По Паскалю

Тема в разделе "Pascal and Delphi", создана пользователем viktor2014, 19 янв 2013.

  1. viktor2014

    viktor2014 New Member

    Регистрация:
    19 янв 2013
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте сыну задали задачи по паскалю а он дуб дубом в нем не могли бы вы помочь решить?


    Двухмерные массивы
    1. Сформировать и вывести на экран в виде таблицы массив А[1..8,1..6], заполнив его целыми случайными числами из интервала [-10,10].
    2. В массиве В[1..5,1..5] найти произведение элементов главной диагонали.
    3. В двухмерном массиве хранится информация о количестве студентов в той или иной группе каждого курса института с первого по пятый (в первой строке — информация о группах первого курса, во второй — второго и т.д.). На каждом курсе имеется 4 групп. Составить программу для: а) расчета общего числа студентов на любом курсе; б) определения наименьшей по количеству студентов группы на 4 курсе.
     
  2. interacia

    interacia New Member

    Регистрация:
    24 янв 2013
    Сообщения:
    2
    Симпатии:
    0
    Ссылка на решение с комментарием
    program topic49973;
    var
    j,i:integer;
    M:integer;
    B: array [1..5,1..5] of real;
    Pro:real;
    begin
    M:=5;
    for i:=1 to M do begin
    write(i,' строки : ');
    for j:=1 to M do read(B[i,j]);
    end;
    Pro:=1;
    for i:=1 to M do begin
    Pro:=Pro*B[i,i];
    end;
    writeln;
    writeln('Ответ');
    writeln('Произведение элементов главной диагонали ',Pro);
    end.


    Добавлено:
    Код (Delphi):
    program topic49973s0;
    var
    j,i:integer; // счетчики в циклах
    A: array [1..8,1..6] of real;
    Pro:real; // произведение элементов
    begin
    // ввод значений элементов массива по строчно 5 элементов через пробел
    for i:=1 to 8 do begin
    for j:=1 to 6 do A[i,j]:=random(21)-10; // определяем очередной элемент
    end;
    // ответ
    writeln;
    writeln('Ответ');
    for i:=1 to 8 do begin
    Writeln;
    for j:=1 to 6 do write(A[i,j],' ');//Вывод очередного элемента
    end;
    end.
     
Загрузка...

Поделиться этой страницей