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

Перевод с pascal на c++ - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Вывод массива char без лишних символов http://www.cyberforum.ru/cpp-beginners/thread1071206.html
В коде имеется массив, объявленный: char text; далее в коде следует вывести значение массива на данный момент cout << text << " = " << n << "!" << endl; и выводится подобное что показано на картинке т.е. значения массива в "пустых" ячейках принимают вид "кракозябр", ну а значения в виде чисел выводятся нормально Каким образом можно вывести массив text, выводя только те ячейки, в которых...
C++ Вычислить сумму положительных элементов матрицы А (4,5), разделить на нее каждый элемент. Полученную матрицу вывести помогите курсовую сделать http://www.cyberforum.ru/cpp-beginners/thread1071204.html
Напишите функцию, которая выводит его элементы в следующем порядке: C++
15. Дан массив A размера N. Напишите функцию, которая выводит его элементы в следующем порядке: A1, AN, A2, AN–1, A3, AN–2, … .
C++ Напишите функцию, возвращающую сумму элементов массива
18. Дан массив размера N и целые числа K и L (0 ≤ K ≤ L ≤ N-1). Напишите функцию, возвращающую сумму элементов массива с номерами от K до L включительно.
C++ массив A ненулевых целых чисел размера N http://www.cyberforum.ru/cpp-beginners/thread1071193.html
20, Функция получает массив A ненулевых целых чисел размера N. Она возвращает значение первого из тех его элементов AK, которые удовлетворяют неравенству AK < AN-1. Если таких элементов нет, то функция возвращает 0.
C++ циклический сдвиг значения элементов массива 2. Напишите функцию, циклически сдвигающую значения элементов массива данных типа float в направлении конца. Количество элементов массива передаётся в функцию как параметр. подробнее

Показать сообщение отдельно
salaikus
0 / 0 / 0
Регистрация: 08.12.2013
Сообщений: 14
14.01.2014, 16:53     Перевод с pascal на c++
привет всем , помогите ПОЖАЛУЙСТА перевести с pascal на c++.
пытался перевести, но с++ сложноват , на изучение языка времени катастрофически не хватает, еще до конца с pascal не закончил.
программа на pascal:
Кликните здесь для просмотра всего текста

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
38
39
40
41
42
43
44
 var
 i,kolzagl,kolmal,j:integer; // kolzagl,kolmal - количество заглавных и маленьких букв
 s,s1:string;
begin
 writeln('Vvedite text:');
 readln(s);
kolzagl:=0;kolmal:=0;
 for i:=length(s) downto 1 do
  begin
   if  s[i] in ['A'..'Z','А'..'Я','Ё'] then kolzagl:=kolzagl+1;
   if  s[i] in ['a'..'z','а'..'я','ё'] then  kolmal:=kolmal+1;
  end;
 writeln('kol.propisnih:   ',kolzagl,'        kol.strochnih:   ',kolmal);
 
 
 if (kolmal<kolzagl)then
  begin
    for i:=length(s) downto 1 do //идем с конца строки
      begin
           if   s[i] in ['A'..'Z','А'..'Я','Ё'] then
         begin
          s1:=s1+'('+ inttostr(kolzagl)+')'; //формируем строку состоящую из скобок и номера прописной буквы,причем номером
          //считается ее номер как прописной буквы
          insert(s1,s,i+1); //вставляем  эту строку с номером буквы после самой буквы
          delete(s1,1,length(s));
          kolzagl:=kolzagl-1;//следующий номер строчной буквы будет на 1 меньше ( меньше,потому что идем с конца строки)
         end;
      end;
  end
 
 else
 for i:=length(s) downto 1 do
  begin
   if  s[i] in ['A'..'Z','А'..'Я','Ё'] then  
    begin
     j:=ord(s[i])+32; //прибавляем к коду символа 32 ,чтобы сделать букву строчной
      delete(s,i,1);    
     insert(chr(j),s,i); //вставляем ту же букву,только маленькую
    end;
      end;
 
 writeln(s);
 
end.

Текст задания: Дан текст.Определить (строчных или прописных) букв в нем больше, и преобразовать следующим образом ;если больше прописных чем строчных, то после каждой прописной буквы записать её номер в скобочках; в противном случае все буквы преобразовать в строчные.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
 
Текущее время: 07:05. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru