Написал на C# но в принципе код очень простой поэтому сможешь переписать на любой язык)
Console.WriteLine("Введите А"); int a = Convert.ToInt16(Console.ReadLine()); if (a >0) { Console.WriteLine("---------------------------"); Console.WriteLine("Число "+a+" положительное"); } if (a < 0) { Console.WriteLine("---------------------------"); Console.WriteLine("Число " + a + " отрицательное"); } if (a == 0) { Console.WriteLine("---------------------------"); Console.WriteLine("Вы ввели 0"); } Console.ReadLine();
Program Table; uses math; //подключаем математический модуль, возможно с модулем я ошибся var // объявляем локальные переменные для программы a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы begin calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию end;
Begin a := -0.99; //определяем b := 50.0; //вводные h := 0.1; //значения
while a < b do begin //пока "a" меньше "b" writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку a := a + h; //прибавляем шаг "h" end; end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D Поэтому Вам прийдется поправить некоторые ошибки в коде.
Console.WriteLine("Введите А");
int a = Convert.ToInt16(Console.ReadLine());
if (a >0)
{ Console.WriteLine("---------------------------");
Console.WriteLine("Число "+a+" положительное"); }
if (a < 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Число " + a + " отрицательное"); }
if (a == 0) { Console.WriteLine("---------------------------");
Console.WriteLine("Вы ввели 0"); }
Console.ReadLine();
uses math; //подключаем математический модуль, возможно с модулем я ошибся
var // объявляем локальные переменные для программы
a , b, h : Real; //указывает дробный тип числа
function calculate_f( x: Real) : Real; //объявляем функцию в теле программы
begin
calculate_f := 1/2*sin(x/4+1) ; //записываем результат вычисления в функцию
end;
Begin
a := -0.99; //определяем
b := 50.0; //вводные
h := 0.1; //значения
while a < b do begin //пока "a" меньше "b"
writeln("F(", a, ') = ', calculate_f(a)); //выводим результат вычислений в строку
a := a + h; //прибавляем шаг "h"
end;
end.
Я могу и ошибиться, потому что писал на Паскале оочень давно :D
Поэтому Вам прийдется поправить некоторые ошибки в коде.