Канарейкин А. И.
- Главная
- Разное
- Образование
- Спорт
- Естествознание
- Природоведение
- Религиоведение
- Французский язык
- Черчение
- Английский язык
- Астрономия
- Алгебра
- Биология
- География
- Геометрия
- Детские презентации
- Информатика
- История
- Литература
- Математика
- Музыка
- МХК
- Немецкий язык
- ОБЖ
- Обществознание
- Окружающий мир
- Педагогика
- Русский язык
- Технология
- Физика
- Философия
- Химия
- Шаблоны, фоны, картинки для презентаций
- Экология
- Экономика
Презентация, доклад по информатике на тему: Примеры совместного применения процедур и функций при Решении некоторых задач в Pascal
Содержание
- 1. Презентация по информатике на тему: Примеры совместного применения процедур и функций при Решении некоторых задач в Pascal
- 2. Цель : показать способы решения некоторых задач в Паскале с применением процедур и функций одновременно .
- 3. Задача 1 Написать программу, в которой происходит
- 4. var a,b,c:integer;h,r,f,sr:real;procedure Vr(x,y,z:integer;var h,r:real); beginh:=2*a+4+b*c;r:=(2+a+3*b)/c;end;function Dv(x,y,z:integer):integer;beginDv:=a+b+c;end;procedure Fr(a,b,c:integer;var
- 5. program primer;var a,b,c,d,s,f:integer;Procedure Sum (x,y,z,h:integer;var s:integer);begins:=x+y+z;end;function Pr
- 6. Слайд 6
Цель : показать способы решения некоторых задач в Паскале с применением процедур и функций одновременно .
Слайд 1ПРИМЕРЫ СОВМЕСТНОГО ПРИМЕНЕНИЯ ПРОЦЕДУР И ФУНКЦИЙ ПРИ РЕШЕНИИ НЕКОТОРЫХ ЗАДАЧ В
PASCAL.
Слайд 2Цель : показать способы решения некоторых задач в Паскале с применением
процедур и функций одновременно .
Слайд 3Задача 1 Написать программу, в которой происходит запрос у пользователя трёх
чисел, вызов 1-й процедуры и 1-й функции. Процедура находит суммму чисел, а функция их произведение. Результаты передают основной программе.
var a,b,c,s:integer;
Procedure Sum (x,y,z:integer;var s:integer);
begin
s:=x+y+z;
end;
function Pr (x,y,z:integer):integer;
begin
Pr:=a*b*c;
end;
begin
writeln ('Введите 3 числа');
read (a,b,c);
Sum (a,b,c,s);
writeln ('Сумма = ',s);
writeln ('Произведение = ',Pr(a,b,c));
end.
Слайд 4var a,b,c:integer;
h,r,f,sr:real;
procedure Vr(x,y,z:integer;var h,r:real);
begin
h:=2*a+4+b*c;
r:=(2+a+3*b)/c;
end;
function Dv(x,y,z:integer):integer;
begin
Dv:=a+b+c;
end;
procedure Fr(a,b,c:integer;var sr:real);
begin
sr:=f/3;
end;
begin
writeln ('Введите 3 числа');
read
(a,b,c);
f:=Dv(a,b,c);
Vr(a,b,c,h,r);
Fr(a,b,c,sr);
writeln ('Рез расчета= ',h);
writeln ('Рез расчета= ',r);
writeln ('Результат= ',f/10);
writeln ('Ср арифметическое = ',sr);
end.
f:=Dv(a,b,c);
Vr(a,b,c,h,r);
Fr(a,b,c,sr);
writeln ('Рез расчета= ',h);
writeln ('Рез расчета= ',r);
writeln ('Результат= ',f/10);
writeln ('Ср арифметическое = ',sr);
end.
Задача 2 Написать программу, в которой происходит запрос у пользователя трёх чисел, вызов 2-х процедур и 1-й функции. Результаты передают основной программе.
Слайд 5program primer;
var a,b,c,d,s,f:integer;
Procedure Sum (x,y,z,h:integer;var s:integer);
begin
s:=x+y+z;
end;
function Pr (x,y,z:integer):integer;
begin
Pr:=b*c*d;
end;
function max (x,y:integer):integer;
begin
if x>y
then max:=x else max:=y;
end;
begin
writeln ('Введите 4 числа');
read (a,b,c,d);
f:=min(min(a,b),min(c,d));
writeln ('Минимальное значение = ',f);
Sum (a,b,c,d,s);
writeln ('Сумма = ',s);
writeln ('Произведение = ',Pr(b,c,d));
end.
end;
begin
writeln ('Введите 4 числа');
read (a,b,c,d);
f:=min(min(a,b),min(c,d));
writeln ('Минимальное значение = ',f);
Sum (a,b,c,d,s);
writeln ('Сумма = ',s);
writeln ('Произведение = ',Pr(b,c,d));
end.
Задача 3 Написать программу, в которой происходит запрос у пользователя четырёх чисел, вызов 1-ой процедуры и 2-х функций. Результаты передают основной программе.
