Помогите найти ошибку

Margosham-k · 04.04.2012, 18:56

Цитата:

// Найти сумму чисел, кратных n, на отрезке от а до b.
program zad1;
uses crt;
var
a,b,i,n,sum:integer;
begin
write('a');
read (a);
write('b');
read (b);
write('n');
read (n);
sum:=0;
for i:=a to b do
begin
if a mod n = 0 then sum:=sum+i;
end;
write('summa = ', sum);
end.

программа считает сумму всех чисел...а мне нужно чтобы только кратные N.. в чем ошибка?

Vladimir_S · 04.04.2012, 20:53

Цитата:

Сообщение от Margosham-k

в чем ошибка?

Вот в этой строке:
у Вас: if a mod n = 0 then sum:=sum+i;
а надо: if i mod n = 0 then sum:=sum+i;
Кроме того, рекомендую считывание чисел с экрана делать командой не read, а readln. С read можете нарваться на заморочки.

Margosham-k · 04.04.2012, 21:27

спасибо за помощь=)

kreol · 04.04.2012, 22:35

Цитата:

Сообщение от Vladimir_S

С read можете нарваться на заморочки.

Я конечно использую readln (почти всегда, красивей ввод получается:-) ) но какие заморочки с read?
Когда юзал вроде все ок...

Vladimir_S · 05.04.2012, 10:00

Цитата:

Сообщение от kreol

Я конечно использую readln (почти всегда, красивей ввод получается:-) ) но какие заморочки с read?
Когда юзал вроде все ок...

Подробно об этом (и на "бытовом" уровне - у меня, и на профессиональном - у LongCat) здесь:
Паскаль пропускает оператор ввода строки

kreol · 05.04.2012, 16:20

Угу. Ясно. В принципе я правильно использовал read для файлов. Просто не осознавал этого

Ну а для чтения с клавиатуры походит не плохо.

Кст. read интересно использовать когда имеешь дело с масивом символов (у нас в универе был такой глюк у преподавателя, нельзя было использовать string)

Код:

var a: array [0..4] of string;
    i: integer;
begin
for i:= 0 to 4 do
    read(a[i]);
writeln(a[0]);
end.

Вполне культурно считывает строку)

Vladimir_S · 08.04.2012, 21:13

Цитата:

Сообщение от kreol

Вполне культурно считывает строку)

Ну ничего себе - "культурно"! Программа должна считать 4 строки и после этого выдать на экран первую, а она что делает? Считывает первую, воспроизводит ее на экране и вылетает. Та еще "культура".

05.04.2012, 16:20	#6 (permalink)
kreol Member Регистрация: 27.02.2010 Сообщений: 659 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 1312	Угу. Ясно. В принципе я правильно использовал read для файлов. Просто не осознавал этого Ну а для чтения с клавиатуры походит не плохо. Кст. read интересно использовать когда имеешь дело с масивом символов (у нас в универе был такой глюк у преподавателя, нельзя было использовать string) Код: var a: array [0..4] of string; i: integer; begin for i:= 0 to 4 do read(a[i]); writeln(a[0]); end. Вполне культурно считывает строку)

04.04.2012, 18:56
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Наверняка в похожих топиках вы найдете много полезной для себя информации Помогите найти ошибку Помогите найти ошибку на плате Помогите найти ошибку Помогите найти ошибку в Пролог-Д Помогите найти ошибку

04.04.2012, 21:27	#3 (permalink)
Margosham-k Member Регистрация: 07.12.2011 Сообщений: 35 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	спасибо за помощь=)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070