Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Блок-схема

Автор: Farfalla 24.12.2007 4:45

Помогите, пожалуйста, составить блок-схему. Вечно с ними проблемы sad.gif

program delenie;
uses crt;
var
a: array [1..30] of integer;
m: array [1..30] of integer;
I,n: integer;
d, g: byte ;
ch: char;
Error: integer;
Label L1, L2 ;
Begin
L1:
ClrScr;
Begin
ClrScr;
d:=wherex;
G:=wherex;
Repeat
Writeln('Введите количество элементов в интервале');
gotoxy (51,1) ;
write ('от 2 до 30...') ;
{$I-}
Readln(N) ;
Error:=IOResult;
{SI+}
If (N<2) or (N>30) or (Error<>0) then
Writeln('Неверно задано количество элементов массива! Повторите ввод!');
Until (N>=2) and (N<=30) and (Error=0);
writeln;
Writeln('Исходный массив С:');
For i:=1 to n do

begin
readln(a[i]);
if a[i]/5<>round(a[i]/5) then m[i]:=2;
if a[i]/10=round(a[i]/10) then m[i]:=1;
end;

writeln ('');
writeln('Результатный массив CI:');
for i:=1 to n do
if m[i]=1 then
write (a[i],',');
for i:=1 to n do
if m[i]=2 then
write (a[i],',');
ch:= readkey;
end;

writeln;
writeln('Сортировать еще один массив? (Y-Да, N-Нет)') ;
L2:
Case Readkey of
#89: Goto L1;
#121: Goto L1;
#78:Exit;
#110:Exit
end;
Goto L2;
end.





Автор: klem4 24.12.2007 13:07

попробуй с помощью этого: http://forum.pascal.net.ru/index.php?showtopic=4270

Автор: Farfalla 25.12.2007 4:13

Цитата(klem4 @ 24.12.2007 9:07) *

попробуй с помощью этого: http://forum.pascal.net.ru/index.php?showtopic=4270

Не открывается sad.gif

Автор: Ozzя 25.12.2007 14:11

http://alglib.manual.ru/aboutbls.php