Введіть Три Числа. Якщо Вони Можуть Бути Довжинами Сторін Рівнобедрено

[mel]

Програма выводит три результата, не получаетса исправить


Добавлено: ВВедіть три числа. Якщо вони можуть бути довжинами сторін рівнобедреного трикутника, обчисліть довжини його висот. Виведіть довжину основи і довжини висот даного трикутника у порядку зростання

var a,b,c,ha,hb,hc,osn,s,p:real;
begin
writeln('Введіть три числа:');
readln(a,b,c);
if(a<=0)or(b<=0)or(c<=0)or(a>=b+c)or(b>=a+c)or(c>=a+ then
begin
write('Ці числа не можуть бути довжинами сторін трикутника');
readln;
exit;
end;
if ((a=B) and (a=c)and (b=c)) or ((a<>c) and (a<>b)and (b<>c)) then
begin
writeln ('трикутник не рівнобедрений');
readln;
exit;
end
else writeln ('трикутник рівнобедрений');
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-B)*(p-c));
ha:=2*s/a;
hb:=2*s/b;
hc:=2*s/c;
if (a=b)and(a>c) then begin osn:=c;
writeln(' ha=hb=',ha:4:1,' osnova=',osn:4:1,' hc=',hc:4:1)
end else
begin osn:=c;
writeln(' hc=',hc:4:1,' ha=hb=',hb:4:1,' osnova=',osn:4:1)
end ;
if (a=c) and(a>B) then begin osn:=b;
writeln('ha=hc=',ha:4:1, 'osnova=',osn:4:1, 'hb=',hb:4:1)
end else
begin osn:=b;
writeln(' hb=',hb:4:1,' ha=hc=',ha:4:1, ' osnova=',osn:4:1)
end ;
if (b=c) and(b>a) then begin osn:=a;
writeln(' hb=hc= ',hb:4:1,' osnova= ',osn:4:1, ' ha=',ha:4:1)
end else
begin osn:=a;
writeln('ha=',ha:4:1, ' hb=hc= ',hb:4:1,' osnova= ',osn:4:1)
end;
readln;
readln

end.

 

[mel]

Допоможіть допрацювати програму.
Для заданого тексту знайти число співпадань заданого слова в тексті та номер першої приголосної літери.

var
s,s1: string;
k,d,i:integer;
b:boolean;
begin
writeln('Введіть текст:');
readln(s);
writeln('Введіть слово:');
readln(s1);
begin
k := 0;
while s <> '' do
begin
d := Pos(s1, s);
if d > 0 then
inc(k)
else
d := 1;
Delete(s, 1, (d + Length(s1)));
end;
i:=k;

end;
writeln('Задане слово',s1,' в тексті зустрічається ',i, ' рази');
readln
end.


Добавлено: Для заданого тексту знайти число співпадань заданого слова в тексті та номер першої приголосної літери.
Допоможіть завершити програму, не можу знайти номер першої приголосної. Дякую за допомогу.
var
s,s1: string;
k,d,i:integer;
b:boolean;
begin
writeln('Введіть текст:');
readln(s);
writeln('Введіть слово:');
readln(s1);
begin
k := 0;
while s <> '' do
begin
d := Pos(s1, s);
if d > 0 then
inc(k)
else
d := 1;
Delete(s, 1, (d + Length(s1)));
end;
i:=k;

end;
writeln('Задане слово',s1,' в тексті зустрічається ',i, ' рази');
readln
end.

 

[mel]

Для заданого тексту знайти число співпадань заданого слова в тексті та номер першої приголосної літери.
Допоможіть допрацювати програму. Дякую
var
s,s1: string;
k,d,i:integer;
b:boolean;
begin
writeln('Введіть текст:');
readln(s);
writeln('Введіть слово:');
readln(s1);
begin
k := 0;
while s <> '' do
begin
d := Pos(s1, s);
if d > 0 then
inc(k)
else
d := 1;
Delete(s, 1, (d + Length(s1)));
end;
i:=k;

end;
writeln('Задане слово',s1,' в тексті зустрічається ',i, ' рази');
readln
end.

 

[Vadik(R)]

mel, для большей читаемости, оформляй код, пожалуйста, тегом code. Не хочется смотреть даже в неформатированный текст без подсветки...