Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Практические работы по программированию циклов






Результат набора и отладки программ:

Программа Summ_1 (цикл с предусловием)

Program Summ_1;

Var S, Eps: Real;

I: Integer;

Begin

S: =0;

I: =1;

While (1/I > = Eps) And (I< MaxInt) Do

Begin

S: = S + 1/I;

I: = I + 1

End;

WriteLn('S= ', S, ' I= ', I)

 

End.

 

Программа Summ_2 (цикл с постусловием)

Program Summ_2;

Var S, Eps: Real;

I: integer;

Begin

S: =0;

I: =1;

Repeat

S: = S+1/I;

I: =I+1

Until (1/I < Eps) Or (I> = MaxInt);

WriteLn ('S= ', S, ' I= ', I);

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
ПП.01.ПМ01 625. 14  

End.

Программа Adding (структура цикла «Пока»)

Program Adding;

Var I, M, N, Summa: Integer;

Begin

Write (‘M= ‘);

ReadLn(M);

Write (‘N= ‘);

ReadLn(N0;

Summa: = 0;

I: = M;

While I < = N Do

Begin

Summa: = Summa + I;

I: = Succ(I0

End;

WriteLn (‘Сумма равна’, Summa)

End.

Программа Summering_2 (цикл по параметру)

Program Summering_2;

Var I, M, N, Summa: Integer;

Begin Write ('M= ');

ReadLn(M);

Write('N= ');

ReadLn(N);

Summa: =0;

For I: =M To N Do

Summa: = Summa+I;

WriteLn('Summa Ravna ', Summa: 8)

End.

Программа Summering_3 (цикл по параметру в обратном порядке)

Program Summering_3;

Var I, M, N, Summa: Integer;

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
ПП.01.ПМ01 625. 14  

Begin Write ('M= ');

ReadLn(M);

Write('N= ');

ReadLn(N);

Summa: =0;

For I: =N DownTo M Do

Summa: = Summa+I;

WriteLn('Summa Ravna ', Summa: 8)

End.

Упражнение 4

Составить программу, по которой последовательность символов будет вводиться до тех пор, пока не встретится строчная или прописная латинская буква «z». Подсчитать, сколько раз среди вводимых символов встретится буква «W».

 

 

Program Sim;

Var S: Integer;

I: Char;

Begin

S: = 0;

Repeat

Read (I);

If I='W'

Then S: = S+1

Until (I='Z') Or (I='z');

Write ('W=', S);

End.

Упражнение 6

Вычислить число точек с целочисленными координатами, попадающих в круг с радиусом и с центром в начале координат.

 

 

Program Chislo_tochek;

Var M, K, x, y, R: Integer;

Begin

R: =1;

For y: =-R To R Do

For x: =-R To R Do

If sqr(x) + sqr(y) < =sqr(R)

Then K: = K+1;

Изм.
Лист
№ докум.
Подпись
Дата
Лист
 
ПП.01.ПМ01 625. 14  

Write (' K=', K);

End.






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.