0 / 0 / 0
Регистрация: 12.05.2015
Сообщений: 28
1

Перевести с паскаль на С++

14.05.2015, 15:00. Показов 569. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
uses crt;
var
m,k, a, b, c, d,v: integer;
n,p,z, i,q: real;
s:string;
function NOD(x,y:integer):integer;
Begin
If x<>0 then NOD:=NOD(y mod x,x) else NOD:=y;
End;
function NOK(x,y:integer):integer;
Begin
NOK:=(x div NOD (x,y))*y;
end;
begin
clrscr;
writeln (' введите a, b, c, d ');
readln (a,b,c,d);
m:= NOK(b,c);
n:= m/b ;
q:= m/c ;
p:=n*a+q*d; 
s:= floattostr(p); 
v:= strtoint(s); 
z:=NOD (m,v);
p:=p/z;
i:=m/z;
if p=i then
writeln (a,'/',b ,'+', d,'/',c,'= ',p) 
else
begin
if i=1 then
writeln(a,'/',b ,'+', d,'/',c, '= ',p) 
else
writeln(a,'/',b,'+', d,'/',c,'=',p,'/',i); 
end;
end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.05.2015, 15:00
Ответы с готовыми решениями:

Перевести код из паскаль АБС в фри паскаль
Необходимо перевести этот код из паскаля АБЦ в фрипаскаль Спасибо! program test; const n=20;...

Снова перевести с Турбо Паскаля на Паскаль АВС или Паскаль АВС.Нет
program derevo; uses crt, graph; function cx(length, angle:real):integer; begin ...

перевести с Паскаль
123

Перевести с паскаль на c#
1) var a:array of real; m:real; i:byte; begin m:=0; for i:=1 to 29 do begin...

1
Котовчанин
942 / 482 / 200
Регистрация: 16.02.2010
Сообщений: 3,338
Записей в блоге: 37
14.05.2015, 15:01 2
Afina, выучи с++ и переведи. И просьба - именуй темы по-разному.
0
14.05.2015, 15:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.05.2015, 15:01
Помогаю со студенческими работами здесь

Перевести С++ в Паскаль
Здравствуйте, нужна помощь в переводе С++ на язык Паскаля) спасибо заранее #include &lt;iostream&gt;...

Перевести С ++ в паскаль
Нужна помощь. Помогите) Перевести на паскаль! #include &lt;iostream&gt; #include &lt;stdio.h&gt; #include...

Перевести из С в Паскаль
Заранее спасибо /*Заменить в строке последовательности одинаковых символов на число,...

Перевести с Паскаль на с++

Перевести с С на Паскаль
#include &lt;stdio.h&gt; #define N 4 void swap(int *a, int *b) { int t; t=*a; *a=*b;

Перевести С++ в Паскаль
Всем здравствуйте, нужна помощь в переводе на язык Паскаля) #include &lt;iostream&gt; #include...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru