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

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

Войти
Регистрация
Восстановить пароль
 
mrsniper
2 / 2 / 0
Регистрация: 13.11.2012
Сообщений: 15
#1

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

26.11.2012, 19:38. Просмотров 199. Ответов 0
Метки нет (Все метки)

Перевести из Delphi в C++. Заранее спасибо.

Условие:
Вводится последовательность вещественных чисел, оканчивающаяся нулём, и состоящая более чем из одного ненулевого элемента. Определить, образуют ли эта последовательность арифметическую прогрессию

Код:

Delphi
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
program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
var S:array of Integer;
    a:Integer;
    b:Boolean;
begin
Writeln('вводите последовательность, чтобы закончить введите "0"');
  repeat
  Readln(a);
  if a=0 then break;
  if a in [1..9] then
   begin
   SetLength(S,Length(S)+1);
   S[Length(S)-1]:=a;
   end
  else
   Writeln('надо число!');
  until false;
b:=true;
for a:=0 to Length(S)-2 do
 if S[a]>S[a+1] then
  begin
  b:=false;
  break;
  end;
if b then Writeln('последовательность возрастающая!')
else Writeln('нет');
Writeln('press any key');
 Комментарий модератора 
Не забывайте выделять код тегами.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.11.2012, 19:38
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести из Delphi в C++ (C++):

Перевести с DELPHI в С++ - C++
Кто-нибудь сможет помочь переписать код с delphi на с++? И вообще возможно ли это?

Перевести с Delphi на C/C++. - C++
program zadacha5; {$APPTYPE CONSOLE} uses SysUtils; var a,b,s,k,v :real ; begin

Перевести функцию с Delphi на C++ - C++
Ребята, может кто знает хотя бы примерно C или C++ , не понимаю код делфи, а функция на нём. type TSingleArray = Array of Single; ...

Перевести код программы из Delphi в C++ - C++
Добрый день! Стоит задача транслировать код из Delphi в C++. Среда Embarcodero. Вроде бы ничего сложного, точки на стрелки меняй себе и...

Перевести простую программку с Delphi - C++
Имеется программа на Delphi. Нужно перевести на C++ procedure TForm1.Button1Click(Sender: TObject); var s, sum, i, j, n: integer; p:...

Перевести синтаксис программы с Delphi в C++, очень нужно - C++
Даны два текстовых файла f1 и f2. Файл f1 содержит произвольный текст. Слова в тексте разделены пробелами и знаками препинания. Файл f2...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.11.2012, 19:38
Привет! Вот еще темы с ответами:

Перевести с Delphi на C++. Ускорение умножения двоичных чисел с анализом двух разрядов - C++
Zdrastvuite dorogie programmisty... esli est vozmojnost perevidite na yazyk C++ Добавлено через 1 минуту unit lab3; interface...

Перевести с Delphi на C++. Найти элементы последовательности, представимые в виде суммы двух квадратов - C++
Всем доброго утра! помогите пожалуйста перевести программу на С++!! Дано натуральное число N. Среди чисел 1, 2, …, N найти те, которые...

Перевести с Delphi - C#
Здравствуйте! Есть код 2-х функций на Delphi, нужно перевести на C#. Очень надо. Заранее спасибо! function Freedom (x, y: Integer;...

Перевести с C# на Delphi - Delphi
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using...


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

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

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