Login
кто в ПАСКАЛЕ разбирается?
111 просмотров
Перейти к просмотру всей ветки
in Antwort Niko13 24.10.02 17:31
Я давно не программировал на Pascal, но думаю прога могла бы выглядеть так:
program n_o_k;
const
privet='*Данная программа вычисляет НОК двух целых положительнах чисел*'
question='Продолжить?(Y/N)'
foul='Число должно быть целым и положительным! Повторите ввод:'
var
a,b,result: integer;
stop: boolean;
function nod(a,b: integer): integer;
var
rest: integer;
begin
repeat
begin
rest:=a mod b;
a:=b;
b:=rest
end
until rest=0;
nod:=a
end;
function nok(a,b: integer): integer;
begin
nok:=a*b/nod(a,b)
end;
procedure eingabe;
begin
a=0; b=0;
while a<=0 do
begin
writeln('Введите первое число:',0);
readln(a,0);
if a<=0 then writeln (foul)
end;
while b<=0 do
begin
writeln('Введите второе число:',0);
readln(a,0);
if b<=0 then writeln (foul)
end
end;
procedure rechnung;
begin
result:=nok(a,b)
end;
procedure ausgabe;
begin
writeln ('НОК чисел ',a,' и ',b,' равен: ', result)
end.
begin {n_o_k}
ClrScr;
stop:=false;
writeln(privet,0);
repeat
begin
eingabe;
rechen;
ausgabe;
writeln(question,0);
if KeyPressed='Y' or KeyPressed='y' then stop:=true
end
until stop=true;
exit
end. {n_o_k}
Может быть, нужно ещ╦ какие-нибудь модули стандартные подключить, а также провести отладку, так как возможности откомпилировать и прогнать программу у меня нет.
Желаю удачи!!!
Если что пиши: teuter@germany.ru
program n_o_k;
const
privet='*Данная программа вычисляет НОК двух целых положительнах чисел*'
question='Продолжить?(Y/N)'
foul='Число должно быть целым и положительным! Повторите ввод:'
var
a,b,result: integer;
stop: boolean;
function nod(a,b: integer): integer;
var
rest: integer;
begin
repeat
begin
rest:=a mod b;
a:=b;
b:=rest
end
until rest=0;
nod:=a
end;
function nok(a,b: integer): integer;
begin
nok:=a*b/nod(a,b)
end;
procedure eingabe;
begin
a=0; b=0;
while a<=0 do
begin
writeln('Введите первое число:',0);
readln(a,0);
if a<=0 then writeln (foul)
end;
while b<=0 do
begin
writeln('Введите второе число:',0);
readln(a,0);
if b<=0 then writeln (foul)
end
end;
procedure rechnung;
begin
result:=nok(a,b)
end;
procedure ausgabe;
begin
writeln ('НОК чисел ',a,' и ',b,' равен: ', result)
end.
begin {n_o_k}
ClrScr;
stop:=false;
writeln(privet,0);
repeat
begin
eingabe;
rechen;
ausgabe;
writeln(question,0);
if KeyPressed='Y' or KeyPressed='y' then stop:=true
end
until stop=true;
exit
end. {n_o_k}
Может быть, нужно ещ╦ какие-нибудь модули стандартные подключить, а также провести отладку, так как возможности откомпилировать и прогнать программу у меня нет.
Желаю удачи!!!
Если что пиши: teuter@germany.ru