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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2010, 16:20   #1
~Vadim~
Новичок
Джуниор
 
Регистрация: 12.05.2010
Сообщений: 1
По умолчанию БЛОК-СХЕМЫ В ПАСКАЛЕ(PASKAL)

ЗАДАЧА 1:Дан массив a[1..n] и число b. Переставить числа в массиве так, чтобы сначала шли элементы меньшие b, затем равные b, а лишь затем большие b.
КОД НА ПАСКАЛЕ:

Код:
program z1;
uses crt;
const n=10;
var a:array [1..n] of integer;
i,j,k,x,b:integer;
begin
clrscr;
for i:=1 to n do
readln(a[i]);
for i:=1 to n do
write(a[i],' ');
writeln('vvedite b');
readln(b);
j:=1;
for i:=1 to n do
if (a[i]<b) then
begin
x:=a[i];
for k:=i downto j do
a[k]:=a[k-1];
a[j]:=x;
inc(j);
end;
for i:=1 to n do
write(a[i],' ');
readln;
end.

ЗАДАЧА 2:Дана матрица размером n на n . Найти разность между элементами в одной строке, стоящими на главной и побочной диагоналях и сформировать из них дополнительный столбец.
КОД НА ПАСКАЛЕ:

Код:
program z;
uses crt;
const n=4;
var
a:array [1..n,1..n+1] of integer;
i,j:integer;
begin
clrscr;
randomize;
writeln('isxodnay matrica');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(100);
write(a[i,j]:3);
end;
writeln;
end;
for i:=1 to n do a[i,n+1]:=a[i,i] - a[i,n-i+1];
writeln('novay matriza');
for i:=1 to n do
begin
for j:=1 to n+1 do
write(a[i,j]:3);
writeln;
end;
readkey;
end.
ПОЖАЛУЙСТА ПОМОГИТЕ

СОСТАВЬТЕ ПЛИЗ БЛОК СХЕМЫ ДЛЯ ЗАДАЧ

Последний раз редактировалось Stilet; 13.05.2010 в 16:57.
~Vadim~ вне форума Ответить с цитированием
Старый 13.05.2010, 16:24   #2
ROMA2PVT
ТАМБОВСКИЙ ВОЛК.
Участник клуба
 
Аватар для ROMA2PVT
 
Регистрация: 16.03.2010
Сообщений: 1,354
По умолчанию

скачай программу для составления блок-схем по коду и штампуй наздоровье.
にんじゃ
ROMA2PVT вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
блок-схемы( Ankas Помощь студентам 1 10.05.2010 17:08
блок схемы Defender42 Помощь студентам 4 24.12.2009 13:34
блок схемы. Artimbulidor Помощь студентам 0 10.06.2009 19:03