|
Составить в паскале
|
|
Составить в паскале программу по теме: " Строки".
Дан текст, слова которого отделяются друг от друга пробелами. В тексте вставить пробелы после символов « . » и « ... », если длина самого длинного слова меньше количества слов в тексте. В противном случае текст оставить без изменения.
Распечатать исходный текст, количество букв в максимальном по длине слове, количество слов в тексте и полученный текст.
Тема – тип данных STRING языка программирования ПАСКАЛЬ.
Дана строка длиной не более 255 символов. Группы символов, разделённых между собой одним пробелом и не содержащих пробелов внутри себя, назовём словами. Слова в строке отделены одним пробелом, в конце ставится точка. Определить, какой процент слов в предложении содержит более 4-х символов. Составить программу, реализующую указанные действия. Программа должна содержать ввод исходной информации, вывод исходных данных и результатов, комментарии, номер группы и Ф.И.О. исполнителя.
|
|
|
|
program stroki;
uses crt;
var srsum,i,sumSL,sl4:integer;
a,b:string[255];
begin
i:=0; sl4:=0;
writeln ('Vvedite predlogenie');
readln (a); {vvod dannyh}
b:=a;
if a<>'' then sumsl:=1;
repeat
i:=pos (' ',a); {ishem pervyi probel v stroke}
if i-1>4 then sl4:=sl4+1; {schitaem summu slov, v kotoryh bolshe 4 simvolov}
if i<>0 then begin sumSL:=sumSL+1; delete (a,1,i); end {scitaem summu vseh slov v predlogenii
i udalyaem pervoe slovo s probelom}
until i=0;
i:=pos ('.',a);
if i-1>4 then sl4:=sl4+1;
writeln;
writeln (b); {vyvodim na ekran pervonachalnoe predlogenie}
writeln ('Procent slov v predlogenii sodergashie bolshe 4 simvolov - ',sumsl/sl4:3:2);
readkey;
end.
Номер группы и ФИО исполнителя добавиш сам, поскольку мне они не известны.
|
|
|
|
|
|
