Помогите пожалуйста составить программку, которая из введённого текста указывает самое короткое слово, начинающееся на указанную букву.
-----------------------------------------------------------------------
Спасибо за внимание!
Помогите пожалуйста составить программку, которая из введённого текста указывает самое короткое слово, начинающееся на указанную букву.
-----------------------------------------------------------------------
Спасибо за внимание!
как то так
Код:var l,p:string; i,k,c:integer; z:char; begin writeln('vvedi bukvu'); readln(z); writeln('vvedi slova'); readln(l); p:=l; for i:=1 to Length(l) do begin if (l[i]=z) and ((l[i-1]=' ') or (i=1)) then k:=i; c:=k; if Length(l)=i then c:=k-1; if ((l[i]=' ') or (i=Length(l))) and (l[k]=z) and ((Length(p)=Length(l)) or (i-k<Length(p))) then p:=copy(l,k,i-c); end; if p=l then writeln('netu slov na takuy bukvu') else writeln('min slovo=',p); readln; end.
помогите решить срочно надо!!!! ПРЯМ СРОЧНО ПРИ СРОЧНО!!!
Условие:
Найти координаты центра отрезка, заданного координатами его концов.
исходные данные:
Х1, У1, Х2, У2.
Добавлено через 2 минуты
пишите в асю: 592595017
Последний раз редактировалось Ewald; 17.05.2010 в 20:35. Причина: Добавлено сообщение
мдоо... уж это проще некуда...
var x1,x1,y1,y2,:real;
begin
Writeln ('BBeguTE KoopguHATbI ogHoro KoHL|A');
readln (x1,y1);
Writeln ('BBeguTE KoopguHATbI gpyroro KoHL|A');
readln (x2,y2);
Writeln ('KoopguHaTbI L|EHTPA OTPE3KA: (', (x1+x2)/2, '; ', (y1+y2)/2, ').');
readln;
end.
Ну уж такое-то не сделать - это жесть.
May the Force be with YOU...
Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)