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

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

Восстановить пароль Регистрация
Другие темы раздела
C++ Кубические уравнения http://www.cyberforum.ru/cpp-beginners/thread227592.html
Люди...помогите решить задачку... нужно найти все целочисленные решения уравнения ax^3+bx^2+cx+d=0, где a,b,c,d вводятся с клавиатуры... заранее спасибо!=)
C++ Запись русских букв в массив! Приветствую Вас друзья! Кто знает как грамотно передать с клавиатуры русские буквы в массив типа char, когда заношу на экране выходит правильно а в массив записывается не понятно что. Заранее благодарю! http://www.cyberforum.ru/cpp-beginners/thread227580.html
C++ Попадает ли точка в область
Помогите написать скрипт на С, который будет в начале спрашивать координаты точки по y и x, а затем говорить, попала точка в область или нет, сёня зачёт а нечего не понимаю( вот на флеше яб сделал) Заранее спасибо...
C++ Графика на Borland C++
Программа затравки многоугольника, дырка должна остаться незакрашенной. Добавлено через 19 минут // Извиняюсь, ерунда получилась в первом сообщении. Вот суть. Подскажите, в чем ошибки в реализации программы отсечения отрезков, т.к. программа работает корректно только с прямоугольниками. С другими многоугольниками остаются лишние неотсеченные куски. и как это исправить? #include...
C++ Естественные слияния! http://www.cyberforum.ru/cpp-beginners/thread227536.html
Существует файл txt. Строки в нем нужно расположить по алфавиту. Алфавитную сортировку по возрастанию с помощью естественных слияний.
C++ Дайте совет по изучению программирования читал пару книжек по С++ но не до конца.Сейчас читаю Прата, вроде понимаю все что пишут, но есть упражнения после 11 глав которые зделать не могу, хотя глави запомнаю.Так же как и с++ идентично изучал сШарп.Вобшем недоучка. Проблема в том что иногда не хватает терпения бросаю посредине, через какоето время снова начинаю сначала, захожу не много дальше и снова бросаю, кидаюсь к другому(типа... подробнее

Показать сообщение отдельно
3aP9
0 / 0 / 0
Регистрация: 25.12.2010
Сообщений: 12
12.01.2011, 11:34     Надо перевести текст с паскаля в С++
Дали программу, а я в паскали совершенно не шарю, помогите перевести в С++
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 23:43. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru