Помощь - Поиск - Пользователи - Календарь
Полная версия: Программа нахождения суммы чисел от 1 до 100
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
SlimShady
13.05.2005 16:04
Вот условие:
--------------------------------------------------------------------------------------------
1.Составить программу нахождения суммы чисел от 1 до 100, используя три типа цикла:
·цикл с предусловием WHILE
·цикл с постусловием REPEAT . . . UNTIL
·цикл с параметром FOR . . . TO . . . DO
--------------------------------------------------------------------------------------------
Я сделал с параметром FOR.....вроде всё работает (но всё равно проверьте на всякий случай)
Код

uses Crt;
var i,n,s: integer;
begin
ClrScr;
textcolor(yellow);
write('Введите любое число меньше ста');
read(n);
s:=0;
for i:=1 to n do
s:=s+i;
if n<=100 then writeln('Сумма чисел от 1 до ',n:3,' равна ',s:6,'');
if n>100 then writeln('Это число больше ста!');
read;
repeat until keypressed;
end.


А вот с While у меня чё-то не получается сделать......вот что я сделал....

Код

uses Crt;
var i,s,n: integer;
begin
ClrScr;
write('Введите первое число');
read(n);
s:=0;
i:=1;
repeat
 s:=s+i;
 i:=i+1;
until i>100;
s:=0;
if n>100 then writeln('Это число больше ста');
if n<100 then writeln('Сумма чисел от 1 до ',n:3,' равна ',s:6,'');
read;
repeat until keypressed;
end.

И в этот момент начинается игра: Найди десять ошибок.....=)))

Она запускается но не считает......
virt
13.05.2005 16:14
writeln((1 + 100) * 100 div 2)
volvo
13.05.2005 16:20
SlimShady
Ты по условию должен найти сумму чисел 1 .. 100
Вот и находи ее, и никаких дополнительных вводов числа тебе не нужно. Учись правильно читать условие...
С циклом For:
for i := 1 to 100 do s := s + i;

С циклом While:
i := 1;
while i <= 100 do begin
  s := s + i;
  i := i + 1;
end;


С циклом Repeat:
i := 1;
repeat
  s := s + i;
  i := i + 1;
until i > 100;


Вот и все...

virt,
этот способ конечно быстрее, но по условию-то надо пользоваться циклами... ;)
SlimShady
13.05.2005 17:03
То есть всё что от меня требуется....это???

WHILE...

Uses Crt;
var i,s: integer;
begin
ClrScr;
i:=1;
while i<= 100 do begin
 s:=s+i;
 i:=i+1;
end;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.



REPEAT...

Uses Crt;
var i,s: integer;
begin
ClrScr;
i := 1;
repeat
  s:=s+i;
  i:=i+1;
until i>100;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.



FOR...

Uses Crt;
var i,s: integer;
begin
ClrScr;
 for i:=1 to 100 do s:=s+i;
writeln('Сумма чисел от 1 до 100 равна ---> ',s,'');
read;
repeat intil keypressed;
end.



Спасибо!!!
(у меня осталась одна нерешённая задача.....)
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.