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

Перевести из Pascal в C++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Undefined symbol немогу запустить программу http://www.cyberforum.ru/cpp-beginners/thread584786.html
у меня не получается правильно обявить переменные //--------------------------------------------------------------------------- #include <vcl.h> #pragma hdrstop #include "Unit1.h" #include <math.h> #include <conio.h> #include <iostream.h>
C++ Удалить комментарии из файлов С и С++ Создать функцию удаляющую комментарии из файлов С и С++. Функция принимает в качестве параметра имя входного и выходного файлов и удаляет из файла все части строки, следующие за символами «//», и все куски теста заключенные в символы «/*…*/», результат записывается в выходной файл. Функция должна генерировать exception, если файл не существует или если комментарии открываются (есть «/*»), но не... http://www.cyberforum.ru/cpp-beginners/thread584776.html
C++ Интегралы,последовательность
Здравствуйте, помогите пожалуйста написать код, с++ не знаю вообще, необходимо по учебе. Задача 1.Имеется последовательность произвольных целых ненулевых чисел, в интервале от -3200 до + 3200, завершающаяся числом 0. Последовательность может содержать повторяющиеся числа. Максимальное количество элементов в последовательности неизвестно, поэтому последовательность необходимо поместить в...
C++ Функции, сжатие слов
Описать функцию CompressStr(S) строкового типа, выполняющую сжатие строки S по следующему правилу: каждая подстрока строки S, состоящая из более чем четырех одинаковых символов C, заменяется текстом вида «С{K}», где K — количество символов C (предполагается, что строка S не содержит фигурных скобок «{» и «}»). Например, для строки S = «bbbccccce» функция вернет строку «bbbc{5}e». С помощью...
C++ в чем ошибка? http://www.cyberforum.ru/cpp-beginners/thread584760.html
#include "stdafx.h" #include <iostream> #include <conio.h> #include <stdlib.h> int main() { int a; int x, y, i, j, c; int b;
C++ Как это здэлать В С++ я пока полний ноль но как би не так мне очень нужна помащь з 3 заданиями: 1.Пачему нельзя файлам проекта и модуля задавать однаковиэ имена. 2.MFC. Как они применяютса, и эсли можна то навести пример для ясности. 3.Узнать общее количество одинакових цифр в масиве з 5 чисел. Это нада здэлать з помощю оператора if. Эсли ктота сможет написать к этой задаче код буду очень признателен подробнее

Показать сообщение отдельно
Dark_Apple
 Аватар для Dark_Apple
0 / 0 / 0
Регистрация: 29.02.2012
Сообщений: 8
23.05.2012, 22:39     Перевести из Pascal в C++
Ребят, помогите пожалуйста перевести программы на С++!

Задача №1 (Схема горнера)
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program labblablabla;
var
 x,s,k:real;
 i,n:integer;
begin
  s:=0;
  Write('Введите x= ');
  Readln(x);
  Write('Введите n= ');
  readln(n);
   k:=exp(n*ln(2));
   For i:=n downto 0 do
    begin
      s:=s*x+k;
      k:=k/2;
    end;
   writeln(s:5:2);
 
end.
Задача №2 (дан вещественный массив. Нужно найти самую длинную последовательность положительных чисел не прерываемых ни 0 ни отрицательным числом. и вывести эту последовательность на экран.

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
program posledn;
Var
  a:array[1..50] of integer;
  b:array[1..50] of integer;
  i,n,pol,max,j,k:integer;
BEGIN
  Writeln('ўўҐ¤ЁвҐ n: ');
  Readln(n);
  Writeln('ўўҐ¤ЁвҐ н«Ґ¬Ґ*вл ¬*ббЁў*: ');
  For i:= 1 to n do
  begin
   Read(a[i]);
  end;
  Writeln;
  pol:=0;
  max:=1;
   For i:=1 to n do
   begin
     if (a[i]>0) then
      begin
       pol:=pol+1;
      end
     else
      begin
       if pol>max then
        begin
         max:=pol;
         pol:=0;
         For k:= 0 to max-1 do
          begin
           b[k+1]:=a[i-max+k];
          end;
        end;
      end;
     end;
  Writeln(' максимальное количество положительных элементов:',max);
  Writeln('макс. строка пол элементов:');
  For i:=1 to max do
  Write(b[i],' ');
End.
Обе задачи работают и на паскале уже сданы. прошу...переведите их на С++
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 14:54. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru