Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 12
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 25
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 26
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 27
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 28
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/maincore.php on line 29
нужна помощь .:: CodingRUS ::. программирование по-русски на Delphi, C++, PHP, Prolog, GPSS
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
Deprecated: Function eregi() is deprecated in /home/codingr/sites/codingrus.ru/side_left.php on line 41
можеш еще подскозать што в результате получается ? вот сам код
function NOD(a,b:integer):integer;
begin
while (a <> 0) and (b <> 0) do begin
if a >= b then
a:= a mod b
else
b:= b mod a;
end;
NOD:= a + b;
end;
function puf(a,b,c,d:integer):string;
var up,dwn,pp:integer;
begin
up:=a*c;
dwn:=b*d;
pp:=NOD(up,dwn);
up:=up div pp;
dwn:=dwn div pp;
writeln;
puf:=inttostr(up)+'/'+inttostr(dwn);
end;
var a,b,c,d:integer;
begin
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
write('d=');readln(d);
writeln(puf(a,b,c,d));
readln;
end.
нодо ввести 2/3 и 3/4 што в результате получилось?
Изменил(а) Kest, 20-03-2011 22:19
{<<Функция определяет, >>
<<является ли число простым >>
<<и находится ли в диапазоне byte>>}
function IsSimpleByte(n: integer): boolean;
var i: integer;
begin
if not n in [1..255] then begin //Если не byte
result:=false; //возвращаем отрицательный рез-т
exit; //прекращаем выполнение функции
end;
for i := n-1 downto 2 do //перебираем числа от n-1 до 2
if n mod i = 0 then begin //Если делится без остатка
result:=false; //возвращаем отрицательный рез-т
exit; //прекращаем выполнение функции
end;
result:=true; //если все проверки пройдены - возвращаем положительный рез-т
end;
var i, m, n, k: integer;
diapazon, diapazon_k, diapazon_m, diapazon_km: set of byte;
begin
m:=4; //Начальная инициализация, чтоб сработало условие ниже
//Считывание с проверкой на соответствие техзаданию
while not IsSimpleByte(m) do begin
write('Input SIMPLE BYTE m: ');
readln(m);
end;
n:=0; //Начальная инициализация, чтоб сработало условие ниже
//Считывание с проверкой на соответствие техзаданию
while not ((n in [1..255]) and (n>m)) do begin
write('Input n: ');
readln(n);
end;
k:=4; //Начальная инициализация, чтоб сработало условие ниже
//Считывание с проверкой на соответствие техзаданию
while not IsSimpleByte(k) do begin
write('Input SIMPLE BYTE k: ');
readln(k);
end;
diapazon:=[m..n]; //Задаем общее множество
writeln('Full diapazone:'); //Выводим сообщение
//Сортируем значения по дополнительным множествам
for i:=m to n do begin
write(i,', '); //попутно выводим на экрат общий диапазон
if i mod k = 0 then
diapazon_k:=diapazon_k+[i];
if i mod m = 0 then
diapazon_m:=diapazon_m+[i];
if ((i mod m = 0)and(i mod k = 0)) then
diapazon_km:=diapazon_km+[i];
end;
writeln;
//Выводим на экран результаты
writeln('Delitsa bez ostatka na k:');
for i:=m to n do
if i in diapazon_k then
write(i,', ');
writeln;
writeln('Delitsa bez ostatka na m:');
for i:=m to n do
if i in diapazon_m then
write(i,', ');
writeln;
writeln('Delitsa bez ostatka na k & m:');
for i:=m to n do
if i in diapazon_km then
write(i,', ');
//Все готово! ждем нажатия клавиши.
writeln(#13#10,'done! press any key.');
readln;
end.