Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal Задачки на строки и файлы https://www.cyberforum.ru/pascal/thread34035.html
Помогите пожалуйста решить 3 задачки: 1. Удалить из строки все кратные рядом стоящие одинаковые символы, оставив по одному 2. Вывести значение функции f(x)=e^-x*sinx на заданном отрезке с шагом h...
Pascal Массивы
Помогите плиз Дано : массивы A(N), B(M), C(N1). Используя подпрограмму, в каждом из исходных массивов вставить порядковый номер максимального элемента за ним,переместив все оставшиеся на одну...
Pascal Выведите на печать ту из матриц, норма которой наименьшая
Даны три квадратных матрицы А,В,С n-го порядка. Выведите на печать ту из них, сумма которой наименьшая.(Норма-максимум из абсолютных значений элементов матрицы).
Pascal Надо решить задачу со строками. Дана строка латинских символов. Создайте новую строку, куда включите все символы строки в обратном поряде за исключением одного, который задаст сам пользователь. https://www.cyberforum.ru/pascal/thread34031.html
Pascal Тип данных Record (записи). https://www.cyberforum.ru/pascal/thread34030.html
1. Дан набор кубиков, каждый из которых характеризуется размером (длина ребра в см.), цветом (красный, желтый, зеленый, синий) и материалом (дерево, картон, металл, пластмасса). Найти суммарный...
Удалить слово из строки Pascal
1. Определить числовое значение строковых переменных A=’29’ и B=’51’. Найти их сумму 2. Дана строка символов. Дано слово. Удалить из строки это слово.
Pascal Программа на строки(pascal).
Вывести слова,которые встречаются в тексте только 2 раза.Пожалуйста помогите,курсовую сдавать на днях.Заранее благодарю.
Pascal Символы. Дан символьный массив, заполненный буквами латинского алфавита (строчными и прописными). Заменить в массиве, например, все буквы s на m и S на M соответственно https://www.cyberforum.ru/pascal/thread34027.html
Pascal Составить программу движения двух точек по окружности в противоположные стороны https://www.cyberforum.ru/pascal/thread34020.html
Уважаемые форумчане ! Меня недавно перевели в другую группу в моем учебном заведении, из за того что расформировали старую. Они оказывается по учебной программе намного дальше прошли Паскаль чем...
Pascal Организация списков ПРИВЕТ! Вот моё задание: Если список целых чисел упорядочен по возрастанию, то получить новый список из положительных элементов исходного. Ввод и вывод списка я сделал, помогите пожалуйста... https://www.cyberforum.ru/pascal/thread34019.html
krack666
0 / 0 / 0
Регистрация: 13.05.2009
Сообщений: 13
0

Нужна блок-схема к программе

13.05.2009, 21:39. Просмотров 467. Ответов 1
Метки (Все метки)

Дан двумерный массив 5на5.Вычислить произведение отрицательных элементов.Определить индецсы максимального элемента.

Текст программы:
Program Myprog;
uses crt;
var
A:array [1..5,1..5] of integer;
i,j,imax,jmax,max:integer;
p:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
begin
for j:=1 to 5 do
A[i,j]:=random (12) - 3;
end;
writeln('Исходная матрица:');
for i:=1 to 5 do begin
for j:=1 to 5 do begin
write(a[i,j]:5)
end;
writeln;
end;
p:=1;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]<0 then p:=p*a[i,j];
writeln('proizved otrizatelnih chisel=',p);
begin
max:=a[1,1];
imax:=1;
jmax:=1;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]>max then
begin
max:=a[i,j];
imax:=i;
jmax:=j;
end;
end;
writeln('max element matrici : ', 'ctroka=',imax,',ctolbez=',jmax);
readkey

Вернуться к обсуждению:
Нужна блок-схема к программе
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2009, 21:39
Готовые ответы и решения:

Очень нужна блок-схема к программе
Кто откликнулся, спасибочки... Вот программа... const n=5; m=3; var a: array of integer; i,j:...

Блок-схема к программе
помогите пожалуйста написать блок-схему к программе: var MyArr:array of real; ...

Блок-схема к программе
Помогите пожалуйста. Нужно срочно сделать блок-схему. Кто сможет сделать, умоляю, пришлите сюда...

Блок схема по программе
Нужно составить блок схему Uses CRT; const nmax=5; mmax=5; str=5;

Блок схема по программе
uses crt; const n=15; m=8; var a,b:array of integer; i,j,imx,imn,sa,sb:integer;...

1
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.