derelict Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Код:   const   n = 6;   m = 7; var   W: array[1..n, 1..m] of real;   i, j: integer;   p: real; begin   writeln('Filling the matrix');   p := 1;   for i := 1 to n do     for j := 1 to m do       begin         write('Enter element [', i, ', ', j, ']: ');         readln(W[i, j]);         p := p * W[i, j];       end;   writeln;   writeln('Matrix:');   for i := 1 to n do     begin       for j := 1 to m do         write(W[i,j]:7:2);       writeln;     end;   writeln;   write('Result: ', p:1:2);   readln; end.   Всего записей: 232 | Зарегистр. 11-06-2006 | Отправлено: 16:13 07-01-2010 | Исправлено: derelict, 16:28 07-01-2010

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Pascal/Object Pascal/Free Pascal (Delphi/Lazarus)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование