Хотя б одну из двух, БРАТЦЫ:)
ПАСКАЛЬ
1) Описать процедуру RingS(R1, R2) вещественного типа, находящую площадь кольца, заключенного между двумя окружностями с общим центром и радиусами R1 и R2 (R1 и R2 - вещественные, R1 > R2). С ее площади трех колец, для которых даны внешние и внутренние радиусы. Воспользоваться формулой площади круга радиуса R: S = pi*R^2. В качестве значения pi использовать 3.14.
2)л. Описать функцию Fact(N) вещественного типа, вычисляющую значение факториала N!=1*2*...*N* (N>0 — параметр целого типа). С этой функции найти факториалы пяти данных целых чисел.
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
Поэтому Вам прийдется поправить некоторые ошибки в коде.