Developing.ru

1. Дана скорость движения автомобиля. За какое время он проедет 300 километров.
2.Составить программу определяющую лежит ли точка с координатами x y на окружности радиуса R, центр окружности лежит в начале координат.
3.Дано n количество чисел, подсчитать среди них количество положительных и отрицательных.
4.С помощью цикла Repeat написать программу суммы квадратов не чётных чисел от 1 до 300.

Хотябы парочку.

KucerMD писал(а):1. Дана скорость движения автомобиля. За какое время он проедет 300 километров.

Код: Выделить всё

program pr1;
uses crt;
var
 V: Real;
 L: Real;
 T: Real;
begin
 clrscr;
 L:=300.0;
 write('Skorost: ');
 readln(V);
 T:=L/V;
 writeln('Za vremya ', T, ' chasov');
 readln;
end.

KucerMD писал(а): 2.Составить программу определяющую лежит ли точка с координатами x y на окружности радиуса R, центр окружности лежит в начале координат.

Код: Выделить всё

program prog2;
uses crt;
var
 X, Y, R, L: real;
begin
 clrscr;
 write('X = ');
 readln(X);
 write('Y = ');
 readln(Y);
 write('R = ');
 readln(R);
 L:=sqrt(X*X+Y*Y);
 if R=L then
  writeln('Tochka (', X, ', ', Y, ') legit na okugnosti')
 else
  writeln('Tochka (', X, ', ', Y, ') ne legit na okugnosti');
 readln;
end.

3. for i:=1 to n do if a<0 then inc(negatives) else if a>0 then inc(positives);
4. x:=1; repeat s:=s+sqr(x); inc(x,2); until x>300;

Developing.ru

Помогите чаинику решить задачи по Паскалю.

Помогите чаинику решить задачи по Паскалю.

Re: Помогите чаинику решить задачи по Паскалю.

Re: Помогите чаинику решить задачи по Паскалю.

Re: Помогите чаинику решить задачи по Паскалю.