Turbo Pascal 7, а к такому ряду формулу подскажите? (см. внутри, опять case и прогрессия)

@Schtrich · Регистрация: 13.08.2010

Author24 — интернет-сервис помощи студентам

Pascal

case y of
-12: y:=480;
-11: y:=460;
-10: y:=440;
-9: y:=420;
-8: y:=400;
-7: y:=380;
-6: y:=360;
-5: y:=340;
-4: y:=320;
-3: y:=300;
-2: y:=280;
-1: y:=260;
0: y:=240;
1: y:=220;
2: y:=200;
3: y:=180;
4: y:=160;
5: y:=140;
6: y:=120;
7: y:=100;
8: y:=80;
9: y:=60;
10: y:=40;
11: y:=20;
12: y:=0;
end;

@AnTro.Net · 22.06.2011, 04:11

формулу?

@Puporev · 22.06.2011, 08:45

Pascal

var y,i:integer;
begin
for i:=-12 to 12 do
 begin
  y:=480-(i+12)*20;
  write(y:8);
 end;

@Schtrich · 22.06.2011, 12:30 **[ТС]**

Сообщение от AnTro.Net

формулу?

да! формулу, мне уже помогли:

Pascal

1	if (y>=-12) and (y<=12) then y:=-(y-12)*20;

Добавлено через 2 минуты

Сообщение от Puporev

Pascal

var y,i:integer;
begin
for i:=-12 to 12 do
 begin
  y:=480-(i+12)*20;
  write(y:8);
 end;

я имел в виду такую формулу, а не цикл:

Pascal

1	if (y>=-12) and (y<=12) then y:=-(y-12)*20;

@Puporev · 22.06.2011, 12:32

Сообщение от AlienNation

я имел в виду такую формулу, а не цикл:

Ну имел и имел... Я тоже иногда имею...
Спрашивать нужно толково, а не по идиотски.

@Schtrich · 22.06.2011, 16:30 **[ТС]**

Сообщение от Puporev

Спрашивать нужно толково, а не по идиотски.

ок! ждите моих следующих выпусков "идиотских вопросов".

@AnTro.Net 131 / 127 / 50 Регистрация: 28.04.2010 Сообщений: 928
	22.06.2011, 04:11	2
	формулу? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	22.06.2011, 12:32	5
	Сообщение от AlienNation я имел в виду такую формулу, а не цикл: Ну имел и имел... Я тоже иногда имею... Спрашивать нужно толково, а не по идиотски. 0

@Schtrich weboman 210 / 195 / 63 Регистрация: 13.08.2010 Сообщений: 1,531 Записей в блоге: 6
	22.06.2011, 16:30 [ТС]	6
	Сообщение от Puporev Спрашивать нужно толково, а не по идиотски. ок! ждите моих следующих выпусков "идиотских вопросов". 2