Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен

@Antonchicha · Регистрация: 27.09.2013

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

Выведите на экран таблицу значений функции y=ax для х, изменяющегося от a до b с шагом h.

@CodeR · 29.09.2013, 11:13

Pascal

Const l='-------------';
Var y,x,a,b,h,a1:real;
Begin
    write('a1: ');readln(a1);
    write('a,b,h: ');readln(a,b,h);
    writeln(l);
    writeln('  X  |','  Y   |');
    writeln(l);
    x:=a;
    While x<=b do
    Begin
      y:=x*a1;
      writeln(x:5:2,'|',y:6:2,'|');
      x:=x+h;
    End;
    writeln(l);
    readln;
End.

@Antonchicha 0 / 0 / 0 Регистрация: 27.09.2013 Сообщений: 2
		1
	Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен 29.09.2013, 11:01. Показов 1412. Ответов 1 Метки нет (Все метки) Выведите на экран таблицу значений функции y=ax для х, изменяющегося от a до b с шагом h. 0

	29.09.2013, 11:13

Опции темы

Ребята, задача по паскалю, нужно сдать до завтра, а эту тему я пропустил:( буду благодарен

Решение