Версия для печати темы

Автор: Смайл 14.04.2007 18:01

1.Написать программу которая выводит на экран таблицу стоимости конфет в диапазоне от 100грамм до 1000грамм с шагом в 100грамм.
2.Написать таблицу значений функции y=-2x*x+5x-3 в диапазоне от -2 до 2 с шагом 0.5

---------

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

Автор: Артемий 14.04.2007 18:14

Сколько стоит 1 грамм?

Автор: Смайл 14.04.2007 18:50

цена произвольная.

Автор: мисс_граффити 14.04.2007 19:02

1.

!

Заголовок темы должен быть информативным

2. Ты сам попробуй. Задачи простые. А вот если что-то конкретное не получится - пиши, поможем.

Автор: Адель 14.04.2007 19:08

x:=0.5;
while true do
begin
 y=-2x*x+5x-3;
if (y<2)and(y>-2) then 
 writeln (y);
 x:=x+0.5;
end;

Автор: мисс_граффити 14.04.2007 19:30

Адель, запускать пробовала?.. Хотя бы компилировать...

Автор: Адель 14.04.2007 19:36

нет
извиняюсь, если что-в данный момент нет возможности
не считая бесконечного цикла, вроде так)

var
x,y:real;
begin
  x:=0.5;
while true do
begin
 y:=-2*x*x+5*x-3;
if (y<2)and(y>-2) then
 writeln ('x=',x:2:2,'  y=',y:2:2);
 x:=x+0.5;
end;
readln;
end.

Автор: Смайл 14.04.2007 20:27

когда я запускаю программу у меня Тп виснет

Автор: мисс_граффити 14.04.2007 20:33

Естественно. Адель зачем-то сделала бесконечный цикл. Я и пытаюсь выяснить, зачем.
Границы диапазона известны, шаг тоже. Мне кажется, здесь либо надо использовать цикл for, либо, если хочется while, то

while x<2 do...

кстати, во втором ведь границы относятся к х, а не к у?

Автор: Адель 14.04.2007 20:41

- это общий случАй))). Тут видно, что парабола-если выйдет за предел, то не войдет, а вот если сунус)

мне показалось(исходя из условий 1ой задачи) что к Y. имхо мона и так и так, ведь не сказано куда O :-)

Автор: Tan 14.04.2007 20:57

Только значение функции выводит, если хочешь дописать рядом при каком х доработай чуть чуть :

uses crt;
var x : real;
begin
Clrscr;
x:=-2;
while x <= 2 do
 begin
   writeln ((-2*x*x  + 5 * x - 3));
   x:= x + 0.5;
 end;
readkey;
end.

Автор: мисс_граффити 14.04.2007 20:57

 var x,y: real;
begin
x:=-2;
while x<2.1 do
  begin
  y:=-2*sqr(x)+5*x-3;
  writeln('x=',x:6:2,' y=',y:6:2);
  x:=x+0.5;
  end;
readln;
end.

Добавлено через 43 сек.
опа одновременно написали....

Автор: Tan 14.04.2007 21:16

Цена 1 конфетки выбирается произвольно как ты и просил, если что интервал произвольности выберешь сам.

uses crt;
var          x : real;
  payforone : real;
begin
Clrscr;
randomize;
payforone:= random (20) + 1;
x:=100;
while x <= 1000 do
 begin
   writeln ('Cena konfet massoj ',x:0:2,' gramm = ', (x * payforone):0:2, ' tugrikov');
   x:= x + 100;
 end;
readkey;
end.

Автор: klem4 14.04.2007 21:36

Смайл, замечания модератора проигнорировал ? Закрыто.