Форум программистов, компьютерный форум CyberForum.ru

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

Войти
Регистрация
Восстановить пароль
 
3aP9
0 / 0 / 0
Регистрация: 25.12.2010
Сообщений: 12
#1

Надо перевести текст с паскаля в С++ - C++

12.01.2011, 11:34. Просмотров 375. Ответов 3
Метки нет (Все метки)

Дали программу, а я в паскали совершенно не шарю, помогите перевести в С++
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
uses crt;
const nmax=20;
type frac=record
          p,q:integer;
          end;
     mas=array[1..nmax] of frac;
function Ravno(a,b:frac):boolean;
begin
Ravno:=a.p*b.q=a.q*b.p;
end;
function Max(x:mas;n:byte):frac;
var i:byte;
    mx:real;
    c:frac;
begin
c.p:=x[1].p;
c.q:=x[1].q;
mx:=x[1].p/x[1].q;
for i:=1 to n do
if x[i].p/x[i].q>mx then
 begin
  c.p:=x[i].p;
  c.q:=x[i].q;
  mx:=x[i].p/x[i].q;
 end;
Max:=c;
end;
var x:mas;
    a,b:frac;
    n,i:byte;
begin
randomize;
writeln('Введите первое число:');
write('Числитель, целое число=');
readln(a.p);
repeat
write('Знаменатель, натуральное число=');
readln(a.q);
until a.q>0;
writeln('Введите второе:');
write('Числитель, целое число=');
readln(b.p);
repeat
write('Знаменатель, натуральное число=');
readln(b.q);
until b.q>0;
write('Равны ли эти числа? ');
writeln(Ravno(a,b));
writeln;
repeat
write('Введите размер массива рациональных чисел до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
for i:=1 to n do
 begin
  x[i].p:=random(19)-9;
  x[i].q:=random(9)+1;
  if x[i].p=0 then write(0,'  ')
  else write(x[i].p,'/',x[i].q,'  ');
 end;
writeln;
a:=Max(x,n);
write('Максимальное значение имеет число ');
if a.p=0 then write(0) else write(a.p,'/',a.q);
end.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.01.2011, 11:34     Надо перевести текст с паскаля в С++
Посмотрите здесь:

C++ перевести на c++ с паскаля
Перевести из паскаля в С C++
Надо перевести программу из ПАСКАЛЯ в СИ C++
C++ Перевести с Паскаля на Си
C++ перевести из паскаля в с++
C++ Перевести с Паскаля на С++
C++ Перевести с Паскаля на С++
Перевести с паскаля C++
C++ Перевести с Паскаля на С++
C++ Перевести с паскаля на C++
Перевести из паскаля в с++ C++

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

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
sandye51
программист С++
677 / 579 / 39
Регистрация: 19.12.2010
Сообщений: 2,016
12.01.2011, 14:04     Надо перевести текст с паскаля в С++ #2
3aP9, ты напиши лучше что надо сделать, а в то в паскалевский код палить и переделывать как-то не круто
3aP9
0 / 0 / 0
Регистрация: 25.12.2010
Сообщений: 12
12.01.2011, 15:42  [ТС]     Надо перевести текст с паскаля в С++ #3
Да без проблем))
Ввести структуру (с полями числитель и знаменатель) для описания понятия рациональное число. Составить и протестировать функции:
б) МАКС (X, N), которая возвращает наибольшее из массива X[N] рациональных чисел.
sandye51
программист С++
677 / 579 / 39
Регистрация: 19.12.2010
Сообщений: 2,016
12.01.2011, 16:06     Надо перевести текст с паскаля в С++ #4
3aP9, Как написать класс «несократимая дробь» (т.е. дроби 2/4, 4/8 и т.п. есть дробь 1/2)?
Yandex
Объявления
12.01.2011, 16:06     Надо перевести текст с паскаля в С++
Ответ Создать тему
Опции темы

Текущее время: 04:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru