Прошу помощи по Паскалю

[Frankenstein]

Прошу помощи по Паскалю

1.написать функцию, которая для любого целого аргумента определяет есть ли заданная цифра а в его записи.Для n чисел определить, сколько чисел имеет заданную цифру в своей записи. заданная цифра вводится с клавиатуры.

2. true или false
произведение натуральных чисел a и b кратно числу с.

3. Написать функцию вычисления площади треугольника если извстны длины 2 его сторон и величина угла между этими сторонами.

4. Для значений х вычислить значения функции, если функция не определена в заданной точке, то считать её = 0. Число n и значения х вводится с клавиатуры например n=5, x=4,-2,0,2,4.
f(x)={0,-2<=x,0 и 2,0<=x<=2(система )

5. вычислить сумму, пока значение слагаемого остается больше введеного Е
S=1+2/(1+2)+(2*3)/(1+2+3)+(2*3*4)/(1+2+3+4)
и S=1+(1+2)/2+(1+2+3)/(2*3)+(1+2+3+4)/(2*3*4)

6. Дано натуральное число. найти сумму всех правильных делителей данного числа, которые делятся на 3, но не делятся на 2.

7. Дано натуральное число. определить первую цифру в цифровой записи данного числа.

8. определить, являеца ли целое число n четным двузначным числом.

Помогите, плиз. Очень нужно.

 

[Lam]

эх... блин... сразу видно сессия пришла))))
прошу простить, Вы у себя в универе не можете найти решений? за спасибо - делайте сами, за бабло отдельный разговор. в общем повозмущался, а по делу сказать ничего не могу ну разве что по пункту 8, что-то вроде такого должно быть:
//a -- заданное число (целого типа)

if( ((a/2)*2)==a)
then 
 if((a /10)>10 and (a/10)<=1)
 then 
 return true
else return false;

ЗЫ: прошу прощения за "мой Паскаль" . Надеюсь идея понятна

 

[MiraUA]

Ну объясните мне, какой смысл учится на программиста, если даже элементарные школьные задачки ставят в тупик? ТС, пока не поздно бросай это гиблое дело и выбирай другой ВУЗ.

 

[Frankenstein]

Ну объясните мне, какой смысл учится на программиста, если даже элементарные школьные задачки ставят в тупик? ТС, пока не поздно бросай это гиблое дело и выбирай другой ВУЗ.

Поржать хочешь? Специальность с программированием никак не связана.

 

[dr_mousefly]

Поржать хочешь? Специальность с программированием никак не связана.

если не связана, то зачем же Вам его преподают??

 

[zavyalov]

если не связана, то зачем же Вам его преподают??

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

 

[MiraUA]

A что тогда за специальность Я еще понимаю когда основы HTML или там Access рассказывают не программистам, но Паскаль то зачем

 

[dr_mousefly]

A что тогда за специальность Я еще понимаю когда основы HTML или там Access рассказывают не программистам, но Паскаль то зачем

а затем, чтоб не выли дуриной, если мышка заедет в правый нижний угол экрана...
чтобы хоть как-то пользоваться компьютером надо понимать хотя бы основы информатики.
а какая специальность сейчас не связана с ИТ хоть немного - богослов разве что?
да и та связана..

 

[Frankenstein]

Информатика и программирование на паскале немного разные вещи, не правда ли?

 

[dr_mousefly]

Информатика и программирование на паскале немного разные вещи, не правда ли?

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

*а потом всю жизнь будем перебирать события минувших дней в поисках причины,
почему "программа совершила недопустимую операцию"...

 

[Andy_ua]

п.8 можно сделать проще


if((a%2==0)&&(abs(a)<=99))
return true
else
return false;

 

[Frankenstein]

п.8 можно сделать проще


if((a%2==0)&&(a<=99))
return true
else
return false;

Спасибо, я уже фактически со все разобрался. Не могу только вдуплить 4 и 5 задание.

 

[Andy_ua]

в п4. ошибка в задании системы
возможно
f(x)= 0, -2<=x<0
2, 0<=x<=2
если х не попадет в эти диапазоны, то f(x)=0

 

[Frankenstein]

в п4. ошибка в задании системы
возможно
f(x)= 0, -2<=x<0
2, 0<=x<=2
если х не попадет в эти диапазоны, то f(x)=0

Сорри. Совершенно верно.

 

[Andy_ua]

п5.
s:=0;
i:=1;
x1:=1;
x2:=1;
x:=x1/x2;
while(x<e)
begin
x1=x1*i
x2:=x2+i
x=x1/x2;
s:=s+x;
i:=i+1;
end;
гдето так

 

[Das Zugunfall]

Нам, метрологам, в хаевне лет 10 назад еще трубопацкаль на 286-х преподавали, непонятно за каким х.

 

[Al-Capone]

п.8 можно сделать проще

if((a%2==0)&&(abs(a)<=99))
 return true
else 
 return false;

Можно еще проще
return((n&1)==0 && Math.abs(n)<=99)

 

[Deamon]

Нам, метрологам, в хаевне лет 10 назад еще трубопацкаль на 286-х преподавали, непонятно за каким х.

ТурбопацкакалЪ и сейчас преподают. На первом курсе - всем студентам 3-его фака без исключения.

 

[manticorra]

Не проблема

Если проблема актуальна пиши в ICQ 493 99 10 10


А паскаль сейчас , как я смотрю читают почти всем , ко мне обращается народ таких разных специальностей ... и бухгалтеры, и инженеры водоснабжения...
А насчет того , что программистам тоже кучу всякого лишнего читают, я согласна ) нам и черчение и психологию с ей подобными вычитывали .. основы экономики предприятий... остался только вопрос о смысле этого....

 

[Andy_ua]

Можно еще проще
return((n&1)==0 && Math.abs(n)<=99)

если мы уже не в Паскале тогда можно еще проще
return((!(n&1)) && (Math.abs(n)<=99))