2015-04-17
851
29. Составить программу, которая по введенной заглавной букве выводит название столиц мира: Москва, Париж, Лондон, Рим.
30. Составить программу, которая выводит меню и при вводе буквы вычисляет соответствующую функцию:
A - Abs x
S - Sin x
C - Cos x
III. ЦИКЛЫ
операторы:
| Оператор | Назначение | Синтаксис |
| For | Цикл с параметром | For <перем>:=<начальное знач> to <кон.знач> do <оператор>; Значение переменной изменяется от начального значения к конечному с шагом 1. For <перем>:=<нач. знач> downto <конеч. знач> do <оператор>; Значение переменной изменяется от начального значения к конечному с шагом -1 |
| While | Цикл с предусловием | While <условие> do <оператор>; Цикл выполняется, пока условие истинно. |
| Repeat Until | Цикл с постусловием | Repeat <Операторы>; Until <условие>; Цикл выполняется, пока условие ложно. |
Пример 1.
Вывести квадраты первых десяти натуральных чисел.
Решение:
Program pr1;
Var i, x: integer;
begin
for i:=1 to 10 do begin {перебираем натуральные числа от 1 до 10}
|
|
|
x:=sqr(i); {возводим очередное число в квадрат}
write(x, ' '); {выводим полученное значение}
end;
readln
end.
Результат
1 4 9 16 25 36 49 64 81 100
Пример 2.
Найти сумму 1 + 1/3 + 1/5 +...(N слагаемых).
Решение:
Program pr2;
Var I, N: integer;
S: real;
begin
Write('N='); Readln(N); {вводим количество слагаемых}
S:=0; {обнуляем сумму}
For I:=1 to N do {выполняем цикл N раз, добавляя к сумме по од ному слагаемому}
S:=S+1/(2*I-1);
Writeln('S=',S:5:2); {выводим значение суммы с двумя десятичными знаками}
Readln
end.
Результат:
N=4
S= 1.68
Пример 3.
Дано натуральное число n. Найти сумму S=1+2/3+3/7... (n слагаемых)
| Решение: Program pr3; var i,b,n:integer; s:real; begin write('Введите n '); readln(n); s:=1; b:=3; for i:=2 to n do begin s:=s+ i/b; b:=b+4; end; writeln('сумма=',s:4:2); readln; end. |
Результат:
Введите n 5
сумма=2.79
Пример 4.
Дано натуральное число n. Вычислить 31+32+…...+3n
| Решение: program pr4; var i,n:integer; s:real; begin write('введите n '); readln(n); s:=0; for i:=1 to n do s:=s+ exp(i*ln(3)); writeln('сумма=',s:4:0); readln; end. |
Результат:
введите n 5
сумма= 363
Пример 5.
Найти сумму ряда: S = x - x2 /4 + x3/9 - x4/16... (n слагаемых).
Решение:
Program Pr5;
Var i, n, z: integer;
p, s: real;
begin
writeln ('введите n'); readln (n);
writeln('введите x'); readln(x);
z:=1; p:=x; s:=0;
for i:=1 to n do begin
s:= s + z*p/sqr(i); p:=p*x; z:=-z
end;
writeln ('S=', S:6:2);
readln
end.
Пример 6.
Вычислить произведение:
(1 + sin2)*(2 + sin3)*... (n сомножителей).
Найти сумму ряда: S = x - x2 /4 + x3/9 - x4/16... (n слагаемых).
Решение:
Рrogram Pr6;
Var n, i: integer;
p: real;
begin
write('n='); readln(n); p:=1;
for i:=1 to n do
p:=p* (i + sin(i+1));
writeln('p=', p:6:3);
readln
end.
Результат:
n=5
p=131.645
