Перейти к содержанию

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


Рекомендуемые сообщения

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

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

Ссылка на комментарий

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


program zadcha;
uses crt;

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

begin
clrscr;

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

if (a>B) 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>B) 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.

Ссылка на комментарий
  • 4 недели спустя...

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

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

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

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

Ссылка на комментарий
  • 6 месяцев спустя...

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

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.

Ссылка на комментарий
я ввожу 4(пробел)5
вводить надо не через "пробел" а через "

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

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

а сдесь че

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

Ссылка на комментарий

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.

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

ToNY667

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

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

Ссылка на комментарий

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

Var a, b: integer;

Begin

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

Readln(a,B); {vod znachenii}

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

End.

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

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

Ссылка на комментарий

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 секунды:

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

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...