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

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

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

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

12.01.2011, 11:34. Просмотров 381. Ответов 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++
uses crt; var a:array of integer; m,n,i,j,k,m1,n1,q1,q2:integer; c:integer; begin clrscr; randomize; k:=0; ...

Перевести с Паскаля на C++ - C++
как заменить этот же код на С++ ?? const nmax = 100; type arr = array of real; var a:arr; i,j,n,imax,jmax:integer; ...

Перевести с Паскаля на С++ - C++
Здравствуйте! Можете помочь, мне надо перевести код с Паскаля на С++ (код паскаля на фото). Вот что получилось у меня. Но код не...

Перевести из паскаля в С - C++
Условие: Постройте массив p=2,p,...,p, где p=2, p=3, ..., p - n-е простое число uses crt; const maxn = 100; var a: array of...

Перевести из паскаля в с++ - C++
var a, i, b: integer; begin read(a); b := 0; for i := 1 to a do if a mod i = 0 then b := b + 1; ...

Перевести с Паскаля на С++ - C++
uses crt; var n,k:byte; p,s:longint; begin clrscr; write('Введите произведение нескольких первых нечетных натуральных чисел...

После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
sandye51
программист С++
682 / 584 / 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] рациональных чисел.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2011, 16:06     Надо перевести текст с паскаля в С++
Еще ссылки по теме:

перевести в си++ из паскаля - C++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...

Перевести с паскаля - C++
program maximum; var a: array of integer; // массив масс предметов max: integer; // масса самого тяжелого предмета i: integer; //...

Перевести с Паскаля на C++ - C++
надо перевести с паскаля на c++ var i,adrs:integer; a:arrayof integer; begin //... for i:=1 to 15 do if a=0 then ...

Перевести с паскаля на Си++ - C++
вообщем программа на паскале нужно перевести на с++ суть проги поменять местами главную диагональ и побочную program pr1; var...


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

Или воспользуйтесь поиском по форуму:
sandye51
программист С++
682 / 584 / 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     Надо перевести текст с паскаля в С++
Ответ Создать тему
Опции темы

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