PASCAL 5 СПОСОБАМИ.
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему: Пример решения задачи нахождения остатка от деления двух целых чисел в Pascal 5 способами
Содержание
- 1. Презентация по информатике на тему: Пример решения задачи нахождения остатка от деления двух целых чисел в Pascal 5 способами
- 2. Цель : показать разнообразие способов решения задач в Паскале на примере одной задачи.
- 3. 1 способ с помощью операторов div и modvar
- 4. var a,b: integer;beginwrite ('Введите а = ');readln
- 5. var a,b: integer;beginwrite ('Введите а = ');readln
- 6. var a,b,q,r: integer;beginwriteln ('Введите делимое a');readln (a);writeln ('Введите делитель b');readln (b);r:=a;q:=0;repeatr:=r-b;q:=q+1;until r
- 7. var a,b,q,r: integer;beginwriteln ('Введите делимое a');readln (a);writeln
- 8. Слайд 8
Цель : показать разнообразие способов решения задач в Паскале на примере одной задачи.
Слайд 31 способ с помощью операторов div и mod
var a,b: integer;
begin
write ('Введите а
= ');
readln (a);
write ('Введите b = ');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a mod b);
end
else
writeln('Ошибка! Деление на 0!');
end.
readln (a);
write ('Введите b = ');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a mod b);
end
else
writeln('Ошибка! Деление на 0!');
end.
Слайд 4var a,b: integer;
begin
write ('Введите а = ');
readln (a);
write ('Введите b =
');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a-b * (a div b));
end
else
writeln('Ошибка! Деление на 0!');
end.
readln (b);
if b<> 0 then begin
writeln('Целая часть = ', a div b);
writeln('Остаток = ', a-b * (a div b));
end
else
writeln('Ошибка! Деление на 0!');
end.
2 способ с помощью одного оператора div
Слайд 5var a,b: integer;
begin
write ('Введите а = ');
readln (a);
write ('Введите b =
');
readln (b);
if b<> 0 then begin
writeln('Целая часть = ',trunc(a/b));
writeln('Остаток = ',round(frac(a/b)*b));
end
else
writeln('Ошибка! Деление на 0!');
end.
readln (b);
if b<> 0 then begin
writeln('Целая часть = ',trunc(a/b));
writeln('Остаток = ',round(frac(a/b)*b));
end
else
writeln('Ошибка! Деление на 0!');
end.
3 способ с помощью функции отбрасывания дробной части числа trunc и функции возвращения дробной части аргумента frac
Слайд 6var a,b,q,r: integer;
begin
writeln ('Введите делимое a');
readln (a);
writeln ('Введите делитель b');
readln (b);
r:=a;
q:=0;
repeat
r:=r-b;
q:=q+1;
until
rwriteln ('Целая часть = ',q, 'Остаток = ',r );
end.
end.
4 способ с помощью цикла repeat
Слайд 7var a,b,q,r: integer;
begin
writeln ('Введите делимое a');
readln (a);
writeln ('Введите делитель b');
readln (b);
r:=a;
q:=0;
while
r>=b do
begin
r:=r-b;
q:=q+1;
end;
writeln ('Целая часть = ',q, 'Остаток = ',r );
end.
begin
r:=r-b;
q:=q+1;
end;
writeln ('Целая часть = ',q, 'Остаток = ',r );
end.
5 способ с помощью цикла while
