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

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

Войти
Регистрация
Восстановить пароль
 
kirich iz Che
 Аватар для kirich iz Che
0 / 0 / 0
Регистрация: 29.03.2010
Сообщений: 25
#1

Строки - C++

29.03.2010, 19:38. Просмотров 354. Ответов 0
Метки нет (Все метки)

Привет, в Си большую проблему вызывают строки, пожалуйста помогите написать программу(((

В введенной строке нужно найти и вывести слово с наибольшим кол-вом букв a b...

Добавлено через 59 минут
Вот на дельфи написал, помогите в Си перевести
Delphi
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
program Project2;
 
{$APPTYPE CONSOLE}
 
uses
SysUtils;
type ss=string[80];
Procedure slovoMAXab(stroka:ss;var slovo:ss);
var i,j,kolbukv,kolbukvMAX:integer;
buf:ss;
begin
buf:='';
kolbukv:;
kolbukvMAX:;
for i:=1 to length(stroka) do
begin
if stroka[i]<>' ' then
buf:=buf+stroka[i]
else
begin
for j:=1 to length(buf) do
if (buf[j] in ['a','b','A','B']) then kolbukv:=kolbukv+1;
if kolbukv>kolbukvMAX then
begin
kolbukvMAX:=kolbukv;
slovo:=buf;
end;
buf:='';
kolbukv:;
end;
if kolbukvMAX then slovo:='Takih slov net tak kak v stroke net simvolov a,b';
end;
end;
var stroka1,slovo1:ss;
 
begin
Writeln('Vvedite stroku');
readln(stroka1);
slovoMAXab(stroka1,slovo1);
Writeln('Polu4ennoe slovo - ',slovo1);
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.
if kolbukvMAX then slovo:='Takih slov net tak kak v stroke net simvolov a,b';
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

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