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

Тема в разделе "Pascal and Delphi", создана пользователем mel, 8 июл 2014.

  1. mel

    mel New Member

    Регистрация:
    8 июл 2014
    Сообщения:
    3
    Симпатии:
    0
    Програма выводит три результата, не получаетса исправить


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

    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+:rolleyes: 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.
     
  2. mel

    mel New Member

    Регистрация:
    8 июл 2014
    Сообщения:
    3
    Симпатии:
    0
    Допоможіть допрацювати програму.
    Для заданого тексту знайти число співпадань заданого слова в тексті та номер першої приголосної літери.

    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.
     
  3. mel

    mel New Member

    Регистрация:
    8 июл 2014
    Сообщения:
    3
    Симпатии:
    0
    Для заданого тексту знайти число співпадань заданого слова в тексті та номер першої приголосної літери.
    Допоможіть допрацювати програму. Дякую
    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.
     
  4. Vadik(R)

    Vadik(R) Well-Known Member

    Регистрация:
    12 дек 2007
    Сообщения:
    483
    Симпатии:
    0
    mel, для большей читаемости, оформляй код, пожалуйста, тегом code. Не хочется смотреть даже в неформатированный текст без подсветки...
     
Загрузка...

Поделиться этой страницей