Прошу о помощи!!!!!!!!!!!!!!!НУжна программа по паскалю.Что бы решить эту задачу...

July 2022 1 7 Report

Прошу о помощи!!!!!!!!!!!!!!!НУжна программа по паскалю.Что бы решить эту задачу!!!!!!!!!!!!!!
Даны 3 вещественных числа. Используя только 2 неполных условных оператора, определить:
 максимальное значение заданных чисел
 минимальное значение заданных чисел

Answers & Comments

Студэнt //PascalABC.Net 3.2
begin
var a:=readarrreal ('Вводите: ', 3);
print('Макс.', a.max, '; Мин.', a.min);
end.

0 votes Thanks 1

katyagarnaga var a, b, c, min, max:real;
begin
readln(a,b,c);
max:=a;
min:=a;
if(b>c)and(b>a)then max:=b;
if(c>b)and(c>a)then max:=c;
if(b<c)and(b<a)then min:=b;
if(c<b)and(c<a)then min:=c;
writeln('max,min');
end.

katyagarnaga не могу понять где ошибка

Студэнt А зачем Вы в операторе ветвления указываете 2 условия?

Студэнt var a, b, c, min, max:real;
begin
readln(a,b,c);
max:=a;
min:=a;
if b>max then max:=b;
if c>max then max:=c;
if b<min then max:=b;
if c<min then max:=c;
writeln('Макс: ', max);
writeln('Мин: ', min);
end.

Студэнt если можно обойтись одним)))

Студэнt А на выводе у Вас строка "max,min" - в этом и ошибка))

katyagarnaga препод

Студэнt Так в итоге, я помог?

katyagarnaga спасибо большое

Студэнt Было бы за что))

Answers & Comments

delfi razrabotat proekt na osnove gotovoj specifikacii v kotorom dobavlyat str

1 sostavit programmu vychisleniya 2 oj 3 ej i 4 oj stepeni chisla a i vozvrasheni

ochen nuzhna pomoshprogramma paskal zadanie 1 v procedure 1 sozdat

pomogiteochen nuzhna pomoshprogramma paskal v procedu

v paskale v massive est nulevye elementy vydat na ekran ih

y2x24 najti ploshad

dany 2 stroki simvolov poluchit novuyu stroku putem slozheniya 2 h strok v novoj

dana stroka simvolov opredelit chislo simvolov v stroke esli eto chislo bolshe

dana stroka simvolov opredelit chislo simvolov v stroke esli eto chislo menshe

nuzhno delphi proverit mozhet li byt postroen kakoj libo treugolnik po vveden

рекомендуемые вопросы

Helpful Links

Helpful Social