Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.11.2016, 16:06   #1
vanilla55
Новичок
Джуниор
 
Регистрация: 13.11.2016
Сообщений: 3
По умолчанию Нарисуйте блок-схему алгоритма выполнения данной задачи на Паскале.

Код:
const t = 100;s = 100;
var a : array[1..t, 1..s] of integer;
n, m, jm, i, j, min : integer;
begin
write('Введите количество строк n = ');
readln(n);
write('Введите количество столбцов m = ');
readln(m);
for i:=1 to n do
begin
writeln ('Введите количество', m, ' чисел');
for j := 1 to m do
read(a[i, j])
end;
for i := 1 to n do
begin
min := a[1, m];
jm := m;
for j := m downto 1 do
if min>a[i, j] then
begin
jm := j;
min := a [i, j]
end;
writeln('B строке i =', i, 'самый правый min =', min);
writeln(jm)
end;
end.

Последний раз редактировалось Serge_Bliznykov; 13.11.2016 в 19:42.
vanilla55 вне форума Ответить с цитированием
Старый 18.11.2016, 23:25   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,537
По умолчанию

А если почитать, к примеру, хотя бы
http://learnpascal.ru/vvedenie-v-paskal/blok-sxema.html
да и самому, ручками, с периодическим включением головы. Рисовать можно даже в Paint, библиотеку условных знаков и пример выполнения могу выслать на Е-мелю.
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно написать программу для данной задачи и блок-схему. Horiscake Помощь студентам 1 23.10.2015 12:26
программирование блок схема. пожалуйста, нарисуйте блок схему. очень срочно нужно! Bogdan96 Помощь студентам 4 22.09.2015 09:33
Составить блок-схему алгоритма решения задачи и программу с использованием подпрограммы. галл Паскаль, Turbo Pascal, PascalABC.NET 0 12.10.2013 01:29
составить блок-схему и программу для данной задачи xamelione25 Паскаль, Turbo Pascal, PascalABC.NET 0 21.05.2013 22:10
Нарисуйте блок-схему за деньги cHEg Фриланс 1 25.11.2008 18:15