|
Пример1.ВычислитьсуммупервыхNнатуральныхчисел.
program
|
| бет | 73/94 | | Дата | 27.09.2023 | | өлшемі | 11,54 Mb. | | #110921 | | түрі | Урок |
| Байланысты: 8 класс КСППример1.ВычислитьсуммупервыхNнатуральныхчисел.
programsumma_N_2;
vari,n,sum:integer;
begin
write('n=');{вводисходныхданныхсклавиатуры}
readln(n);{n-количествопервыхнатуральныхчисел}
sum:=0;{присвоимпеременнойsumначальноезначение0,}
i:=1;{апеременнойi-начальноезначение1}
whilei<=ndo{покаi<=nвыполнить}
begin
sum:=sum+i;{телоцикла}
i:=i+1;{переменнаяIменяетсявнутрицикла,иеевеличинаопределяеточередноеповторениециклаилизавершениеего}
end;
writeln('Sum=',sum);{выводрезультата}
end.
Результатвыполненияпрограммывслучаевводаn=10:
Пример2.Сколькослагаемыхдолжнобытьвсумме2+4+6+8+….,чтобыэтасуммаоказаласьбольшенекоторогоданногонатуральногочислаN.
Программарешениязадачиможетиметьвид:
ProgramKol_slag;
vari,x,sum,n:integer;{i-счетчикслагаемых,
впеременнуюxбудутзаписыватьсяслагаемые,
впеременнойsumбудетнакапливатьсясумма}
begin
x:=2;{первоеслагаемоеравно2}
i:=1;{начальноезначениесчетчикаслагаемыхравно1}
sum:=2;
write('n=');
readln(n);{вводчислаn}
whilesum<=ndo{покаsum<=nвыполнитьтелоцикла}
begin
x:=x+2;{следующееслагаемоена2большепредыдущего}
i:=i+1;{увеличениесчетчикаслагаемыхна1}
sum:=sum+x;{прибавлениеочередногослагаемогоксумме}
end;
writeln(i,'слагаемых');
end.
РезультатвыполненияпрограммыприN=30:
CпомощьюоператораWhileможнорисоватьразличноеколичествографическихфигур.Например,заполнятьэкранкругамиразличнымспособом:вдольверхнегокраяэкрана,вдольнижнегокрая,вдольлевогокраяит.д..
Достарыңызбен бөлісу: |
|
|
