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

Нужно программу на Паскале переделать в программу на С++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Найти все n-значные числа Армстронга для данного n<9 http://www.cyberforum.ru/cpp-beginners/thread105425.html
Натуральное n-значное число называется числом Армстронга, если оно равно сумме n-х степеней своих цифр. Найти все n-значные числа Армстронга для данного n<9, каждое такое число вывести с новой строки. Например, 153=13+53+33. Помогите друзья, горю, завтра сдавать, чет не как не идет, буду всю ночь думать. Помогите. Пишите до 6-ти утра:) Добавлено через 52 минуты На языке С.
C++ Работа с файловой системой Помогите решить задачу по Системному Программному Обеспечению пишу сдесь потому что мне кажется что это не для начинающих уже:) вобщем условие: приложение содержит проводник выбора дисков/директорий/файлов. При выборе папки, файла или диска должна появлятся информации об их размере(для диска - свободное/занятое место) заранее огромное спасибо http://www.cyberforum.ru/cpp-beginners/thread105390.html
C++ Определить оценку, которая пойдет в зачет каждому спортсмену
Выступление каждого спортсмена независимо оценивается несколькими судьями, затем из всей совокупности оценок удаляются наиболее высокая и наиболее низкая, а для оставшихся оценок вычисляется среднее арифметическое, которое и идёт в зачет спортсмену. Если наиболее высокую оценку выставило несколько судей, то из совокупности оценок удаляется только одна такая оценка; аналогично поступают с наиболее...
C++ Перегрузка операторов и функций. Бинарное дерево
Помогите реализовать и протестировать бинарное дерево.Класс должен иметь интерфейс АТД.(Че это такое даже незнаю)для удаления , поиска и добавления элементов, и также содержать следующие функции членов: Перегруженные конструкторы Копирование диструктор перегрузка операций добавление эл. удаление эл индексирование отношение равенства обьединение и реализация
C++ ComboBox + Button http://www.cyberforum.ru/cpp-beginners/thread105058.html
На форме имеется ComboBOx с 7 пунктами и две кнопки "Да" и "Нет" При последовательном ответе на все 7 вопросв кнопкой "Да" должно появится сообщение обезьяна съела банан,а если хотябы раз был ответ "нет" то все начинается по новой!
C++ Вычисление площади криволинейной трапеции Ребят,помогите с курсачём.Договорился с одним из участников форума,он сделал курсовую и пропал,а препод требует описание алгоритма.Помогите пожалуйста кому не лень. /*вычислить с точностью Е площадь криволинейной трапеции ограниченной осью , Ох, прямыми х=а х=B , и кривой y=f(x)=(1-0,25sin^2tx)^1\2 . параметр "t"- корень уравнения t^3-0,39t^2-10,5t+11=0, принад. отрезку и отрезку с точ. Е... подробнее

Показать сообщение отдельно
Lookatme
0 / 0 / 0
Регистрация: 15.03.2010
Сообщений: 7
16.03.2010, 21:55     Нужно программу на Паскале переделать в программу на С++
Помогите, пожалуйста!!!
У меня есть программа на Паскале , а нужно ее переписать, чтобы она была на С++ (windows консоль).

Текст программы на Паскале:
Цитата Сообщение от Dnnn Посмотреть сообщение
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
var i, i1, i2 ,N, z: integer; 
     q,delta,X,Y,a,b,k,Y1,X1: real; 
     M, M1: array[1..2, 1..20] of real; {2 stroki - 1- X, 2 - Y }
begin 
 write('Input tha count of dots N='); readln(N);
  for i:=1 to N do 
  begin 
      write('Input dot coordinates ',i,' X='); readln(M[1,i]);
      write('Input dot coordinates ',i,' Y=');readln(M[2,i]);
  end; 
 
  write('Input the aperture value q='); readln(q);
 
  i1 := 1; i2 := 3;  
  {в массив заносим первую точку}
  z:=1; M1[1,1]=M[1, 1] ; M1[2,1]=M[2, 1];
 
  while (i1<=N-2) and (i2<=N) do 
  begin 
       a: = (M[2,i2]-M[2,i1])/(M[1,i2]-M[1,i1]);
       b: = M[2,i2]-a*M[1,i2];
       writeln('a=',a:10:3,' ; b=',b:10:3);
       Y1=a*M[1, i2-1]+b;
       delta=abs(M[2, i2-1]-Y1);
       if (delta>q) then 
         begin 
           writeln(' Y= ',M[2, i2-1]:10:3, ' ; Y1=', y1:10:3, '; delta=', delta:10:3,' ne szimaetsya');
           i1 :=i1+1; i2=i1+2;
           z=z+1;
           M1[1,z]=M[1, i2-1] ;
           M1[2,z]=M[2, i2-1];
         end
       else
         begin  
           writeln('Y=', M[2, i2-1]:10:3,'; Y1=', Y1:10:3,'; delta=',delta:10:3); { здесь как раз и выводятся не вошедшие в сжатый массив точки }
           i2=i2+1;
         end;
  end;   
  {записываем в конец массива посл точку }
  z := z+1; M1[1,z]=M[1, N] ; M1[2,z]=M[2, N];
 
  writeln('Array M*:' );
  for i := 1 to z do  
     writeln(' X[',i, ']=', m1[1,i]:10:3,'; Y[',i,']=', M1[2,i]:10:3);
 
  writeln('Коэффициент сжатия k = ', N/Z);
  readln; {nazat Enter}
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 23:33. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru