program lab_1;
uses crt;
const gl : set of Char = ['e','u','i',
'a','y','o'];
var
i,a :Integer;
s,ns : string;
begin clrscr;
write('s= ');
read(s);
for i := 1 to length(s) do begin
a:=a+1;
if a=6 then begin
insert(' ',s,i);
a:=0;
end;
if s in gl then begin
s:= UpCase(s);
end;
end;
write('ns= ',s);
readln;
readln;
end.
Pascal.Задача со стороками.
Дана символьная строка состоящая из строковых букв без пробелов,гласные буквы заменить на прописные а каждые 5 символов разделить пробелом.
Вопрос...Как реализовать это всё в код ??
Вопрос...Как реализовать это всё в код ??
Вот простой пример:
[highlight=pascal]
var
Vocalic : set of Char;
i : Integer;
s : string;
...
for i := 1 to length(s) do begin
if s in Vocalic then
s := UpperCase(s)[1];
end;
...
[/highlight]
[highlight=pascal]
var
Vocalic : set of Char;
i : Integer;
s : string;
...
for i := 1 to length(s) do begin
if s in Vocalic then
s := UpperCase(s)[1];
end;
...
[/highlight]
Благадарю за помощь...вот я дальше сам сделал, если чё вот код ...
Код: