1 задача.
Написать программу, которая вводит n вещественных чисел, определяет сколько из них отрицательных, отбрасывает у всех дробную часть, и, если два подряд стоящие числа чётные, вывод их произведение.
Она у меня чота не правильно работает, а именно не правильно умножает...
uses crt;
var
a:real;
s,n,i,c,p,f,b:integer;
begin
clrscr;
s:=0;
writeln('Vvedite kol-vo chisel');
readln(n);
for i:=1 to n do begin
readln(a);
if a<0 then s:=s+1;
c:=trunc(a);
if c mod 2=0 then
begin
p:=c*b;
writeln(p);
end;
if c mod 2=0 then b:=c;
end;
readkey;
end.
2 задача. Написать программу, которая вводит целое N, затем N вещественных чисел, определяет максимумы среди положительных и минимум среди отрицательных чисел, сравнивая их по абсолютному значению и выводит большее из них.
uses crt;
var
MIN,MAX,a:real;
n,nn,a2,i,w,s:integer;
begin
clrscr;
min:=0;
max:=0;
writeln('Vvedite kol-vo chisel veshesvennix');
readln(n);
for i:=1 to n do begin
readln(a);
writeln('Vvedite kol-vo chisel celix');
readln(nn);
a1=random(9);
readln(a1);
..................
end;
readkey;
end.
Задача 3. Написать программу, которая вычисляет интеграл f(x) = {интеграл от 0 до 2} корень из (x-2) dx с заданной точностью эпсилон 10.
Задача 4. Написать программу, которая определяет длину отрезка между двумя точками с заданными координатами, использовать программу как процедуру для нахождения максимума среди отрезков разной длины.
Задача 5. Нужна программа, которая по дате печатает число и месяц и высчитывает полное кол-во дней от указанной даты.
Пллииз, кто какую сможет - сделай задачу... я уже не в состоянии делать (получил недавно сотрясение мозга и теперь сложно стало всё воспринимать...
)
