Вычислить и вывести на экран значение функции y=cos(x), где x изменяется на отрезке от "a" до "b" с шагом "с"

@Succous · Регистрация: 14.06.2012

За решение, буду благодарен.

@CodeR · 14.06.2012, 16:07

Pascal

Uses Crt;
Var x,c,a,b:real;
Begin
    ClrScr;
    Repeat 
     write('Введите отрезок от a до b: ');readln(a,b);
    Until a<b;
    write('Введите шаг: ');readln(c);
    x:=a;
    writeln('-----------');
    writeln('  x  ':2,'|','  y  ':2);
    writeln('-----------');
    While x<=b do
     Begin
      writeln(x:5:2,'|',cos(x):5:2);
      x:=x+c;
     End;
    readln;
End.

@Succous · 14.06.2012, 16:40 **[ТС]**

Artem7,Благодарю! Надеюсь , Вы будете не против , если вдруг я к Вам обращусь за помощью? (:

@CodeR · 14.06.2012, 17:08

COK, обращайтесь

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
		1
	Вычислить и вывести на экран значение функции y=cos(x), где x изменяется на отрезке от "a" до "b" с шагом "с" 14.06.2012, 15:55. Просмотров 1999. Ответов 3 Метки нет (Все метки) За решение, буду благодарен. 0

@Succous 650 / 626 / 9 Регистрация: 14.06.2012 Сообщений: 1,727
	14.06.2012, 16:40 [ТС]	3
	Artem7,Благодарю! Надеюсь , Вы будете не против , если вдруг я к Вам обращусь за помощью? (: 0

@CodeR Фрилансер 3411 / 2808 / 3000 Регистрация: 08.02.2012 Сообщений: 7,995 Записей в блоге: 1
	14.06.2012, 17:08	4
	COK, обращайтесь 0

Опции темы