![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Практические работы по программированию циклов
Результат набора и отладки программ: Программа 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);
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;
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;
Write (' K=', K); End.
|