Регистрирайте сеРегистрирайте се

Лесна задача на Pascal


 
   Форум за математика Форуми -> Информатика/Компютри
Предишната тема :: Следващата тема  
Автор Съобщение
playmannn
Начинаещ


Регистриран на: 09 Dec 2006
Мнения: 4

Репутация: 5.6Репутация: 5.6Репутация: 5.6Репутация: 5.6Репутация: 5.6

МнениеПуснато на: Thu Jun 21, 2007 8:27 pm    Заглавие: Лесна задача на Pascal

Да се състави програма,която извежда четните числа от 1 до 100 и дава сбора им.
И същата,само че за нечетните числа...
Компилатор: Pascal


Последната промяна е направена от playmannn на Thu Jun 21, 2007 8:45 pm; мнението е било променяно общо 1 път
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Реклама







Пуснато на:     Заглавие: Реклама

Върнете се в началото
uktc
VIP


Регистриран на: 24 Jul 2006
Мнения: 1062

Репутация: 99.8Репутация: 99.8
гласове: 15

МнениеПуснато на: Thu Jun 21, 2007 8:45 pm    Заглавие:

program chetni;
var {main}
i, S:integer;

begin {main}

for i:=1 to 100 do
if i mod 2=0 then
writeln(i);

i:=2;
S:=0;

repeat
S:=S+i;
i:=i+2;
until i>100;

writeln('Sumata na chetnite chisla ot 1 do 100 e ',S);
readln;

end. {main}


Последната промяна е направена от uktc на Fri Jun 22, 2007 1:06 pm; мнението е било променяно общо 1 път
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Fed
VIP


Регистриран на: 24 May 2007
Мнения: 1136
Местожителство: София (Русе)
Репутация: 113.3
гласове: 33

МнениеПуснато на: Thu Jun 21, 2007 8:49 pm    Заглавие:

Че Paskal учи ли се още. Laughing Laughing Laughing
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
playmannn
Начинаещ


Регистриран на: 09 Dec 2006
Мнения: 4

Репутация: 5.6Репутация: 5.6Репутация: 5.6Репутация: 5.6Репутация: 5.6

МнениеПуснато на: Thu Jun 21, 2007 8:58 pm    Заглавие:

Мерси много,отсъствал съм на тоя урок Laughing
А за да стане за нечетните как се променя? Rolling Eyes
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
steliyan
Редовен


Регистриран на: 25 Oct 2006
Мнения: 100

Репутация: 22.2Репутация: 22.2
гласове: 2

МнениеПуснато на: Fri Jun 22, 2007 10:02 am    Заглавие:

Абе учи се..

Код:
Program Math10;
var
  I,S: integer;
begin
  S := 0;
  for I := 1 to 100 do
    if Odd(I) = False then
    begin
      Writeln(I);
      Inc(S,I);
    end;
  writeln('Sum=',S);
readln;
end.


Функцията Odd връща стойност True ако числото е нечетно и стойност False ако е четно, т.е. променяш Odd(I) = False на Odd(I) = True ако искаш да ти пресмята сумата на нечетните.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
lpishinov
Начинаещ


Регистриран на: 17 May 2007
Мнения: 71
Местожителство: Смолян
Репутация: 8.2Репутация: 8.2Репутация: 8.2Репутация: 8.2Репутация: 8.2Репутация: 8.2Репутация: 8.2Репутация: 8.2

МнениеПуснато на: Fri Jun 22, 2007 1:40 pm    Заглавие:

А аз ще предложа може би по-рационалното решение, няма нужда от излишни питания и процедури като odd Smile :
Program chetni;
var i,s:integer;
begin
i:=2;s:=0; { ako iskame da sa nechetni pochvame ot i=1 }
while i<=100 do
begin
write(i,' ');s:=s+i;
i:=i+2
end;
writeln;write('s = ',s);
end.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
krassi_holmz
Редовен


Регистриран на: 05 Jan 2006
Мнения: 146
Местожителство: Ню Йорк, BG
Репутация: 57.9
гласове: 18

МнениеПуснато на: Fri Jun 22, 2007 11:07 pm    Заглавие:

Най-добре е това Smile

program stup;
begin
writeln(2);
writeln(4);
writeln(6);
writeln(Cool;
writeln(10);
writeln(12);
writeln(14);
writeln(16);
writeln(1Cool;
writeln(20);
writeln(22);
writeln(24);
writeln(26);
writeln(2Cool;
writeln(30);
writeln(32);
writeln(34);
writeln(36);
writeln(3Cool;
writeln(40);
writeln(42);
writeln(44);
writeln(46);
writeln(4Cool;
writeln(50);
writeln(52);
writeln(54);
writeln(56);
writeln(5Cool;
writeln(60);
writeln(62);
writeln(64);
writeln(66);
writeln(6Cool;
writeln(70);
writeln(72);
writeln(74);
writeln(76);
writeln(7Cool;
writeln(80);
writeln(82);
writeln(84);
writeln(86);
writeln(8Cool;
writeln(90);
writeln(92);
writeln(94);
writeln(96);
writeln(9Cool;
writeln(100);
writeln(50*51);
end.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Покажи мнения от преди:   
   Форум за математика Форуми -> Информатика/Компютри Часовете са според зоната GMT + 2 Часа
Страница 1 от 1

 
Идете на:  
Не Можете да пускате нови теми
Не Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
Може да прикачвате файлове
Може да сваляте файлове от този форум
Copyright © 2005-2021 math10.com.