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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Сортировка одномрного массива http://www.cyberforum.ru/cpp-beginners/thread105494.html
Не могу понять как делать: Найти сумму трех наибольших нечетных, лежащих в интервале , чисел массива. Мои наработки↓...
C++ Удаление записи из файла Вот код который добавляет 10 записей в файл..(не компилил, но работать он должен) #include <iostream> #include <fstream> using namespace std; struct Num { int i; char number; http://www.cyberforum.ru/cpp-beginners/thread105486.html
C++ Координаты пересечения 2-х прямых.
Даны числа A1, B1, C1, A2, B2, C2. Напечатать координаты пересечения прямых A1x+B1y=C1 и A2x+B2y=C2 и сообщить, что эти прямые совпадают, не пересекаются или вовсе не существуют, при выполнении этих...
Динамическая строка в классе C++
Знаю, вопрос наверное тупой, но я недавно c++ начал учить. Столкнулся с одной проблемой. Думаю будет лучше, если покажу наглядно. #include<stdlib.h> #include<conio.h> #include<stdio.h>...
C++ Найти в массиве, заполненном случайными числами, минимальный элемент http://www.cyberforum.ru/cpp-beginners/thread105446.html
дан масив одномерный заполненый рандомом и найти в етом масиве минимальный елемент. заранее благодарен..
C++ Одномерный массив Найти сумму кратных 4 чисел массива? Посмотрите. Тут есть ошибки? //--------------------------------------------------------------------------- #include <vcl.h> #include <iostream.h>... подробнее

Показать сообщение отдельно
Lookatme
0 / 0 / 0
Регистрация: 15.03.2010
Сообщений: 7

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

16.03.2010, 21:55. Просмотров 500. Ответов 2
Метки (Все метки)

Помогите, пожалуйста!!!
У меня есть программа на Паскале , а нужно ее переписать, чтобы она была на С++ (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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru