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

convert pascal to c++ - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Какие технологии актуальны для С\С++ программиста http://www.cyberforum.ru/cpp/thread139574.html
Доброго времени суток. Какие технологии сейчас наиболее востребованы и перспективны для С++ программиста? Например стоит-ли изучать COM, CORBA. Будут ли востребованы знания WDK если не работать...
C++ Циклический сдвиг элементов СПИСКА Не получается циклический сдвиг элементов списка....Помогите пожалуйста! #include <iostream> #include <stdlib.h> using namespace std; int main() { struct lst { int a; http://www.cyberforum.ru/cpp/thread139289.html
Работа со звуком, измерение длительностей бит C++
7 числа надо сдать курсач, понятное дело кроме пить курить и писать hello word больше делать ничего неумею, суть задачи проста. Имеется запись работы компаратора, который подключался к звуковой...
Юнит-тесты для C++ C++
Уважаемые дамы и господа! Интересует, пользовались вы какими-нибудь фреймворками для юнит-тестирования вашего C++ кода, если пользовались, то какими и каковы ваши впечатления? И еще хотелось бы...
C++ Сети Петри http://www.cyberforum.ru/cpp/thread138202.html
Уважаемые программисты. Разработайте пожалуйста любую программу моделирования динамических систем методом сетей Петри.
C++ Создание пунктов в ComboBox Как в ComboBox добавить пункты из которых выбирать. И как сделать чтобы при выборе той или иной строки из ComboBox выполнялось некое действие, например в массив записывался номер выбранного пункта.... подробнее

Показать сообщение отдельно
DjumShuT
Сообщений: n/a

convert pascal to c++ - C++

02.06.2010, 15:14. Просмотров 1598. Ответов 0
Метки (Все метки)

ребята кто может помочь........мне надо конвертировать c PASCAL B 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
uses crt;
  type list=array[1..10] of string;
var    G:text;
        i,j,n:integer;
        a:list;
        str:string;
 
procedure vvod;
  begin
  write('Количество слов :  '); readln(n);
  writeln('Введите слова: ');
    for i:=1 to n do
    readln(a[i]);
  end;
 
procedure modification(s1:string; var s2:string);
begin
  s2:='';
  for j:=length(s1) downto 1 do s2:=s2+s1[j];
end;
 
begin
clrscr;
vvod;
assign(G,'exit.txt');
rewrite(G);
for i:=1 to n do begin
                  modification(a[i],str);
                  writeln(G,str);
                end;
close(G);
end.


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