Turbo Pascal

[MILLENNIUM]

Я точно не помню ~5. Если все правильно - 2л.

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

 

[Hamster]

ппц
x:=5+random(96)

 

[PleoMax]

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

Да, но я б и сам их решил... просто по болезням отсутсвовал на протяжении всего модуля.

 

[stan]

Люди, помогите, кто может. Уже голова болит, никак задачу догнать не могу:
Дано рядок-речення на російській мові і число k (0<k<10). Зашифрувати рядок, виконавши циклічну заміну кожної букви на букву того самого регістра, розміщену в алфавіті на k-й позиції після шифрованої букви (наприклад, для k=2 ‘А’ перейде у ‘В’, ‘а’ - у ‘в’, ‘Б’ - у ‘Г’, ‘я’ - у ‘б’ тощо).

 

[Hamster]

hint:
for i:=1 to length(s) do s:=chr(ord(s)+k);
тебе остается только разобраться со случаем "перехода" на начало алфавита.

 

[stan]

Спасибо, Ghost

 

[aker122]

Помогите написать програму на тему "циклы",если можно поскорее,условие задач:
1)Вычислить суму и произвидение положительних,нечетных чисел от 0 до 15.
2)Вычислить суму чисел от 20 до 100,кратных 3.
3)Вывести табличку на экран,синусов от 0 до пи/2,с шагом 0,1.
4)Найти суму дробей 1/2+1/3+1/4+...+29/30.

заране спс,зделайте шось,мона и не все сразу!!!

 

[Hamster]

2, 4 - уже решены. ищи.
3 - не забудь угол перевести в радианы.

 

[aker122]

2, 4 - уже решены. ищи.
3 - не забудь угол перевести в радианы.

где искать ?? в теме ??

 

[AkeL.php]

Примерно.
1.
sum:=0;
pr:=1;
for i:=1 to 15 do
if (i>0) and (i mod 2 <> 0) then
sum:=sum+i;
pr:=pr*i;
writeln(sum);
2.
sum:=0;
for i:=20 to 100 do
if (i mod 3 =0) then
sum:=sum+i;
writeln(sum);
3.
180 гр ~ 3рад.
i:=0
repeat
writeln(sin(i));
i:=i+0.1;
until i;
4.
sum:=0;
for i:=1 to 29 do
sum:=sum+1/(1+i);
writeln(sum);