помогите пожалуйста перевести задачку с паскаля на с++ - Форум
Вторник, 06.12.2016, 08:46
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите пожалуйста перевести задачку с паскаля на с++ (еще нужно к ней блок схему обязательно)
помогите пожалуйста перевести задачку с паскаля на с++
1.Составить пpогpамму, котоpая читает пpоизвольные стpоки (не более 80[ 0 ][0.00%]
2.символов), pазбивает их по словам, находит максимальное слово и выводит[ 1 ][50.00%]
3.его на печать. Пpизнаком конца ввода является стpока, содеpжащая "!".[ 1 ][50.00%]
Всего ответов: 2
AlexДата: Среда, 27.01.2010, 09:35 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
program example1;
uses crt;
const n1=100;
var i,j,n,max_sl,ln:integer;
stroka,sl,slovo:string;
a: array[1..n1] of string;
flag:boolean;

begin
clrscr;
write('Enter number of strings N = ');
readln(n);
writeln;
for i:=1 to n do
begin
write('String ',i,' ');
readln(a[i]);
end;
flag:=true;
max_sl:=0;
j:=1;
while flag do
begin
stroka:=a[j];
ln:=length(stroka);
sl:='';
for i:=1 to ln do
begin
if stroka[i]='!' then
begin
flag:=false;
break
end;
if stroka[i]<>' ' then sl:=sl+stroka[i];
if (stroka[i]=' ') or (i=ln) then
begin
if length(sl)>max_sl then
begin
slovo:=sl;
max_sl:=length(sl)
end;
sl:=''
end;
end;
if flag then break;
if j=n then flag:=false;
inc(j);
end;
writeln;
writeln('‘ ¬®Ґ ¤«Ё­­®Ґ б«®ў®: ',slovo);
readkey
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » помогите пожалуйста перевести задачку с паскаля на с++ (еще нужно к ней блок схему обязательно)
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016