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

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

Форум «Всё о Паскале» _ Задачи _ Помогите решить

Автор: KucerMD 26.04.2010 20:27

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

Автор: TarasBer 26.04.2010 20:35

Тут нюанс есть только во втором задании: если числа вещественные, то просто приравнивать сумму квадратов нельзя - любая микропогрешность расчёта даст неравенство.
Так что сначала покажите то, что сами попытались сделать.

Автор: KucerMD 26.04.2010 20:48

Нам так учитель дал.

Автор: Ozzя 26.04.2010 21:07

Цитата
Так что сначала покажите то, что сами попытались сделать.

Согласен. Хотя бы 1-ю? Там в 3 строки укладывается.

Автор: KucerMD 26.04.2010 21:19

Вот например 3.

If a/2 div 2 then writeln ('polojit') else
                        writeln ('otricat')
S:=s+i



М
 Ставь, пожалуйста, тэги (Правила Форума, п.5, и правила раздела Задачи, п.2)


Автор: Ozzя 26.04.2010 21:21

Нет.

if odd(a) then 
  writeln ('necetnoe') 
else
  writeln ('cetnoe');

Автор: KucerMD 26.04.2010 21:25

Цитата(Ozzя @ 26.04.2010 18:21) *

Нет.
if odd(a) then 
  writeln ('necetnoe') 
else
  writeln ('cetnoe');


Че так правильно?

Автор: Ozzя 26.04.2010 21:29

Цитата
Че так правильно?

Ты сам-то задание прочитал? Тебе в 3-м нужно - "количество положительных и отрицательных". А ты четность/нечетность проверяешь.
Перепиши для положительных и отрицательных

Добавлено через 4 мин. 
If a/2 div 2 then {Что за условие? Проверяй на отрицательность/положительность!}
  writeln ('polojit') 
else
  writeln ('otricat');
    S:=s+i;

Автор: KucerMD 26.04.2010 22:09

А 2-ая правильно?
c:=a/2

Автор: Ozzя 26.04.2010 22:12

Нет.

if sqr(x)+sqr(y)=sqr® then
  WriteLn('Лежит')
else
  WriteLn('Не лежит');

c учетом замечания от TarasBer.


Добавлено через 1 мин.
Хотя, уровень явно школьный. Начала программирования. Так что, сойдет, я думаю. rolleyes.gif

Автор: KucerMD 27.04.2010 0:20

Цитата(Ozzя @ 26.04.2010 19:12) *

Нет.
if sqr(x)+sqr(y)=sqr® then
  WriteLn('Лежит')
else
  WriteLn('Не лежит');

c учетом замечания от TarasBer.
Добавлено через 1 мин.
Хотя, уровень явно школьный. Начала программирования. Так что, сойдет, я думаю. rolleyes.gif

Спасибо огромное Ozzя

Добавлено через 5 мин.
Помогите пожалуиста решить 1,3, и4.

Автор: Гость 27.04.2010 0:52

1. а в чем проблема? t=s/v. Просто введи скорость с клавиатуры, подели и выведи ответ.
3. проходишь массив чисел поэлементно, если число >=0, то увеличиваешь количество положительных, если меньше, то отрицательных. (можно еще считать только положительные, а в конце просто отнять от n получившееся количество - это будут отрицательные)
4. цикл от 1 до 300, проверяешь число на нечетность (функция odd, как раз про нее рассказали), если true, то возводишь в квадрат и суммируешь.

Все задачи очень легкие, попробуй сделать сам, почитай FAQ на форуме, там много полезного.