Нужна блок-схема, дипломка - Бесплатно сделаю блок-схему

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

Форма входа

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

Статистика

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

02.10.2026, 07:09

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

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

Нужна блок-схема, дипломка

ToXa

Дата: Суббота, 17.03.2012, 20:53 | Сообщение # 1

Рядовой

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

Сообщений: 4

Репутация: 0

Статус: Offline

Если можно в wordE
Программа(также ее прикрепил):

program a1;
const
N = 5;
M = 5;
var a:array [1..n, 1..n] of integer;
i,j,s1,s2,b,c,d,e,f,k,s:integer;
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50);
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
writeln;
s1:=0;
s2:=0;
for j:=1 to m do
begin
s1:=s1+a[1,j];
s2:=s2+a[n,j];
end;
writeln('Summa pervoi stroki=',s1);
writeln('Summa vtoroi stroki=',s2);
writeln;
for j:=1 to m do
begin
begin
b:=a[1,j];
c:=a[2,j];
d:=a[3,j];
e:=a[4,j];
f:=a[5,j];
end;
if s1<s2 then
begin
a[1,j]:=c;
a[2,j]:=d;
a[3,j]:=e;
a[4,j]:=f;
a[5,j]:=b;
end;
end;
if s1>s2 then
begin
for i := 1 to n-1 do
for j := 1 to m-i do
if a[3,j] < a[3,j+1] then
begin
k := a[3,j];
a[3,j] := a[3,j+1];
a[3,j+1] := k;
end;
end;
s:=0;
if s1=s2 then
begin
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 2<>0 then
s:=s+a[i,j];
write('Summa vseh nechetnyh chisel massiva=',s);
end;
if s1<>s2 then
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln;
end;
end;
readln
end.

Спасибо smile

Прикрепления: 44.pas (1.4 Kb)

ToXa

Дата: Понедельник, 19.03.2012, 11:33 | Сообщение # 2

Рядовой

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

Сообщений: 4

Репутация: 0

Статус: Offline

Дико извиняюсь, программу немного изменил

program a1;
const
N = 5;
M = 5;
var a:array [1..n, 1..n] of integer;
i,j,s1,s2,b,c,d,e,f,k,s:integer; {Ввод переменных}
begin
randomize;
for i:=1 to n do
for j:=1 to m do
a[i,j]:=random(50); {Заполнение массива случайными числами от 0 до 49}
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3);
writeln; {Вывод массива}
end;
writeln;
s1:=0;
s2:=0;
for j:=1 to m do
begin
s1:=s1+a[1,j];
s2:=s2+a[n,j]; {Нахождение сумм первой и второй стоки массива}
end;
writeln('Summa pervoi stroki= ',s1);
writeln('Summa vtoroi stroki= ',s2); {Вывод сумм}
writeln;
if s1<s2 then
begin
for j:=1 to m do
begin
b:=a[1,j];
c:=a[2,j];
d:=a[3,j];
e:=a[4,j];
f:=a[5,j]; {Присвоение переменным значения строк массива}
a[1,j]:=c;
a[2,j]:=d;
a[3,j]:=e;
a[4,j]:=f;
a[5,j]:=b; {Присвоение строкам массива значения переменных}
end;
end;
if s1>s2 then
begin
for i := 1 to n-1 do
for j := 1 to m-i do
if a[3,j] < a[3,j+1] then
begin
k := a[3,j];
a[3,j] := a[3,j+1];
a[3,j+1] := k; {Сотировка третьей строки массива пузырьковым методом по убыванию}
end;
end;
s:=0;
if s1=s2 then
begin
for i:=1 to n do
for j:=1 to m do
if a[i,j] mod 2<>0 then
s:=s+a[i,j]; {Нахождение суммы всех нечетных чисел массива}
write('Summa vseh nechetnyh chisel massiva=',s);
end;
if s1<>s2 then
begin
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:3); {Вывод массива}
writeln;
end;
end;
readln
end.

Прикрепления: 4221498.pas (1.8 Kb)

diamFC

Дата: Понедельник, 19.03.2012, 11:50 | Сообщение # 3

Полковник

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

Сообщений: 207

Репутация: 11

Статус: Offline

Напишите условие задачи. Что она решает.

ToXa

Дата: Понедельник, 19.03.2012, 12:06 | Сообщение # 4

Рядовой

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

Сообщений: 4

Репутация: 0

Статус: Offline

5. В массиве а[1..5,1..5], введенном с клавиатуры, найти сумму первой и последней строки. Затем выполнить следующие действия:
5.1. Если сумма первой меньше суммы последней строки, то на место предыдущей строки массива записать элементы последующей строки. Элементы первой строки записать на место последней
5.2. Если сумма первой больше суммы последней строки, то рассортировать третью строку пузырьковым методом по убыванию.
5.3. Если суммы строк равны, то найти сумму всех нечетных чисел массива.

diamFC

Дата: Понедельник, 19.03.2012, 12:09 | Сообщение # 5

Полковник

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

Сообщений: 207

Репутация: 11

Статус: Offline

В прицепе блок-схема в Екселе, ворде и картинке.
Сделано в diamFC

Прикрепления: 5514834.zip (98.4 Kb)

ToXa

Дата: Понедельник, 19.03.2012, 12:35 | Сообщение # 6

Рядовой