Moмчета, моля за малко помощ . Трябва да направя задачка на Паскал, която да решава неравенството А.Х<=B, като А и В се въвеждат от клавиатурата.

Аз направих това, компилира се, но явно нещо бъркам със средата и не ми генерира exe и не мога да го стартирам и да видя дали смята правилно
..а може би греша някъде.. Моля за малко помощ

Program Neravenstvo;
var a,b,x:real;
Begin
write('Vavedete 4isloto a:'); read(a);
write('Vavedete 4isloto b:'); read(b);
if x<=(b/a) then
writeln('4isloto x=',x:4:2);
End.

не е лошо да кажек какъв компилатор ползваш? Как аджеба компилираш? А да не би да ти прави ЕХЕ пък да го слага на майната си в некоя забутана папка? Да не би да ти требе линкер? и т.н.

Колкото до програмчето, треа да знаеш няколко неща:
1.ВИНАГИ когато се дели на число се проверява дали не е нула
2.ако А не е цяло, НИКОГА проверката не е от вида на :
if a<>0 then ....
В такива случаи проверката е:
if abs(a)<0.000001 then... или
if abs(a)<Epsilon then ... , където тва епсилонче го ръгаш най-отгоре и му даваш няква малка стойност
3.Винаги когато делиш на много голямо на много малко число,, резултата е още по-голямо число. Тогава требе внимаваш дали не си минал горната граница за съответния тип.

Аре дай инфо и ще мъчим нататъка

сега се замислих- то всъщност числото х което търся е в някаква област - и сътворих това:

Program Neravenstvo;
var a,b,x,y:real;
Begin
write('Vavedete 4isloto a:'); read(a);
write('Vavedete 4isloto b:'); read(b);
y:=b/a;
if y-1<y or (y-1)+1=y then y=x ****
write('4isloto x, koeto udowletworqwa neravenstvoto e',x:4:2)
else write('polu4enoto 4islo ne udowletworqwa nerawenstwoto')
End.

но на реда със звезди4ките ми дава грешка operand types do not match operator - error 41

защо ?!

след if-a се опитай да групираш израза. Винаги ползвай скоби. Даже и да са излишни - не вредят.

y:=x - ей тук ти е грешката

Освен това решението на неравенство е ИНТЕРВАЛ, т.е.

x <принадлежи> (-<безкрайност>;3) - едно примерно решение на неравенство.
Ако неравенството е нестрого, както в твоя случай - интервала е затворен.

ПП: символите < и > съм използвал, защото не мога да изпиша съответните символи във формата.

ПП2: Този форум е за обмяна на опит, а не за решаване на курсови задачи

Съдържаниет е скрито
Влезте за да го видите

var

  a,b: Double;



begin

write('a=');readln(a);

write('b=');read(b);

if(a<>0) then

  writeln('(-безкрайност,',b/a:5:3,']')

else if (b>=0) then

       writeln('всяко x')

     else writeln('няма решение');

end.

Съдържаниет е скрито
Влезте за да го видите