Образовательный студенческий форум [Русская версия Invision Power Board]

Автор: KucerMD 26.4.2010, 13:33

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

Автор: tig81 26.4.2010, 13:36

http://www.prepody.ru/ipb.html?act=boardrules#
Что у вас не получается?

Автор: KucerMD 26.4.2010, 13:51

Вот эти задачи неполучаются.6 сделал а эти 4 немогу.

Автор: tig81 26.4.2010, 14:11

Цитата(KucerMD @ 26.4.2010, 16:51)

Вот эти задачи неполучаются.6 сделал а эти 4 немогу.

Ваши идеи по решению, ваши попытки решения.

Автор: KucerMD 26.4.2010, 14:19

Вот например 3.
If a/2 div 2 then writeln ('Polojit') else
writeln ('otricat')
S:=s+i

Автор: граф Монте-Кристо 26.4.2010, 14:38

Вы про третью или про четвёртую? В третьей проверяете, если a[i]>0, то s=s+1, не забудьте только перед циклом обнулить s. Нули можно будет посчитать отдельно,если хочется(в том же цикле).
В четвёртой - число n будет чётным, если n div 2 = 0, если же n div 2 = 1, то число нечётное. Собственно, Вам и не нужно проходить по всем числам и выбирать из них только нечётные. Можно просто в цикле считать сумму квадратов чисел вида (2*i-1), i пробегает все необходимые значения.

Автор: KucerMD 26.4.2010, 15:08

Цитата(граф Монте-Кристо @ 26.4.2010, 14:38)

Вы про третью или про четвёртую? В третьей проверяете, если a[i]>0, то s=s+1, не забудьте только перед циклом обнулить s. Нули можно будет посчитать отдельно,если хочется(в том же цикле).
В четвёртой - число n будет чётным, если n div 2 = 0, если же n div 2 = 1, то число нечётное. Собственно, Вам и не нужно проходить по всем числам и выбирать из них только нечётные. Можно просто в цикле считать сумму квадратов чисел вида (2*i-1), i пробегает все необходимые значения.

Я чето пытался сделать но неполучилось.

А 2-ая правильно?
program uud;
uses crt;
var x,y,r:byte;
begin
read(x,y);
if sqr(x)+sqr(y)=sqr(r )
then writeln('lejit') else writeln ('nelejit');
end.

Автор: граф Монте-Кристо 26.4.2010, 15:34

Нет. Что такое с, а?

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

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

Образовательный студенческий форум _ Информатика / Программирование _ Помогите решить задачу по паскалю.