![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Всем доброго времени суток.
Имеется программа: Код:
Program Project1; {$APPTYPE CONSOLE} uses SysUtils, Unit1 in 'Unit1.pas'; var p1,p2,q1,q2,p,q,n,x,y:integer; s:string; begin //Ввод данных с помощью ДСЧ randomize; p1:=random(100); q1:=random(100); p2:=random(100); q2:=random(100); SUM(p1,q1,p2,q2,x,y); writeln(p1:3,' ',p2:3,' ',p:3); writeln('--- + --- = -----'); writeln(q1:3,' ',q2:3,' ',q:3); writeln; RAZN(p1,q1,p2,q2,p,q); writeln(p1:3,' ',p2:3,' ',p:3); writeln('--- - --- = -----'); writeln(q1:3,' ',q2:3,' ',q:3); writeln; UMN(p1,q1,p2,q2,p,q); writeln(p1:3,' ',p2:3,' ',p:3); writeln('--- * --- = -----'); writeln(q1:3,' ',q2:3,' ',q:3); writeln; DEL(p1,q1,p2,q2,p,q); writeln(p1:3,' ',p2:3,' ',p:3); writeln('--- / --- = -----'); writeln(q1:3,' ',q2:3,' ',q:3); writeln; writeln('Vv. n'); readln(n); VOZV(p1,q1,n,p,q); writeln(p1:3,' ', p:3); writeln(' --- ^ n = ---- '); writeln(n); writeln(q1:3,' ',q:3); writeln; SRV(p1,q1,q2,p2,s,p,q); writeln(p1:3,' ',p2:3); writeln(' -- ',s,' -- '); writeln(q1:3,' ',q2:3); writeln; readln; end. И юнит Код:
unit Unit1; interface procedure SUM(p1,q1,q2,p2:integer; var p,q:integer); procedure RAZN(p1,q1,q2,p2:integer; var p,q:integer); procedure UMN(p1,q1,q2,p2:integer; var p,q:integer); procedure DEL(p1,q1,q2,p2:integer; var p,q:integer); procedure VOZV(p1,q1,n:integer; var p,q:integer); procedure SRV(p1,q1,q2,p2:integer;s:string; var p,q:integer); implementation uses math ; procedure SUM(p1,q1,q2,p2:integer; var p,q:integer); begin p:=p1*q2+p2*q1; q:=q1*q2; end; procedure RAZN(p1,q1,q2,p2:integer; var p,q:integer); begin p:=p1*q2-p2*q1; q:=q1*q2; end; procedure UMN(p1,q1,q2,p2:integer; var p,q:integer); begin p:=p1*p2; q:=q1*q2; end; procedure DEL(p1,q1,q2,p2:integer; var p,q:integer); begin p:=p1*q2; q:=q1*p2; end; procedure VOZV(p1,q1,n:integer; var p,q:integer); begin p:=trunc(power(p1,n)); q:=trunc(power(q1,n)); end; procedure SRV(p1,q1,q2,p2:integer;s:string; var p,q:integer); begin p:=p1*q2; q:=p2*q1; if p>q then s:='>' else if p<q then s:='<' else s:='='; end; end. Вопрос, в самой консоле не отображается знаки <,>,=, Кто может подсказать в чем ошибка? |
#2
|
||||
|
||||
![]() Ну так она назначается аргументу ф-ии, а он в стеке, по сути бесполезный код у тебя, там либо перед S писать var илбо out.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#3
|
|||
|
|||
![]() Cпасибо, помогло)
Не могли бы вы подсказать, как записать процедуру сокращения дроби? Последний раз редактировалось Nevis, 27.12.2012 в 20:28. |