Просьба решить задачу в T.P.

[Digma]

А точнее нужно составить программу. Вот задача:

Даны 4 числа (A,B,C,D) Если A больше В и больше D тогда вычисляем произведение C и D. Если В меньше С и больше D , тогда на экран выводим квадратный корень из А-С, если С больше А, больше В но меньше D тогда выводим 2D. В противном случае выводим значение A,B,C,D

[Christian]

TurboPascal?

[32809rwa]

*146 где ж вас учат, бедные?

[Inclodes]

Digma держи решение

program zadcha;
uses crt;

var a,b,c,d,r:real;

begin
clrscr;

writeln('Vvedite chisla');
write('a=');readln(a);
write('b=');readln(;
write('c=');readln(c);
write('d=');readln(d);
clrscr;

if (a> and (a>d) then
begin
r:=c*d;
write('R=',r:4:3)
end
else
if (bd) then
begin
r:=sqrt(a-c);
write('R=',r:4:3)
end
else
if (c>a) and (c> and (c begin
r:=d*d;
write('R=',r:4:3)
end
else
write('A=',a:4:3,' B=',b:4:3,' C=',c:4:3,' D=',d:4:3);

readkey;
end.

[32809rwa]

Inclodes, по моему else тут необязательно

[X-tender]

а почему не в http://ulanovka.ru/forum/viewforum.php?f=137

[Гость bot]

Топик был перенесен из форума Взаимопомощь в форум Форум программистов

Sheb

[Inclodes]

skytis

сам бы тады писал

неча критику на пустом месте разводить

[32809rwa]

сорри, действительно, без else, не получается. сейчас сам аналогично сделал и сравнил.

[man22]

я составил программку, там WRITE написал, потом запустил программу, там появился мой комментарий vvedite a i b, я ввожу 4(пробел)5 и ниче не происходит

[Inclodes]

MAN!!!@@

ты хоть бы листинг проги предоставил что ли

[Bullfrog]

я составил программку, там WRITE написал, потом запустил программу, там появился мой комментарий vvedite a i b, я ввожу 4(пробел)5 и ниче не происходит

наверно надо после ввода числа а энтер нажать а не пробел, а потом уже вводить б

да и лучше показать, что у тебя написано

[man22]

Вот че написано

Program Example1;

Uses CRT;

Var a, b, c, s, p: Real;

Begin

TextBackGround(1); {zvet fona}

ClrScr;

Window(10,10,70,20); {razmer okna}

TextBackGround(1); {zvet fona}

ClrScr;

TextColor(4); {zvet simvolov}

GOTOXY(2,4); {kursor}

Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti, c - gipotenuza');

Readln(a,b,c); {vod znachenii}

p:=(a+b+c); {perimetr}

s:=(a*b)/2; {plozhad}

GOTOXY(2,6);

Writeln('plozhad treugolnika=',s:6:2,' perimetr=',p:7:2); {vivod znachenia na ekran}

Delay(2000) {zaderzhka raboti programmi na 2 sec}

End.

[Inclodes]

я ввожу 4(пробел)5

вводить надо не через "пробел" а через "

запятая пробел"

Вот че написано

а сдесь че

эт листинг той проги вопрос по которой был выше?

[man22]

Вот че написано

а сдесь че

эт листинг той проги вопрос по которой был выше?

ага, листинг

[ToNY667]

Program Example1;

Uses CRT;

Var a, b, c, s, p: Real;

Begin

TextBackGround(1); {zvet fona}

ClrScr;

Window(10,10,70,20); {razmer okna}

TextBackGround(1); {zvet fona}

ClrScr;

TextColor(4); {zvet simvolov}

GOTOXY(2,4); {kursor}

Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti, c - gipotenuza');

Readln(a,b,c); {vod znachenii}

p:=(a+b+c); {perimetr}

s:=(a*b)/2; {plozhad}

GOTOXY(2,6);

Writeln('plozhad treugolnika=',s:6:2,' perimetr=',p:7:2); {vivod znachenia na ekran}

Delay(2000) {zaderzhka raboti programmi na 2 sec}

End.

вам не кажется, что здесь куча лишнего кода?

я бы сделал так:

Uses CRT;
Var a, b, c, s, p: Real;
Begin
ClrScr;
Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti, c - gipotenuza');
Readln(a,b,c); {vod znachenii}
p:=(a+b+c); {perimetr}
s:=(a*b)/2; {plozhad}
Writeln('plozhad treugolnika=',s:6:2,' perimetr=',p:7:2); {vivod znachenia na ekran}
readkey;
End.

[Inclodes]

ага, листинг

прога правильная(не компилил но на глаз робть будет)

ToNY667

мож ему надо изменить параметры экрана?

а вообще сдесь лишний код не помешает(хотя пользы от него конечно ноль)

[martinges]

гг сделаем прогу еще проще

Var a, b: integer;

Begin

Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti');

Readln(a,; {vod znachenii}

Writeln('plozhad treugolnika=',(a*b)/2:6:2,' perimetr=',a+b+sqrt(sqr(a)+sqr():7:2); {vivod znachenia na ekran}

End.

итого 6 строчек кода) 2 переменные)))))

проверку на существование треугольника проводить не надо)) ибо всегда будет существовать) единственно запрет на ввод 0 стоит сделать и отрицательных чисел(помойму называется запрет на неположительные числа)

[ToNY667]

помойму называется запрет на неположительные числа

называется "защита от дурака"

[man22]

Program Example1;

Uses CRT;

Var a, b, c, s, p: Real;

Begin

TextBackGround(1); {zvet fona}

ClrScr;

Window(10,10,70,20); {razmer okna}

TextBackGround(1); {zvet fona}

ClrScr;

TextColor(4); {zvet simvolov}

GOTOXY(2,4); {kursor}

Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti, c - gipotenuza');

Readln(a,b,c); {vod znachenii}

p:=(a+b+c); {perimetr}

s:=(a*b)/2; {plozhad}

GOTOXY(2,6);

Writeln('plozhad treugolnika=',s:6:2,' perimetr=',p:7:2); {vivod znachenia na ekran}

Delay(2000) {zaderzhka raboti programmi na 2 sec}

End.

вам не кажется, что здесь куча лишнего кода?

я бы сделал так:

Uses CRT;
Var a, b, c, s, p: Real;
Begin
ClrScr;
Write('Vvedite dlini storon pramougolnogo treugolnika, a i b-kateti, c - gipotenuza');
Readln(a,b,c); {vod znachenii}
p:=(a+b+c); {perimetr}
s:=(a*b)/2; {plozhad}
Writeln('plozhad treugolnika=',s:6:2,' perimetr=',p:7:2); {vivod znachenia na ekran}
readkey;
End.

У меня в листинге куча лишнего кода, потому что я сам учился паскалю, с других исходных кодов накопировал всего, изменил только переменные, ввод значения и вывод

Добавлено спустя 1 минуту 54 секунды:

а да я еще формулы поменял