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

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
isys08
0 / 0 / 0
Регистрация: 15.11.2010
Сообщений: 8
#1

Перевести код программы с Паскаля на C - C++

07.04.2011, 15:27. Просмотров 395. Ответов 0
Метки нет (Все метки)

помогите пожалуйста перевести код программы с паскаля на С
точнее первое задание, где нужно подсчитать количество подряд идущих пробелов

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
program lr6;
Uses crt;
const
  setStr = ['a'..'z', 'а'..'я'];
Var
 cStr, i: Integer;
  s: String;
  y: Char;
Max,C :Integer;
begin
gotoxy (2,2); write('Лабораторная работа №6');
gotoxy (2,3);
write('Тема: Строки');
gotoxy (2,4); write('Выполнил: студент группы В1-08');
gotoxy (2,5); write('Николаев Константин');
gotoxy (2,7); write('Нажмите любую клавишу');
readln;
gotoxy (2,8); write('Условие 1');
gotoxy (2,9); write('Определить наибольшее количество идущих подряд пробелов');
gotoxy (2,10);Write('Введите строку с пробелами = ');
Read(S);
For i:=1 to Length(S) Do
Begin
While S[i+C] = ' ' Do C:=C+1;
If C>Max Then Max:=C;
C:=0;
End;
gotoxy (2,11);Writeln('Подряд идущих пробелов ',Max);
gotoxy (2,13); write('Условие 2');                                 //ЭТО УСЛОВИЕ ПЕРЕВЕДЕНО
gotoxy (2,14); write('Дана строка, подсчитать количество содержащихся в ней строчных букв.');
gotoxy (2,16);Write('Введите строку : '); ReadLn(s);
cStr := 0;
     for i := 1 to Length(s) do begin
     y := s [ i ];
     if y in setStr then Inc(cStr);
  end;
gotoxy (2,17);Writeln( 'Строчных букв в строке = ', cStr);
end.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
07.04.2011, 15:27
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Перевести код программы с Паскаля на C (C++):

Перевести код программы Паскаля в код С++ - C++
В массиве Х (15) найти произведение и количество элементов расположенных между наибольшими и наименьшими элементами кто может перевести...

Перевести код с Паскаля на С++ - C++
Фирме принадлежат два магазина. Известна стоимость товаров, проданных в каждом магазине за каждый день в июле и августе, которая хранится в...

Перевести код с паскаля на C++ - C++
По заданному натуральному числу N необходимо вычислить количество натуральных чисел, которые являются делителями N! (факториала числа N). ...

Перевести код с Паскаля на Си++ - C++
Добрый всем день! Будьте добры, перепишете пожалуйста данную программу из паскаля на си++. Буду очень благодарен. Я сам Паскаль не знаю....

Перевести код паскаля в с++ - C++
Нужно перевести данный код паскаля в с++. Задание: Найти в строке все заданные последовательности символов и заменить их другой...

Перевести код из Паскаля в Си++ - C++
Переведите пожалуйста из Паскаля в Си++, кому не сложно.

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.04.2011, 15:27
Привет! Вот еще темы с ответами:

Перевести код из Паскаля в С++ - C++
Помогите, пожалуйста перевести в с++ uses crt; const nmax=20; var a:array of integer; n,m,i,j,k:byte; s,x:integer; ...

Перевести код с Паскаля на С++ - C++
Program proga; uses crt; Type gostinica= record FIO:string; nomer:integer; cena:integer; kolvo:integer; itogo: integer; ...

Необходимо перевести код с паскаля на С++ - C++
const n=5; var a: array of integer; i,j,sum: integer; begin randomize; writeln('Матрица:'); for i:=1 to n do ...

перевести небольшой код с паскаля на с - C++
помогите плз перевести небольшой код с pascal на С++ Program String41; var Dano:string; // вводимая строка slova:integer; //...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
Ответ Создать тему
Опции темы

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