Компьютеристам :)

[Valerija]

Люди,мне очень нужен человек,который разбирается в Паскале.Помогите пожалуйста составить программу(очень надо,завтра мне ее сдавать).Вот сама задача,по которой надо составить программу: 1*2+2*3+3*4+.........+19*20
Заранее благодарна

 

[Dianell]

Хм.. ну я в паскале немного химичу
А есть дополнительные условия? Типа "составить с применением функций/программ/ещё чего" :?:

 

[Valerija]

Нет,дополнительных условий нету.Надо просто составить программу,которая бы вычислила это выражение

 

[skubird]

Ватсон, это же элементарно. Паскаль я уже не помню, давно было, но алгоритм примерно такой.

Создаешь переменные типа "целые числа" и присваиваешь им следующие значения:
n=1 (это будет первый множитель в произведениях, которые надо складывать)
s=0 (из этого потом получится сумма)

И дальше цикл:

s:=s+n(n+1)
n:=n+1

И сделать, чтобы этот цикл выполнялся до n=19 включительно.
Потом выводишь s на экран, и всё.

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

 

[Valerija]

skubird
Спасибо большое,попробую сама,но с моими способностями в Паскале я простенькие задачи решить не могу,не говоря уж о таких.Так что если Вам не очень трудно,составьте пожалуйста программу

 

[skubird]

program skubird; {я назвала программу в честь себя :lol:}

var

N,S: integer; {это переменные}

begin

N:=1;
S:=0;

for N:=1 to 19 do

begin {это цикл начался}

S:=S+N(N+1);
N:=N+1;

end;

writeln('Otvet: ',S); {это результат на экран вывелся}

end.

Воот... по идее, должно работать.

 

[Valerija]

Спасибо Вам большое,Вы спасли меня от двойки по информатике ray: :aplod: Даже не буду менять название у программы,пусть народ знает героя