1.
var a,b,c,d,e,s1,s2:real;
procedure p(x,y,z:real; var s:real);
var p:real;
begin
p:=(x+y+z)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
end;
begin
writeln('a, b, c, d, e:');
readln(a,b,c,d,e);
p(a,b,c,s1);
p(c,d,e,s2);
writeln('s = ',s1+s2:5:2);
end.
Пример:
a, b, c, d, e:
5 2 6 3 4
s = 9.37
2.
var a,b,c,d,q:real;
function x(z,y:real):real;
begin
x:=exp((1/y)*ln(z));
end;
begin
writeln('a, b, c, d:');
readln(a,b,c,d);
q:=(x(b,a)+x(d,c))/x(b+d,a+c);
writeln('q = ',q:5:2);
end.
Пример:
a, b, c, d:
2 16 3 9
q = 3.1939
3.
Процедура используется, как правило, в тех случаях, когда требуется выполнить некоторые действия, не обязательно связанные с вычислениями (например, что-то ввести, вывести, нарисовать и т.д.). Кроме того, процедуры используются, если требуется вычислить несколько значений и использовать их в дальнейшем в основной программе. Функция применяется обычно для вычисления некоторого единственного значения.
PascalABC.Net
1)
var
i,s,p : integer;
begin
s := 0;
p := 1;
for i := 3 to 18 do
if (i-2) mod 3 = 0 then
begin
s := s + i;
p := p * i;
end;
writeln ('s=',s);
writeln ('p=',p);<span>
end.
2)
Программа не зачисляет процент в первый год, если нужно, чтобы зачислила, то поменяй местами строки вывода и присвоения внутри цикла
var
i : integer;
s : real;
begin
s := 10000;
for i := 2010 to 2015 do
begin
writeln (i,'-',s);
s := s * 1.1;
end;<span>
end.</span></span>
Согласно целям, поставленным при разработке, подсистема ввода-вывода в Windows должна обеспечивать приложениям абстракцию устройств — как аппаратных (физических), так и программных (виртуальных или логических) — и при этом предоставлять следующую функциональность:
Стандартные средства безопасности и именования устройств для защиты разделяемых ресурсов;
Высокопроизводительный асинхронный пакетный ввод-вывод для поддержки масштабируемых приложений;
Сервисы для написания драйверов устройств на высокоуровневом языке и упрощения их переноса между разными аппаратными платформами;
Поддержку многоуровневой модели и расширяемости для добавления драйверов, модифицирующих поведение других драйверов или устройств без внесения изменений в них;
Динамическую загрузку и выгрузку драйверов устройств, чтобы драйверы можно было загружать по требованию и не расходовать системные ресурсы без необходимости;
Поддержку Plug and Play, благодаря которой система находит и устанавливает драйверы для нового оборудования, а затем выделяет им нужные аппаратные ресурсы;
Управление электропитанием, чтобы система и отдельные устройства могли переходить в состояния с низким энергопотреблением;
Поддержку множества устанавливаемых файловых систем, в том числе FAT, CDFS (файловую систему CD-ROM), UDF (Universal Disk Format) и NTFS.
Поддержку Windows Management Instrumentation (WMI) и средств диагностики, позволяющую управлять драйверами и вести мониторинг за ними через WMI-приложения и сценарии. Для реализации этой функциональности подсистема ввода-вывода в Windows состоит из нескольких компонентов исполнительной системы и драйверов устройств ( надеюсь тебе это поможет )
#include <iostream>
//#include <string>
//#include <cstdlib>
//#include <ctime>
using namespace std;
/* пограмма на с++
*
*
*
*/
int main(){
//system("clear");
cout«endl«endl«endl;
//srand(time(0));
int n;
int u;
do{
cout«" сколько чисел : ";
cin»n;
u=n;
if(cin.fail()){
cin.clear();
cin.ignore(32767,'\n');
}; } while (u<=0);
int arr[n];
int s=0;
int p=1;
bool lol=false;
//заполнение
int y;
for(int w=0; w<n; w++){
do{
cout«" введите число номер "«w«" : ";
cin»y;
if(cin.fail()){
cin.clear();
cin.ignore(32767,'\n');};
} while (y == 0);
arr[w]=y;
if(arr[w]%2==0) {
s=s+arr[w];
p++;
lol=true;
};};
if(lol)cout«" среднее арефметическое чётных чисел : "«s/(p-1);
else cout«" среднее арефметическое чётных чисел ненайдено ";
cout«endl«endl«endl;
return 0;
}