- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Решение задач по теме Цикл с предусловием
Содержание
- 1. Решение задач по теме Цикл с предусловием
- 2. Задача 1 (табулирование функции)Вычислить значения функции y=x2
- 3. Задача 2 Найти сумму
- 4. Задача 3 Вычислить сумму ряда чисел
- 5. Задача 4 Вычислить сумму ряда чисел
- 6. Задача 5Дано: Курс доллараначальное значение суммы в
- 7. Решение Program test;Var k,nsd,ksd,sd,sr,h:real;Begin Writeln(‘Введите курс доллара');
- 8. Задача 6 Известны n оценок по
- 9. Задача 7 Дано N целых чисел.
Слайд 2Задача 1 (табулирование функции)
Вычислить значения функции y=x2 на отрезке [1,10]
Program test1;
Var x,y: integer;
Begin
x := 1;
While x<=10 do
Begin
y:= sqr(x);
Writeln (‘x=’,x:2,’ y=’,y);
x:= x+1;
End;
End.
![Задача 1 (табулирование функции)Вычислить значения функции y=x2 на отрезке [1,10] с шагом 1Program test1;Var x,y: integer;Beginx](/img/thumbs/0c143f6bfc56547c940ceb0d73f734de-800x.jpg "Решение задач по теме Цикл с предусловием Задача 1 (табулирование функции)Вычислить значения функции y=x2 на отрезке [1,10] с")
Слайд 3Задача 2 Найти сумму пяти первых
Program test;
Var x, s : integer;
Begin
X:=1;
S:=0;
While x<=5 do
Begin
S:=S+X;
X:=X+1;
End;
Writeln (‘Сумма=’, S);
End.
Слайд 4Задача 3 Вычислить сумму ряда чисел
Program test;
Var x, s : integer;
Begin
X:=2;
S:=0;
While x<=50 do
Begin
S:=S+X;
X:=X+2;
End;
Writeln (‘Сумма=’, S);
End.
Слайд 5Задача 4 Вычислить сумму ряда чисел
Program test;
Var x: integer;
s:real;
Begin
X:=1;
S:=0;
While x<=6 do
Begin
S:=S+1/X;
X:=X+1;
End;
Writeln (‘Сумма=’, S:4:2);
End.
Слайд 6Задача 5
Дано:
Курс доллара
начальное значение суммы в долларах
конечное значение суммы в
шаг пересчета валюты
Получить:
пересчет долларовой суммы в рубли
Формула пересчета:
Сумма в рублях =
сумма в долларах * курс доллара в руб.
Вывести результат в табличной форме
Слайд 7Решение
Program test;
Var k,nsd,ksd,sd,sr,h:real;
Begin
Writeln(‘Введите курс доллара');
Readln(k);
Writeln(‘Введите начальную сумму
Readln(nsd);
Writeln(‘Введите конечную сумму в долларах ');
Readln(ksd);
Writeln(‘Введите шаг');
Readln(h);
sd:=nsd;
Writeln(‘Доллары Рубли');
While sd<=ksd do
Begin
sr:=sd*k;
Writeln(sd:4:2, ' ',sr:4:2);
sd:=sd+h;
End;
End.
Слайд 8Задача 6 Известны n оценок по информатике за 1 четверть.
Program test;
Var x,s,n: integer;
sred:real;
Begin
S:=0;
Writeln(‘введите количество оценок’);
Readln(n);
While x<=n do
Begin
Writeln(‘введите оценку’);
Readln(x);
S:=S+X;
X:=X+1;
End;
sred:=s/n;
Writeln (‘Средний балл=’, Sred:4:2);
End.
Слайд 9Задача 7 Дано N целых чисел. Вычислить произведение положительных чисел.
Program
Var x,n,p: integer;
Begin
p:=1;
Writeln(‘введите количество чисел’);
Readln(n);
While x<=n do
Begin
Writeln(‘введите число’);
Readln(x);
if x>0 then p:=p*x;
X:=X+1;
End;
Writeln (‘Произведение’, p);
End.
