Помогите сделать блок-схему!
F
Ferdinant corp.R
18:47, 18.12.2006
Уважаемые форумчане, помогите пожалуйста посторить блок-схему вот по этой программе.
Program MOD1;
Var A,B,C: Integer;
Procedure Evklid(M,N: Integer; Var K:
Integer);
Begin
While M<>N Do
If M>N
Then M:-=M-N
Else N:=N-M;
K:=M
End;
Begin
Write('a=');
ReadLn(A);
Write('b=');
ReadLn(B);
Evklid(A+B,Abs(A-B),C);
Evklid(C,A*B,C);
WriteLn('HOД=',C)
End.
Если что, это Паскаль.
Program MOD1;
Var A,B,C: Integer;
Procedure Evklid(M,N: Integer; Var K:
Integer);
Begin
While M<>N Do
If M>N
Then M:-=M-N
Else N:=N-M;
K:=M
End;
Begin
Write('a=');
ReadLn(A);
Write('b=');
ReadLn(B);
Evklid(A+B,Abs(A-B),C);
Evklid(C,A*B,C);
WriteLn('HOД=',C)
End.
Если что, это Паскаль.
O
OneTwoOne. 
18:51, 18.12.2006
я вот тоже раньше думал, что тут типа кружок Умелые руки.
18:52, 18.12.2006
я вот тоже раньше думал, что тут типа кружок Умелые руки.
какая фатальная ошипка)))))))))
O
OneTwoOne.
18:55, 18.12.2006
да, под таким многообещающим названием, пригнездились... ладно бы просто бездельники..
F
Ferdinant corp.R
18:55, 18.12.2006
Из вас, што ни кто паскаль не изучал?
19:02, 18.12.2006
паркетнек
а ещо у меня мама купила паркетнек...
[Сообщение изменено пользователем 18.12.2006 19:02]
s
singularnost
19:28, 18.12.2006
1. чота это не пахоже на паскаль.
2. тибе можыт еще и визио удаленна устанавить?
2. тибе можыт еще и визио удаленна устанавить?
19:31, 18.12.2006
1. чота это не пахоже на паскаль.
да не он...
вар прцедур бегин енд
s
singularnost
19:33, 18.12.2006
вар прцедур бегин енд
это да.
но или я начисто забыл операторы, или 7 лет назад ниравно и присвоидь не так писалось.
19:36, 18.12.2006
7 лет назад ниравно и присвоидь не так писалось.
да не <> := все в парядки
s
singularnost
19:38, 18.12.2006
все в парядки
старею. теряю былую легкость.
F
Ferdinant corp.R
19:41, 18.12.2006
ща я отсканирую задание и выложу
19:42, 18.12.2006
ща я отсканирую задание и выложу
еще денег насканируй а...немношко
s
singularnost
19:43, 18.12.2006
с != == пирипутал да?
1. папа, ты щас с кем разгаваривал?)))
2. <-- --> это вроде коменты из хтмл. их вроде помню. а всякие си и прочие разные шведы - заметены снегом.
Б
Бегемот Забабахина 
19:44, 18.12.2006
денег насканируй
забыл как выглядяд?
F
Ferdinant corp.R
19:46, 18.12.2006
Б
Бегемот Забабахина
19:59, 18.12.2006
пойду почахну
жмотена
F
Ferdinant corp.R
20:14, 18.12.2006
ну помогите кто нибудь! Пожалуйста \почти реву\
s
singularnost
22:43, 18.12.2006
бугага))) а я-та думаю - чо там страка перенесена с пирименными)))))))))
м
мэм Марта 
22:47, 18.12.2006
/* надо же...
чота в голове ищщо осталось со старых времен...
чота в голове ищщо осталось со старых времен...
Авторизуйтесь, чтобы принять участие в дискуссии.