- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Решение задач с использованием циклов на языке Turbo Pascal (9 класс)
Содержание
- 1. Решение задач с использованием циклов на языке Turbo Pascal (9 класс)
- 2. Запись оператора цикла WhileWhile do ;
- 3. Repeat оператор 1; оператор 2;
- 4. For i := n1 to (downto) n2 do ; Запись оператора цикла For
- 5. Найти сумму первых n элементов ряда apsb
- 6. For i:=1 to n do Until i>n; Repeat end;While i
- 7. нетдаСоставить программу, печатающую таблицу значений функции на отрезке [-5, 5] с шагом 1да
- 8. дадаВывести на экран прямоугольник , заполненный *
- 9. Program pr;Uses Crt;Var a, b, x, y:integer;BeginClrscr;Write('Введите
- 10. * * * * * * **
Слайд 3Repeat
оператор 1;
оператор 2;
...
оператор
Until <условие>;
Запись оператора цикла Repeat … Until
Слайд 6For i:=1 to n do
Until i>n;
Repeat
end;
While i
Var n, i: integer;
s, p, a, b, x: real;
Begin
writeln(‘Введите число членов ряда, n=’);
readln(n);
i:=1;
s:=0;
Writeln(’Сумма первых ’,n,’элементов ряда = ’,s);
Readln;
End.
write('Введите x= ');
readln(x);
a:=1;
a:=a*i;
p:=b/a;
s:=s+p;
b:=b*x;
i:=i+1;
b:=x;
![нетдаСоставить программу, печатающую таблицу значений функции на отрезке [-5, 5] с шагом 1да](/img/tmb/4/385338/0957b5479f1508c8e09c552f1b956926-800x.jpg "Решение задач с использованием циклов на языке Turbo Pascal (9 класс) нетдаСоставить программу, печатающую таблицу значений функции на отрезке [-5, 5] с шагом 1да")
Слайд 8да
да
Вывести на экран прямоугольник
, заполненный *
* * * *
* * * * * * * *
* * * * * * * *
* * * * * * * *
Слайд 9Program pr;
Uses Crt;
Var a, b, x, y:integer;
Begin
Clrscr;
Write('Введите высоту a= ');
Readln(a);
Write('Введите ширину
Readln(b);
For y:=1 to a do
begin
gotoxy(20, 5+y);
For x:=1 to b do write('* ');
end;
Readln;
End.
Слайд 10* * * * * * *
* * * * *
* * * * * * *
* * * * * * *
Uses Crt;
Var a, b, x, y, c:integer;
Begin
clrscr;
randomize;
write(‘введите высоту a= '); readln(a);
write(‘введите длину b= '); readln(b);
for y:=1 to a do
begin
gotoxy(20, 5+y);
for x:=1 to b do
begin
c:=random(16);
TextColor(c);
write('* ');
end;
end;
readln;
End.
