Turbo Pascal

[Пух]

Ответ: Turbo Pascal

Ты бы не мог скомпилировать этот код и приложить скриншоты работающей программы? Только, раз уж твоя программа работает для любых чисел, то ты возьми числа побольше

проверил код critick. Работает правильно до 4-х значных чисел,а потом ошибка
для S-DIMAN это код не подойдет, т.к. они процедуры не учили...

 

[critick]

Ответ: Turbo Pascal

проверил код critick. Работает правильно до 4-х значных чисел,а потом ошибка
для S-DIMAN это код не подойдет, т.к. они процедуры не учили...

Ребята не знаю чем вы там компилировали и как,у меня программа работает нормально с любыми возможными целыми числами-саму программу прилагаю.кто не верит может проверить скачав

You must be registered for see links

во вложении.Прогу компилил с помощью Компилятора Borland Delphi 15.0

 

[Пух]

Ответ: Turbo Pascal

Ребята не знаю чем вы там компилировали и как,у меня программа работает нормально с любыми возможными целыми числами-саму программу прилагаю.кто не верит может проверить скачав

You must be registered for see links

во вложении.Прогу компилил с помощью Компилятора Borland Delphi 15.0

Turbo Pascal Version 7.0
До 5-х значных все нормально,а потом ошибка 201

 

[critick]

Ответ: Turbo Pascal

Turbo Pascal Version 7.0
До 5-х значных все нормально,а потом ошибка 201

))Значит не любит Turbo Pascal Version 7.0 большие числа у него начинается ломка

 

[S-DIMAN]

Ответ: Turbo Pascal

есть еще задачка...спасибо за пред идущую. Смог ее понять в одном из кодов. Вот следующая, прошу помощи...

Система y= (x-3)^-1,если x=4
= (Vx^2-9, если х>2
= x^-3 - 5 в остальных случаях

 

[AkeL.php]

Ответ: Turbo Pascal

if - else

 

[Пух]

Ответ: Turbo Pascal

есть еще задачка...спасибо за пред идущую. Смог ее понять в одном из кодов. Вот следующая, прошу помощи...

Система y= (x-3)^-1,если x=4
= (Vx^2-9, если х>2
= x^-3 - 5 в остальных случаях

uses crt;
var x,y:real;
begin
clrscr;
write('x=');
readln(x);
if x=4
   then
     begin
     y:=1/(x-3);
     writeln('y=',y:1:0);
     end
   else
     if x>2
     then begin
     y:=sqr(x)-9 {???  я правильно расшифровал (Vx^2-9 ?}
     writeln('y=',y:1:0);
     end
 else
  begin
  y:=1/(sqr(x)*x)-5; {хз как правильно написать, чтобы Рождественский поверил что это было написано в 9-м классе+без помощи процедур и функций}
  writeln('y=',y:1:0);
  end;
readln;
end.

код корявый, но работает
как возносить в степень не используя процедур и функций незнаю

 

[Micle Owen]

Ответ: Turbo Pascal

а о case of никто не слышал?pera:

 

[Пух]

Ответ: Turbo Pascal

а о case of никто не слышал?pera:

слышали, но зачем тут case of ? помоему типичная задача на if then else

 

[WerSus64]

Ответ: Turbo Pascal

Turbo Pascal Version 7.0
До 5-х значных все нормально,а потом ошибка 201

тип integer -32768..32767. Правильно ошибку выдает.

а о case of никто не слышал?pera:

Если память не подводит то case of используем в том случаи когда точно знаем какие значения принимает наша переменная , а если нет, как в нашем случаи???