Четверг, 06 Октября 2022, 19:55

Приветствую Вас Гость

[ Новые сообщения · Игроделы · Правила · Поиск ]
  • Страница 1 из 1
  • 1
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помагите с задачкой Pascal (+)
Помагите с задачкой Pascal
goldsphereДата: Суббота, 08 Октября 2011, 16:22 | Сообщение # 1
заслуженный участник
Сейчас нет на сайте
Люди мне тут задали такую задачку Сократить обыкновенную дробь(я 8 класс) использовать моно if, while , присваивание ну короче ограничено никаких массивов итд ток циклы и проверки.Буду благодарен

FinderX - Android Аркада
МорриартеДата: Суббота, 08 Октября 2011, 17:06 | Сообщение # 2
LINUX ФАНАТ
Сейчас нет на сайте
Что-то вроде этого:

Code
uses Crt;
var
    a,b,c           :longint;
    a1,b1           :longint;
begin
    ClrScr;
    Write('‚ўҐ¤ЁвҐ §**зҐ*ЁҐ зЁб«ЁвҐ«п:>');
    Readln(a);
    Write('‚ўҐ¤ЁвҐ §**зҐ*ЁҐ §**¬Ґ**⥫п:>');
    Readln(b);
    if b=0 then begin   
      Writeln('ЋиЁЎЄ*!! ‡**¬Ґ**⥫м *Ґ ¤®«¦Ґ* а*ў*пвбп *г«о.');
      Readkey;
      Halt(1);
    end;
    if a=0 then begin
      Writeln(a,'/',b,'=',0);
      Readkey;
      Halt(1);
    end;
    a1:=a;   
    b1:=b;
    if b>a then   
     begin
      c:=a;
      a:=b;
      b:=c;
     end;
    while a mod b<>0 do
     begin
      c:=b;
      b:=a mod b;
      a:=c;
     end;
    Write(a1,'/',b1,'=',a1 div b);
    if b1 div b<>1 then
     Writeln('/',b1 div b);
    ReadKey;
end.


И вообще, автор, не ленись, учись искать.
http://vbrus.narod.ru/PascalInfo3.htm#30


Сообщение отредактировал Buran - Суббота, 08 Октября 2011, 17:09
Форум игроделов » Программирование » Delphi/Pascal/Object Pascal » Помагите с задачкой Pascal (+)
  • Страница 1 из 1
  • 1
Поиск:

Все права сохранены. GcUp.ru © 2008-2022 Рейтинг