помогите составить блок схему - Бесплатно сделаю блок-схему

Меню сайта
Главная страница Примеры блок-схем Скачать Купить Контакты Что нового История создания Сделаю для вас блок-схему FAQ (вопрос/ответ) Блог

Форма входа

Друзья сайта
Программа Ростовщик 1.04 Программа расчета кредита Курсовые по информатике Старый, но живой ГОСТ для Блок-Схем Сервис заполнения бланков аттестатов Библиотека VBA для сервиса AntiGate.com

Статистика

Приветствую Вас, Гость · RSS

02.05.2024, 20:40

[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]

Страница 1 из 1 1
Модератор форума: diamFC

Бесплатно сделаю блок-схему » Блок-схемы по просьбам » Главное - ВЕРИТЬ (© Didme) » помогите составить блок схему

помогите составить блок схему

kolyan_58

Дата: Суббота, 03.05.2014, 11:26 | Сообщение # 1

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

помогите составить блок схему для этой программы
program lab42;
uses crt;
var a:array[1..5,1..5] of integer;
i,j,min,k,l:integer;
begin
clrscr;
randomize;
for i:=1 to 5 do
for j:=1 to 5 do
a[i,j]:=random(21)-10;
min:=a[1,1]; k:=1; l:=1;
for i:=1 to 5 do
for j:=1 to 5 do
if a[i,j]<min then
   begin
    min:=a[i,j];
k:=i; l:=j;
   end;
writeln(' исходный массив ');
for i:=1 to 5 do
   begin
    for j:=1 to 5 do
      if(i=k)or(j=l)then
        begin
         write(a[i,j]:5);
        end
      else
        begin
         write(a[i,j]:5);
        end;
     writeln;
    end;
writeln;
for i:=k to 4 do
for j:=1 to 4 do
a[i,j]:=a[i+1,j];
for j:=l to 4 do
for i:=1 to 4 do
a[i,j]:=a[i,j+1];
writeln(' конечный массив ');
for i:=1 to 4 do
   begin
    for j:=1 to 4 do
     write(a[i,j]:5);
     writeln;
    end;
    readln;
end.

diamFC

Дата: Суббота, 03.05.2014, 12:07 | Сообщение # 2

Полковник

Группа: Администраторы

Сообщений: 207

Репутация: 11

Статус: Offline

Блок-схема в архиве.
Напишите, пожалуйста, условие для вашей программы, что она делает.

Прикрепления: 4804282.zip (68.5 Kb)

kolyan_58

Дата: Суббота, 10.05.2014, 17:08 | Сообщение # 3

Рядовой

Группа: Пользователи

Сообщений: 2

Репутация: 0

Статус: Offline

Матрицу A(n×m) преобразовать в матрицу B, вычеркнув строку истолбец, на пересечении которых расположен минимальный элемент матрицы A.

Я произвольно выбрал матрицу 5*5

Добавлено (03.05.2014, 13:30)
---------------------------------------------
блин, нашел лишнее условие, но я уже сам это выполню

Добавлено (10.05.2014, 17:08)
---------------------------------------------
Здравствуйте снова) А ваша программа может составить схему по коду с под программами? Вот программа:
program lab6;
function Sekv(var r:real):real;
var S:real;
begin
S:=pi*r*r;
Sekv:=S;
end;
function Dekv(var r:real):real;
var dlina: real;
begin
dlina:=2*pi*r;
Dekv:=dlina;
end;
var r: real;
begin
writeln('Радиус планет');
readln®;
WriteLn('Площадь планеты =',Sekv®);
WriteLn('Длина экватора планеты = ',Dekv®);
readln®;
end.

Страница 1 из 1
1