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

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

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

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

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

Надо перевести программу из ПАСКАЛЯ в СИ - 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++
var n:longint; i,c:integer; s:string; A:array of boolean; begin write('Введите N: '); readln(n); str(n,s); ...

Перевести с Паскаля на С++ - C++
Program Proc; procedure MinMax(var A,B:real); var temp:real; begin if (A>B)then begin temp:=A; A:=B; B:=Temp;

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

перевести с Паскаля в с++ - C++
Var s:string; i,k:integer; b:boolean; Begin write('Введите строку: ');readln(s); if Length(s) in then k:=1 else...

3
sandye51
программист С++
685 / 587 / 39
Регистрация: 19.12.2010
Сообщений: 2,016
12.01.2011, 14:04 #2
3aP9, ты напиши лучше что надо сделать, а в то в паскалевский код палить и переделывать как-то не круто
0
3aP9
0 / 0 / 0
Регистрация: 25.12.2010
Сообщений: 12
12.01.2011, 15:42  [ТС] #3
Да без проблем))
Ввести структуру (с полями числитель и знаменатель) для описания понятия рациональное число. Составить и протестировать функции:
б) МАКС (X, N), которая возвращает наибольшее из массива X[N] рациональных чисел.
0
sandye51
программист С++
685 / 587 / 39
Регистрация: 19.12.2010
Сообщений: 2,016
12.01.2011, 16:06 #4
3aP9, Как написать класс «несократимая дробь» (т.е. дроби 2/4, 4/8 и т.п. есть дробь 1/2)?
0
12.01.2011, 16:06
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.01.2011, 16:06
Привет! Вот еще темы с ответами:

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

C Паскаля перевести в С++ - C++
Дана матрица размера M x N. Удалить столбец, содержащий максимальный элемент матрицы. program Matrix64; var ...

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

Перевести из паскаля в C++ - C++
Перегнать из паскаля в C++. Заранее благодарю. условие: Вводится последовательность вещественных чисел, оканчивающаяся нулём, и...


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

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

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