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

из Pascal в C++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Реально ли VBto Converter конвертирует код в C++ http://www.cyberforum.ru/cpp-beginners/thread1121848.html
Стоил ли покупать программу VBto Converter оф. сайт , сможет она сконрветирувать программу из VB 6.0 на C++ или это развод ?
C++ Обработка целочисленных массивов Помогите с задачами кто может, если не трудно: 1) Заданы два целочисленных массива Y(k) и Z(m). Определить в каждом массиве среднее арифметическое простых двузначных чисел. Если таких чисел в массиве больше двух, то удалить их из соответствующего массива. В программе написать функции: вычисления среднего арифметического простых двузначных чисел в массиве и их количества, удаления элемента. http://www.cyberforum.ru/cpp-beginners/thread1121802.html
C++ Определить количество слов в тексте; вывести на экран десятое слово. Объяснить готовую программу
Добрый день, уважаемые форумчане. Дана задача: С помощью текстового редактора Блокнот создать файл, содержащий текст, длина которого не превышает 1000 символов (длина строки не превышает 70 символов). Имя файла должно иметь расширение txt. Написать программу, которая выводит содержимое файла на экран и выполняет действия в соответствии с вариантом. И, допустим, мой вариант: Определить...
Обработка целочисленных массивов C++
Помогите с задачами кто может, если не трудно: 1) Заданы два целочисленных массива Y(k) и Z(m). Определить в каждом массиве среднее арифметическое простых двузначных чисел. Если таких чисел в массиве больше двух, то удалить их из соответствующего массива. В программе написать функции: вычисления среднего арифметического простых двузначных чисел в массиве и их количества, удаления элемента. 2)...
C++ Построить последовательность, используя рекуррентное соотношение http://www.cyberforum.ru/cpp-beginners/thread1121735.html
Здравствуйте Требуется помощь в C++ Подскажите, как реализовать такую вот вещь: Построить последовательность заданного количества элементов, используя следующее рекуррентное соотношение a(i) = 2a(i-1) + a(i-2), i=0…n, a0=2, a1=2. Выбрать 7 последних чисел из этой последовательности и построить для них все возможные перестановки. ( в скобках индекс ) Как я понимаю, число n нужно вводить с...
C++ Объясните ситуацию с integer, float и double. Выводится число на единицу меньше положенного Здравствуйте. Хотел бы разузнать, в чем дело в следующей ситуации: void excs_fifteen() { system("cls"); cout<<"-> Exercise 15\n\n"; int n; подробнее

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

из Pascal в C++ - C++

17.03.2014, 16:34. Просмотров 253. Ответов 1
Метки (Все метки)

Помогите, пожалуйста, перевести небольшой код из Pascal в C++, си просто недавно изучать начал, пока испытываю трудности, а времени маловато осталось) Заранее благодарен
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
program ferz;
uses crt;
var h,v:array[1..8]of byte;
    ch:char; k,i:integer;
 
begin
 clrscr;
 writeln('Vvedite koord. ferzei:');
 for i:=1 to 3 do
 begin
  write(i,': ');
  readln(ch,h[i]);
  v[i]:=ord(upcase(ch))-64;
 end;
 
 k:=0;
 if (v[1]=v[2]) or (h[1]=h[2]) or (abs(h[1]-h[2])=abs(v[1]-v[2])) then
 begin;
  writeln('Ugrozhauyt 1 i 2 ferzi');
  inc(k);
 end;
 
 if (v[1]=v[3]) or (h[1]=h[3]) or (abs(h[1]-h[3])=abs(v[1]-v[3])) then
 begin;
  writeln('Ugrozhauyt 1 i 3 ferzi');
  inc(k);
 end;
 
 if (v[3]=v[2]) or (h[3]=h[2]) or (abs(h[2]-h[3])=abs(v[2]-v[3])) then
 begin;
  writeln('Ugrozhauyt 2 i 3 ferzi');
  inc(k);
 end;
 
 if k=0 then writeln('Nikakie ferzi drug drugu ne ugrozhauyt');
 readln;
end.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru