Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачи по файлам, произведению чисел и т.д.

Автор: Myasnik 3.04.2006 4:27

Плз, помогите мне с задачами, а то опять к стенке притёрли и их сдавать нужно... =(

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. Нужна программа, которая по дате печатает число и месяц и высчитывает полное кол-во дней от указанной даты.

Пллииз, кто какую сможет - сделай задачу... я уже не в состоянии делать (получил недавно сотрясение мозга и теперь сложно стало всё воспринимать... wacko.gif )

Автор: volvo 3.04.2006 4:43

Myasnik, первая: у тебя ошибка в логике - ты должен хранить признак того, является ли ПРЕДЫДУЩЕЕ введенное число четным, и само это число (естественно, для первого вводимого тобой числа достаточно чтобы признак был = False, то есть - четных еще не было)

Ну, и еще одно - я говорил и буду говорить - давайте переменным "говорящие" имена. Неужели это так сложно?
Вот первая задача:

uses crt;
var
  a: real;
  negative, i, n, p, prev, curr: integer;
  is_even: boolean;

begin
  clrscr;
  negative := 0;
  writeln('Vvedite kol-vo chisel'); readln(n);

  is_even := false; prev := 1;
  for i := 1 to n do begin
    readln(a);

    if a < 0 then negative := negative + 1;
    curr := trunc(a);
    if not odd(curr) and is_even then begin
      p := curr * prev;
      writeln(p);
    end;

    prev := curr;
    is_even := not odd(curr);
  end;

  writeln('negatives:', negative);
  readkey;
end.


Насчет №3:
http://forum.pascal.net.ru/index.php?s=&showtopic=4389&view=findpost&p=11238 - выбирай любой метод, и подставляй свою функцию...

№5: здесь есть кое-что что тебе поможет:
http://forum.pascal.net.ru/index.php?s=&showtopic=6681&view=findpost&p=49106

Автор: мисс_граффити 3.04.2006 12:32

4.
расстояние будет вычисляться как sqrt(sqr(x1-x2)+sqr(y1-y2))

Автор: Myasnik 5.04.2006 3:10

Пасиб огромное! =)
p.s. я вот не понимаю условие 2 задачи - " сравнивая их по абсолютному значению и выводит большее " это как по абсолютному значению? dry.gif

про 3 задачу - ну подставляю я данные sqrt(x-2) и прога ругается и выдаёт всегда 207 ошибку и не пашет... =( не одна прога не пашет... да и n в проге считается типа заданной точность эпсилона?

а вот кстать про 5 задачу - мне нужна сама программа, а не модуль =)

Автор: Бравый генерал 5.04.2006 3:37

Абсолютное значение - это значение по модулю. abs(x)

Цитата

а вот кстать про 5 задачу - мне нужна сама программа, а не модуль =)


Вообще-то тебя пытались подтолкнуть к самостоятельному решению твоей задачи. Посмотри в модуле особенности реализации функций, нужных тебе для решения.

Автор: Myasnik 10.04.2006 5:15

плиз, ну помогите мне с 3 задачей... ну незнаю блин как сделать этот интеграл, шоб он работал и считал... много вариантов перепробывал... ничего не получается =( и лучше даж если и дадите готовую задачу под мой интеграл - объясните её плизз.. оч прошу =) мне эта задача оч нужна! Хелп ми, плизз! good.gif

Автор: klem4 10.04.2006 10:31

В первом посте есть ссылка на численное интегрирование, бери любой метод и пользуйся, или мне за тебя сделать copy+paste ?