- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад на тему Решение задач в Паскале на циклы
Содержание
- 1. Решение задач в Паскале на циклы
- 2. Виды циклов
- 3. For i:=N1 to N2 doBeginтело циклаEnd;Цикл с параметром
- 4. While dobegin ;
- 5. Repeat ; ; . . . Until ;Цикл с пост-условием
- 6. Задача №1Ввести с клавиатуры ряд чисел, признак
- 7. Program Summa_While;Const W=0; Var chislo, S:
- 8. Задача №2Ввести с клавиатуры ряд чисел, признак
- 9. Program Summa_Repeat; Const R=0; Var chislo,
- 10. Задача №3Ввести с клавиатуры несколько дробных чисел,
- 11. Program Trunc_While; Const W =1000;
- 12. Изменить программу так, чтобы она находила:дробную часть
- 13. Вводить с клавиатуры числа
- 14. Вводить с клавиатуры символы до тех пор,
Виды циклов
Слайд 6Задача №1
Ввести с клавиатуры ряд чисел, признак окончания ввода – число
0.
Найти сумму чисел введённых чисел.
Найти сумму отрицательных чисел.
Найти сумму чисел введённых чисел.
Найти сумму отрицательных чисел.
Слайд 7Program Summa_While;
Const W=0;
Var chislo, S: integer;
Begin
S:= 0;
Write (‘Введи число ’);
Readln (chislo);
While chislo <> W do
begin
Write (‘Введи число ’);
Readln (chislo);
S := S + chislo;
end;
Writeln (‘Сумма = ’, S);
Readln
End.
Readln (chislo);
While chislo <> W do
begin
Write (‘Введи число ’);
Readln (chislo);
S := S + chislo;
end;
Writeln (‘Сумма = ’, S);
Readln
End.
Program Summa_Repeat;
Const W=0;
Var chislo, S: integer;
Begin
S:= 0;
Repeat
Write (‘Введи число ’);
Readln (chislo);
S := S + chislo;
Until chislo =W;
Writeln (‘Сумма = ’, S);
Readln
End.
Слайд 8Задача №2
Ввести с клавиатуры ряд чисел, признак окончания ввода – число
0.
Найти сумму отрицательных чисел, введённых с клавиатуры.
Найти сумму отрицательных чисел, введённых с клавиатуры.
Слайд 9Program Summa_Repeat;
Const R=0;
Var chislo, S: integer;
Begin
S:= 0;
Repeat
Write (‘Введи число ’);
Readln (chislo);
if chislo <0 then S := S + chislo;
Until chislo = R;
Writeln (‘Сумма = ’, S);
Readln
End.
Write (‘Введи число ’);
Readln (chislo);
if chislo <0 then S := S + chislo;
Until chislo = R;
Writeln (‘Сумма = ’, S);
Readln
End.
Слайд 10Задача №3
Ввести с клавиатуры несколько дробных чисел, признак окончания ввода –
число 1000. Найти и напечатать целую часть каждого числа.
Слайд 11Program Trunc_While;
Const W =1000;
Var chislo: real;
Begin
Write
(‘Введи число ’);
Readln (chislo);
While chislo <> W do
begin
Writeln (‘Целая часть = ’, Trunc (chislo));
Write (‘Введи число ’);
Readln (chislo)
end;
Readln
End.
Readln (chislo);
While chislo <> W do
begin
Writeln (‘Целая часть = ’, Trunc (chislo));
Write (‘Введи число ’);
Readln (chislo)
end;
Readln
End.
Слайд 12Изменить программу так, чтобы она находила:
дробную часть чисел;
произведение чисел, меньших 22;
сумму
чисел, которые попадают в промежуток [10, 50].
среднее арифметическое введенных чисел.
среднее арифметическое введенных чисел.
Подумай и реши!
Слайд 13 Вводить с клавиатуры числа до тех пор, пока
не будет введено число "100". Найти:
количество четных чисел (таких, у которых остаток от деления на 2=0);
сумму отрицательных чисел ;
произведение чисел, попадающих в интервал [5; 15];
количество четных чисел (таких, у которых остаток от деления на 2=0);
сумму отрицательных чисел ;
произведение чисел, попадающих в интервал [5; 15];
Задача №4
Слайд 14Вводить с клавиатуры символы до тех пор, пока не будет введен
пробел.
Определить, сколько было введено маленьких английских букв.
Изменить программу так, чтобы она находила количество введенных чисел.
Определить, сколько было введено маленьких английских букв.
Изменить программу так, чтобы она находила количество введенных чисел.
Домашняя работа
