Вообщем в контрольную входят следующие задания:
1. Дана строка символов. Подсчитать количество знаков препинания (. , ; : ! ? ),
входящих в данную строку.
2. Определить наибольшую длину слова в тексте. Считать, что все слова отделены пробелами.
3. Используя команду повторении, построить семейство окружностей.
Очень тяжко с этими темами у меня , помогите написать программы..
Ты хочешь чтобы тебе решили или чтобы помогли разораться?
Ну решите если не трудно , остальные все я сделал , только здесь заглох ...
1-я, примитивно .. но всё же
uses crt;
var
s : string;
i : integer;
g, h, j, k, l, z : integer;
begin
clrscr;
writeln ('Введите строку: ');
readln (s);
for i:=1 to length (s) do begin
if '.' = s[i] then inc (g);
if ',' = s[i] then inc (h);
if ';' = s[i] then inc (j);
if ':' = s[i] then inc (k);
if '!' = s[i] then inc (l);
if '?' = s[i] then inc (z);
end;
writeln ('. - ',g);
writeln (', - ',h);
writeln ('; - ',j);
writeln (': - ',k);
writeln ('! - ',l);
writeln ('? - ',z);
readln;
end.
А вот и вторая:
uses crt;
var s:string; i,k,l:integer;
begin
clrscr;
write('Введите строку: '); readln(s);
s:=s+' ';
l:=1;
for i:=1 to length(s) do
begin
if s[i]=' ' then begin if k>l then l:=k; k:=0; continue end;
inc(k);
end;
writeln('Длина наибольшего слова = ',l);
readkey
end.
Cпасибо ребята , а с 3 нужно через repeat ??
А что за семейство окружностей?
Ну в окружности находится еще одна окружность , причем точка касания всех окружностей одна.
Как я понял нужно подключать графу , и еще момент , я посмотрел и кое-что понял , если наименьшая окружность касается центра большей окружности , то диаметр маленькой будет являться радиусом большой .
А вот как это все написать я незнаю ((
Анна, а где написано , что надо подсчитать сколько раз каждый знак препинания входит в строку ?