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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Заголовочный файл .h http://www.cyberforum.ru/cpp-beginners/thread709979.html
Здравствуйте уважаемые гуру-программисты! Столкнулся с такой проблемой. Пишу в С++ на линуксе в IDE geany и такая проблема, когда создаю заголовочный файл то почему-то он компилируется как С файл, а...
C++ Перегрузка операции "-" Допустим есть строка: string s1 = "123ab5"; // string - класс Нужно сделать, чтобы после string s2 = s1-3; // число может быть любым s2 стало равно "120ab2" (не -2-10ab3) Подскажите,... http://www.cyberforum.ru/cpp-beginners/thread709973.html
Произведение бесконечного ряда C++
Помогите решить задачу: Нужно найти произведение бесконечного ряда с точностью е = 0,0001
Одномерный массив. Заменить все элементы с отрицательным значением на значение минимального не равного 0 положительного элемента. C++
тема массивы..(( заменить все элементы с отрицательным значением на значение минимального не равного 0 положительного элемента О_О
C++ Формирование нового списка записей http://www.cyberforum.ru/cpp-beginners/thread709956.html
Друзья! Помогите решить задачу на С++. Комп содержит записи состоящие из трех полей: 1) Фамилия 2) Год рождения 3) Соц положение (1 - крестьянин 2 - рабочий 3-интелегент) Прога должна...
C++ Непонятки в ассемблерной вставке В общем, все работает, только х2 не принимает значения с минусом, просто игнорирует минус + не работает команда перехода jg, работает только jl. f=ax2+b #include "stdafx.h" #include <iostream>... подробнее

Показать сообщение отдельно
mrsniper
2 / 2 / 0
Регистрация: 13.11.2012
Сообщений: 15

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

26.11.2012, 19:38. Просмотров 207. Ответов 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');
 Комментарий модератора 
Не забывайте выделять код тегами.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru