Помощь - Поиск - Пользователи - Календарь
Полная версия: Контрольная работа по паскалю
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
at0m
Вообщем в контрольную входят следующие задания:
1. Дана строка символов. Подсчитать количество знаков препинания (. , ; : ! ? ),
входящих в данную строку.
2. Определить наибольшую длину слова в тексте. Считать, что все слова отделены пробелами.
3. Используя команду повторении, построить семейство окружностей.
Очень тяжко с этими темами у меня , помогите написать программы..
RaV
Ты хочешь чтобы тебе решили или чтобы помогли разораться?
at0m
Ну решите если не трудно , остальные все я сделал , только здесь заглох sad.gif ...
Анна
1-я, примитивно .. но всё же cool.gif

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.
Unknown
А вот и вторая:
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.


А что за семейство окружностей?
at0m
Cпасибо ребята , а с 3 нужно через repeat ??


А что за семейство окружностей?
Ну в окружности находится еще одна окружность , причем точка касания всех окружностей одна.
at0m
Как я понял нужно подключать графу , и еще момент , я посмотрел и кое-что понял , если наименьшая окружность касается центра большей окружности , то диаметр маленькой будет являться радиусом большой .
А вот как это все написать я незнаю ((
klem4
Анна, а где написано , что надо подсчитать сколько раз каждый знак препинания входит в строку ? rolleyes.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.