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

из 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...
Обработка целочисленных массивов C++
Помогите с задачами кто может, если не трудно: 1) Заданы два целочисленных массива Y(k) и Z(m). Определить в каждом массиве среднее арифметическое простых двузначных чисел. Если таких чисел в...
C++ Построить последовательность, используя рекуррентное соотношение http://www.cyberforum.ru/cpp-beginners/thread1121735.html
Здравствуйте Требуется помощь в C++ Подскажите, как реализовать такую вот вещь: Построить последовательность заданного количества элементов, используя следующее рекуррентное соотношение a(i) =...
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. Просмотров 318. Ответов 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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru