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

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

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Структура класса. Перегрузка функций. http://www.cyberforum.ru/cpp-beginners/thread271817.html
Ребята, помогите с таким заданием: Консольное приложение, сделать следующее: 1. Класс "нота": название, октава, длительность звучания. 2. Потомки: звук(частота) и изображение(координаты на экране...
C++ Разработать и протестировать класс "массив" Написать программу. Разработать и протестировать класс "массив", представляющая массив из 10 элементов типа double класс должен владеть методами: доступа к элементам массива; визначеня количества... http://www.cyberforum.ru/cpp-beginners/thread271804.html
Разработка класса C++
Разработать класс описывающий множество точек на плоскости, определить для экземпляров класса операцию объединения множество и операция пересечение множеств. Реализовать метод возвращающий периметр...
C++ массивы
помогите решить задачку.
C++ Длинные числа в С++ http://www.cyberforum.ru/cpp-beginners/thread271787.html
Я так понемаю самое большое число long long тоесть до милиарда???? а если больше! 100000000000000000 такое(целое) как сни работать +1 или *2 ?????
C++ Задан числовой массив a[50]... Помогите решить Задан числовой массив А(50). Определить, каких элементов больше в этом массиве: положительных или отрицательных. подробнее

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

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

07.04.2011, 15:27. Просмотров 394. Ответов 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
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru