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

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

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

Восстановить пароль

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

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2010, 21:44   #1
Xenon0001
 
Регистрация: 10.06.2010
Сообщений: 3
По умолчанию Нужны блок схемы. Завтра экзамен.

1.procedure sortDan;
var
i,j,k,t:integer;
x:array[1..6] of integer;
begin
clrscr;
if pv:=0 then begin
writeln('Данные не введены');
readln;
end;
else
k:=0;
for i:=1 to n do
for j:=1 to n do
if i>j then begin
k:=k+1;
end;
for i:=1 to k-1 do
for j:=1 to k-j do
if x[i]>x[i+1] then
begin
t:=x[i];
x[i]:=x[i+1];
x[i+1]:=t;
end;
writeln ('Массив отсортирован');
k:=0;
for i:=1 to n do
for j:=1 to n do
begin
if i>j then
begin
k:=k+1;
M[i,j]:=x[k];
end;
end;
writeln;
readln;
end;

2.procedure grahpFun;
begin
uses graph;
const
xn=-2*pi;
xk=2*pi;
n=20000;
var
x,dx,y:real;
gd,gm:integer;
begin
gd:=detect;
Initgraph(gd,gm,'');
SetBkColor(3);
SetColor(White);
SetLineStyle(0,0,1);
ClearDevice;
Line(20,240,550,240);
line(545,235,550,240);
Line(545,245,550,240);
OutTextXY(555,250,'X');
Line(240,50,240,400);
line(235,55,240,50);
Line(245,55,240,50);
OutTextXY(250,50,'Y');
dx:=(xk-xn)/n;
x:=xn;
y:=cos(x*x)-cos(x);
PutPixel(240+round(x*25),240-round(y*100),5);
Repeat
x:=x+dx;
y:=cos(x*x)-cos(x);
SetColor(5);
putpixel(240+round(x*25),240-round(y*100),5);
until x>xk;
readln;
closegraph;
end;

3.procedure outputDan;
label 1;
const n=6;
var
z:array[1..n] of integer;
M:array[1..n,1..n] of integer;
t,x,p,k,i,y,max,j:integer;
A,B,S:string;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
M[i,j]:=random(100);
write(M[i,j]:5);
end;
writeln;
end;
max:=M[1,1];
for i:=1 to n do
if M[i,i]>max then
begin
max:=M[i,i];
x:=i;
end;
clrscr;
1: write('Введите номер столбца <',n);
readln(k);
if k>=n then goto 1;
for i:=1 to n do
begin
p:=M[i,k];
M[i,k]:=M[x,i];
M[x,i]:=p;
end;
writeln('Новая матрица');
for i:=1 to n do
begin
for j:=1 to n do
write(M[i,j]:5);
writeln;
end;
k:=0;
for i:=1 to n do
for j:=1 to n do
if i>j then begin
k:=k+1;
z[k]:=M[i,j];
end;
for j:=1 to k-1 do
for i:=1 to k-j do
if z[i]>z[i+1] then
begin
t:=z[i];
z[i]:=z[i+1];
z[i+1]:=t;
end;
writeln('Отсортированный массив');
k:=0;
for i:=1 to n do
begin
for j:=1 to n do
begin
if i>j then
begin
k:=k+1;
M[i,j]:=z[k];
end;
write(M[i,j]:5);
end;
writeln;
end;
readln;
Writeln ('Введите слово');
Readln (S);
A := Copy (S,1,1);
Delete (S,1,1);
B := Copy (S,length(S),1);
Delete (S,length(S),1);
S := B + S + A;
writeln(S);
readln;
end;

Написать для каждой процедуры отдельную блок схему.
Xenon0001 вне форума Ответить с цитированием
Старый 16.06.2010, 14:31   #2
dimafe6
Пользователь
 
Регистрация: 28.01.2010
Сообщений: 16
По умолчанию готов

сделаю, 0,5WMZ за каждую процедуру.
Dimafe2000@mail.ru
dimafe6 вне форума Ответить с цитированием
Старый 17.06.2010, 20:59   #3
diamFC
Пользователь
 
Регистрация: 05.04.2010
Сообщений: 11
По умолчанию

в прицепе блок-схема для первой программы. Кстати, она у тебя написана с ошибками, а именно: перед else не допускается символ ";"
Остальные сделаешь сам.
Изображения
Тип файла: jpg sortDan.jpg (33.2 Кб, 157 просмотров)
Базы данных MS Access, MS SQL, Макросы для Word, Excel, PowerPoint, OutLook
Веб - приложения C# (Core 3.0)
Доработки Битрикс-портала, Битрикс-сайтов
diamFC вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Зачем нужны блок-схемы? fs444 Общие вопросы по программированию, компьютерный форум 31 27.01.2010 04:11
ПОМОГИТЕ......ЗАВТРА ЭКЗАМЕН!!!!!! Allen Iverson Помощь студентам 0 23.04.2009 20:33
Завтра экзамен((( Foxandrey Паскаль, Turbo Pascal, PascalABC.NET 0 14.12.2008 12:00