И.
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему: Нахождение максимального и минимального элемента с помощью функций в Pascal
Содержание
- 1. Презентация по информатике на тему: Нахождение максимального и минимального элемента с помощью функций в Pascal
- 2. Цель : показать на примерах как решаются
- 3. var a,b,c,d:real;function max (x,y:real):real;begin if x>y then
- 4. var a,b,c,d,f:real;function max (x,y:real):real;begin if x>y then
- 5. var a,b,c,d,f:integer;function min (x,y:integer):integer;begin if x
- 6. var a,b,c,d,f,g:integer;function max (x,y:integer):integer;begin if x>y then max:=x else max:=y; end;function min(x,y:integer):integer;begin if x
- 7. Слайд 7
Цель : показать на примерах как решаются задачи в Паскале на отыскание максимального и минимального элемента с помощью функций. Также показано, как в программе вызвать две функции.
Слайд 2Цель : показать на примерах как решаются задачи в Паскале на
отыскание максимального и минимального элемента с помощью функций. Также показано, как в программе вызвать две функции.
Слайд 3var a,b,c,d:real;
function max (x,y:real):real;
begin
if x>y then max:=x else max:=y;
end;
begin
readln (a,b,c);
d:=max(max(a,b),c);
writeln (‘d=',d);
end.
d:=max(max(a,b),c);
writeln (‘d=',d);
end.
Задача 1 Нахождение максимума из 3 чисел
Слайд 4var a,b,c,d,f:real;
function max (x,y:real):real;
begin
if x>y then max:=x else max:=y;
end;
begin
readln (a,b,c,d);
f:=max(max(a,b),max(c,d));
writeln ('f=',f);
end.
f:=max(max(a,b),max(c,d));
writeln ('f=',f);
end.
Задача 2 Нахождение максимума из 4 чисел
Слайд 5var a,b,c,d,f:integer;
function min (x,y:integer):integer;
begin
if x
readln (a,b,c,d);
f:=min(min(a,b),min(c,d));
writeln ('f=',f);
end.
f:=min(min(a,b),min(c,d));
writeln ('f=',f);
end.
Задача 3 Нахождение минимума из 4 чисел
Слайд 6var a,b,c,d,f,g:integer;
function max (x,y:integer):integer;
begin
if x>y then max:=x else max:=y;
end;
function
min(x,y:integer):integer;
begin
if x end;
begin
readln (a,b,c,d);
f:=max(max(a,b),max(c,d));
writeln ('f=',f);
g:=min(min(a,b),min(c,d));
writeln ('g=',g);
writeln ('Разность максимального и минимального из 4 чисел = ',f-g);
end.
begin
if x
begin
readln (a,b,c,d);
f:=max(max(a,b),max(c,d));
writeln ('f=',f);
g:=min(min(a,b),min(c,d));
writeln ('g=',g);
writeln ('Разность максимального и минимального из 4 чисел = ',f-g);
end.
Задача 4 Нахождение максимума и минимума из 4 чисел, а также их разности с использованием двух функций
