1. Рассмотреть решение ДЗ
Задачи for21.pas:
var i, n: integer;
s,p:real;
begin
writeln('Найти 1/1!+1/2!+... 1/N!');
write('Введите число N: ');
readln(n);
p:=1;
s:=0;
for i:=1 to n do begin p:=p*i; s:=s+1/p; end;
writeln('1/1!+1/2!+... 1/N!=',s:10:4);
end.
Задача for26.pas:
var n,i: integer;
x,s,ai:real;
begin
writeln('Найти X-X^3/3+ X^5/5-...+(-1)^N*X^(2*N+1)/(2*N+1)');
write('Введите число N: ');
readln(n);
write('Введите значение x: ');
readln(x);
ai:=1;
for i:=1 to n do
begin s:=s+ai;
ai:=-ai*x*x/(2*i-1)/(2*i+1)
end;
writeln (s:10:4, Arctan(x):10:4);
end.
2. Понятие одномерного массива
Задачи for21.pas:
var i, n: integer;
s,p:real;
begin
writeln('Найти 1/1!+1/2!+... 1/N!');
write('Введите число N: ');
readln(n);
p:=1;
s:=0;
for i:=1 to n do begin p:=p*i; s:=s+1/p; end;
writeln('1/1!+1/2!+... 1/N!=',s:10:4);
end.
Задача for26.pas:
var n,i: integer;
x,s,ai:real;
begin
writeln('Найти X-X^3/3+ X^5/5-...+(-1)^N*X^(2*N+1)/(2*N+1)');
write('Введите число N: ');
readln(n);
write('Введите значение x: ');
readln(x);
ai:=1;
for i:=1 to n do
begin s:=s+ai;
ai:=-ai*x*x/(2*i-1)/(2*i+1)
end;
writeln (s:10:4, Arctan(x):10:4);
end.
2. Понятие одномерного массива
Массив – это группа однотипных элементов, имеющих общее имя и расположенных в памяти рядом.
Особенности:
- все элементы имеют один тип;
- весь массив имеет одно имя;
- все элементы расположены в памяти рядом.
3. Объявление массива
Зачем объявлять?
4. Заполнение массива с клавиатуры и вывод на экран
5. Решение задач из решебника
Стр. 49. Решить задачи: array2, array5.
6. Домашнее задание
Стр. 49. Решить задачи: array3, array6.
Зачем объявлять?
- определить имя массива;
- определить тип массива;
- определить число элементов;
- выделить место в памяти.
5. Решение задач из решебника
Стр. 49. Решить задачи: array2, array5.
6. Домашнее задание
Стр. 49. Решить задачи: array3, array6.
Комментариев нет:
Отправить комментарий