|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
29.03.2014, 00:49 | #1 |
Пользователь
Регистрация: 05.03.2014
Сообщений: 13
|
Cоставить процедуры для данной программы
Создать таблицу из 6 строк ТАВ, где в каждой строке будут располагаться найденные отрицательные(1) элементы из строк матрицы А, возведенные в квадрат(2).Вывести А и под ней ТАВ.
(1) Проц.(положительные) (2) Проц.(куб) (3) Проц.(вывести дополнительный массив из отрицательных(положительных) чисел состоящие в матрице А.) Прошу мне помочь с готовым решением. Вот программа Код: program qq; uses crt; var a:array[1..6,1..6] of integer; Tab:array[1..6,1..6] of integer; i,j:integer; begin randomize; for i:=1 to 6 do begin for j:=1 to 6 do begin a[i,j]:=5-random(10); write(a[i,j]:6); if a[i,j]<0 then tab[i,j]:=sqr(a[i,j]); end; writeln; end; writeln; for i:=1 to 6 do begin for j:=1 to 6 do begin if tab[i,j]<>0 then write(tab[i,j]:6) else write('0':6) end; writeln; end; end. |
30.03.2014, 10:11 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Cоставить программу для вычисления суммы | grongost | Помощь студентам | 1 | 17.03.2011 22:28 |
Принцип работы данной процедуры вывода в dec | Alex1991 | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 0 | 10.12.2010 18:57 |
ввод/вывод данных из/в файл для данной программы? | Tetramorf | Общие вопросы C/C++ | 0 | 14.05.2010 17:03 |
Cоставить программу для вычисления зн-я | Babur4iK | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 27.10.2009 15:31 |