Помощь - Поиск - Пользователи - Календарь
Полная версия: расчет конечных сумм > Информатика / Программирование
Образовательный студенческий форум > Другие дисциплины > Информатика / Программирование
Sanek
пожалуйста помогите решить задачку:
написать программу расчета конечной суммы и сравнения полученого результата с контрольным значением. число членов вводится с клавиатуры с защитой от возможного неверного ввода данных:
вид суммы: 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 дальше я не знаю что делать,помогите пожалуйста кто может. unsure.gif
Inspektor
Цитата(Sanek @ 14.9.2008, 12:40) *

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 дальше я не знаю что делать,помогите пожалуйста кто может. unsure.gif

newconfus.gif . Ого...
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
спасибо,в дальнейшем буду по внимательней bigwink.gif smile.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.
Русская версия Invision Power Board © 2001-2025 Invision Power Services, Inc.