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

Перевести код с Pascal - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Определить координаты вершин прямоугольного треугольника http://www.cyberforum.ru/cpp-beginners/thread751786.html
определить координаты вершин прямоугольника наименьшего периметра содержащего треугольник координаты вершин котрого (x1,y1), (x2,y2), (x3,y3) не могу математически даже вникнуть в условие....
C++ Сравнение и замена символов У меня есть файл с которого я считываю информацию массив. Если встречается определенный символ то мне нужно заменить его на другой. И самой главное мне нужно уже обработанный текст со всеми заменами... http://www.cyberforum.ru/cpp-beginners/thread751778.html
Определить общее количество осадков за этот год C++
Занести из файла в массив сведения о количестве осадков, выпавших за каждый из 12 месяцев одного года. Определить общее количество осадков за этот год, среднемесячное количество осадков, количество...
Ввести размер массива с клавиатуры и передать этот размер в конструктор C++
Я создал массив объектов. И я хочу ввести размер этого массива с клавиатуры, и передать этот размер в конструктор, как мне это сделать? #include <iostream> #include <conio.h> using namespace...
C++ Объяснить алгоритм просто перебора http://www.cyberforum.ru/cpp-beginners/thread751751.html
доброго времени суток! мой вопрос, наверное, покажется Вам очень глупым, но очень нужна ваша помощь! задачка не сложная:У Вас есть N камней с массами W1, W2 , … WN. Требуется разложить камни на 2...
C++ Написать программу, выводящую сумму и разность двух введенных чисел Написать программу, выводящую сумму и разность двух введенных чисел. Основная программа запрашивает два числа и передает их в функцию. Функция реализует вычисления и вывод на экран.Написать программу... подробнее

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

Перевести код с Pascal - C++

03.01.2013, 14:31. Просмотров 278. Ответов 2
Метки (Все метки)

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
uses crt;
const nmax=20;
var a:array[1..nmax] of integer;
    n,i,d:integer;
    f:boolean;
begin
repeat
write('Размер массива до ',nmax,' n=');
read(n);
until n in [1..nmax];
writeln('Введите в массив разные числа для проверки на арифметическую прогрессию:');
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
f:=true;
i:=2;
while(i<n) and f do
if a[i]-a[i-1]<>a[i+1]-a[i] then f:=false
else i:=i+1;
if f then write('Это арифметическая прогрессия, ее разность=',a[2]-a[1])
else write(0);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru