Форум программистов, компьютерный форум, киберфорум
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
Afina
0 / 0 / 0
Регистрация: 12.05.2015
Сообщений: 28
#1

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

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

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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.05.2015, 15:00
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести с паскаль на С++ (C++):

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

Перевести с Паскаль на С++ - C++
Само задание: вводить массив малых латинских букв, и отсортировать в алфавитном порядке program sort; var s:string; i,j:integer; ...

Перевести с Паскаль на С++ - C++
я не знал извините то поможете

Перевести с Паскаль на С++ - C++
uses crt; var s:string; i:integer; a: set of char; begin clrscr; a:=; writeln('vvedite stroku'); readln(s);

перевести с С на паскаль - C++
Переведете пожалуйста код с С++ на паскаль. Очень нужно! Программа должна удалять лишние элементы в последовательности, так, чтобы после...

Перевести код Паскаль на С++ - C++
uses crt,dos; type te=record kal,ves,dl,vis:string; med:string; pr_nom:string; end; var f:file of...

1
Тамика
Котовчанин
917 / 461 / 145
Регистрация: 16.02.2010
Сообщений: 3,239
Записей в блоге: 27
14.05.2015, 15:01 #2
Afina, выучи с++ и переведи. И просьба - именуй темы по-разному.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
14.05.2015, 15:01
Привет! Вот еще темы с ответами:

Перевести программу с языка Паскаль на С++ - C++
Требуется перевести программу задания С4 из ЕГЭ 2012 с языка Паскаль\Бейсик на язык С++. Задание представлено на странице 23 под пунктом...

Подскажите как перевести из с++ в паскаль - C++
Нужно перевести из с++ в борланд паскаль, или paskal.ABC.Net Задача программы такая: В честь успешного окончания первой четверти...

Алгоритм на С/С++ не могу перевести в Паскаль! - C++
Всем привет! Пишу курсовую по дискретной математике, задание написать архиватор текста! В книге Д. Ватолин, А. Ратушняк. - Методы сжатия...

Перевести программу с языка Паскаль в язык С++ - C++
Имееться задача на Pascale: {Метод Ньютона решения нелинейного уравнения} program Newton; uses crt; {модуль управления экраном} ...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.