Измерение информации

Пример1.ВычислитьсуммупервыхNнатуральныхчисел. program

жүктеу/скачать 11,54 Mb.

бет	73/94
Дата	27.09.2023
өлшемі	11,54 Mb.
	#110921
түрі	Урок

1 ... 69 70 71 72 73 74 75 76 ... 94

Пример2

Пример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:

n=10
Sum=55

Пример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:

n=30
6слагаемых

CпомощьюоператораWhileможнорисоватьразличноеколичествографическихфигур.Например,заполнятьэкранкругамиразличнымспособом:вдольверхнегокраяэкрана,вдольнижнегокрая,вдольлевогокраяит.д..

жүктеу/скачать 11,54 Mb.

Достарыңызбен бөлісу:

1 ... 69 70 71 72 73 74 75 76 ... 94