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

Автор: Sanek 14.9.2008, 8:40

пожалуйста помогите решить задачку:
написать программу расчета конечной суммы и сравнения полученого результата с контрольным значением. число членов вводится с клавиатуры с защитой от возможного неверного ввода данных:
вид суммы: 1+3+5...+(2*N-1) и контрольное значение N*N
вот что у меня получается:
var
a.b,i:integer; N:real;
a=0
for i:=1 to N do
a:=(2N-1)+a;
b:=N*N;
writlen(a);
writlen(b );
.....a дальше я не знаю что делать,помогите пожалуйста кто может.

Автор: Inspektor 14.9.2008, 9:03

. Ого...
1) Где begin, end?
2) Что такое "writlen"?
3) С какого перепоя "N:real"?
4) Где чтение переменной N с клавиатуры?
5) В цикле используется не та переменная:
for i:=1 to N do
a:=(2N-1)+a;
Ну и просто ничтожные после такого поправки:
1) Пишем внимательно, опечаток слишком много.
2) Используйте integer по назначению, вам нужен без знаковый тип.
3) Переменная b не нужна.
Ответьте строго по пунктам.

Автор: Sanek 14.9.2008, 13:48

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