Освіта- шлях розвитку особистості
Освіта і самоосвіта
Фото
Ресурси сайта camil-v.narod.ru
Розділи
лекції,конспекти
- Вища математика для студентів і учнів
- Література Українська, зарубіжна
- Українська мова вчителю
- Фізика конспекти,шпори ,лабораторні...
- Філософія різне...
- Математика алгебра ,геометрія
- Астрономія Студентам
- Інформатика ресурси
- Програмування Delphi,pascal,С++...
- Інженерна графіка конспекты
- Теоретична фізика книги конспекти
- Довідники ресурси
- Цікаве в світі науки
Комп'ютер помічник
Програма Mathcad
Програма призначена для обрахунків і візуалізації математичних даних.Використовується як студентами так і учнями в повсякденному начанні ,при вирішенні складних завданнь
вищої математики ,геометрії ,алгебри і навіть фізики,біології ...Програма дуже зручна в користуванні ,але для кращого розуміння матемтичних операцій краще скачати інструкцію.
Новини науки і техніки
Українське радіо
Українське радіо
Метод половинного ділення N1
uses crt;
label finish;
var a,b,d,e,x1,fa,f1 : real;
ch : char;
function f(x:real):real;
begin
f := sin(x)/cos(x) - x;
end;
procedure OutputRes;
begin
clrscr;
writeln('x = ',x1:6:4);
writeln('Погрешность* = ',d:6:4);
writeln; writeln('Для продолжения нажмите любую клавишу...');
repeat ch := readkey until ch <> '';
end;
BEGIN
clrscr;
writeln('Введите координаты концов отрезка* a, b, точность e');
write('a = '); readln(a);
write('b = '); readln(b);
write('e = '); readln(e);
if f(a)*f(b) > 0 then goto finish;
repeat
x1 := (a + b)/2; f1 := f(x1);
if f1 = 0 then
begin
d := 0;
OutputRes;
goto finish;
end;
fa := f(a);
if fa * f1 < 0 then b := x1 else a := x1;
d:= b - a;
OutputRes;
until d < e;
finish : END.
uses crt;
var a,b,d,e,x1,fa,f1 : real;
function f(x:real):real;
begin
f := 8cosx-x-6;
end;
BEGIN
clrscr;
write('Vvedite a:'); readln(a);
write('Vvedite b:'); readln(b);
write('Vvedite tochnost e:'); readln(e);
if f(a)*f(b) > 0 then exit;
repeat
x1 := (a + b)/2; f1 := f(x1);
if f1 = 0 then
d := 0;
fa := f(a);
if fa * f1 < 0 then b := x1 else a := x1;
d:= b - a;
until abs(d) < e;
writeln('Koren= ',x1:6:4);
writeln('Pogreshost= ',d:6:4);
readln;
end.
Завдання №1
Написати програму ,яка створює одновимірний масив 10 чисел та виводить на екран середнє арифметичне 5 перших його елементів та найбільший з 5 останніх.
Повний код програми
program zadacha_1;
uses crt;
var
a: array [1..10] of integer;
max:integer;
s: integer;
i: integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
begin
write ('a[',i,']=');
readln (a[i]);
s:=s+a[i];
end;
i:=i+1;
writeln ('s=',s);
readln;
for i:=1 to 5 do
begin
clrscr;
writeln('5');
for i:=1 to 5 do
begin
writeln ('a[',i,']=',a[i]);
end;
begin
clrscr;
for i:=5 to 10 do
begin
write ('a[',i,']=');
readln (a[i]);
end;
i:=i+1;
readln;
for i:=5 to 10 do
begin
writeln('5');
for i:=5 to 10 do
begin
writeln ('a[',i,']=',a[i]);
end;
max:=a[1];
for i:=5 to 10 do
begin
if a[i] > max then
begin
max:=a[i];
end;
end;
writeln;
writeln ('max=',max);
writeln;
for i:=5 to 10 do
end;
end;
end;
end.
Завдання №2
Задано одновимірний масив n цілих чисел . Знайти суму додатних та кількість від’ємних його елементів.
Повний код програми
program zadacha_2;
uses crt;
var
a: array [1..100] of integer; {массив чисел}
i: integer;{индекс}
k1,k2,k3: integer; {количество положительных, отрицательных, нулевых
элементов}
n: integer; {количество элементов массива}
s: integer;
begin
clrscr;
write('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
writeln('a[',i,']=');
readln (a[i]);
end;
for i:=1 to n do
begin
if (a[i] < 0) then
begin
k1:=k1+1;
end;
if (a[i] > 0) then
begin
s:=s+a[i];
end;
end;
writeln('відємні числа - ',k1);
writeln ('s=',s);
readln;
end.
Завдання№3
Дано натуральне число n. З’ясувати ,яка кількість від’ємних елементів містить матриця, транспонована від
, 
Повний код програми
program zadacha_6;
uses crt;
var
a:array [1..50,1..50] of real;
n:integer;
i,j:integer;
k:real;
z:real;
begin
clrscr;
write ('Введите количество строк и столбцов в матрице');
readln (n);
k:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then
begin
a[i,j]:=sin(i+j/2);
k:=k+1;
end;
for i:=1 to n do {Просмотр всех строк матрицы}
for j:=i+1 to n do {Просмотр всех элементов в строке, расположенных выше главной диагонали}
begin
k:=a[i,j];
a[i,j]:= a[j,i];
a[j,i]:= k;
end;
z:=0;
for j:=1 to n do
for i:=1 to n do
if a[i,j]<0 then z:=z+1;
if z>0 then
writeln('відємних элементів'' зустр в масиві',z,'рази.')
else
writeln('відємних элементів в масиві не має');
end.
label finish;
var a,b,d,e,x1,fa,f1 : real;
ch : char;
function f(x:real):real;
begin
f := sin(x)/cos(x) - x;
end;
procedure OutputRes;
begin
clrscr;
writeln('x = ',x1:6:4);
writeln('Погрешность* = ',d:6:4);
writeln; writeln('Для продолжения нажмите любую клавишу...');
repeat ch := readkey until ch <> '';
end;
BEGIN
clrscr;
writeln('Введите координаты концов отрезка* a, b, точность e');
write('a = '); readln(a);
write('b = '); readln(b);
write('e = '); readln(e);
if f(a)*f(b) > 0 then goto finish;
repeat
x1 := (a + b)/2; f1 := f(x1);
if f1 = 0 then
begin
d := 0;
OutputRes;
goto finish;
end;
fa := f(a);
if fa * f1 < 0 then b := x1 else a := x1;
d:= b - a;
OutputRes;
until d < e;
finish : END.
Метод половинного ділення N2
program rock;uses crt;
var a,b,d,e,x1,fa,f1 : real;
function f(x:real):real;
begin
f := 8cosx-x-6;
end;
BEGIN
clrscr;
write('Vvedite a:'); readln(a);
write('Vvedite b:'); readln(b);
write('Vvedite tochnost e:'); readln(e);
if f(a)*f(b) > 0 then exit;
repeat
x1 := (a + b)/2; f1 := f(x1);
if f1 = 0 then
d := 0;
fa := f(a);
if fa * f1 < 0 then b := x1 else a := x1;
d:= b - a;
until abs(d) < e;
writeln('Koren= ',x1:6:4);
writeln('Pogreshost= ',d:6:4);
readln;
end.
Завдання №1
Написати програму ,яка створює одновимірний масив 10 чисел та виводить на екран середнє арифметичне 5 перших його елементів та найбільший з 5 останніх.
Повний код програми
program zadacha_1;
uses crt;
var
a: array [1..10] of integer;
max:integer;
s: integer;
i: integer;
begin
clrscr;
s:=0;
for i:=1 to 5 do
begin
write ('a[',i,']=');
readln (a[i]);
s:=s+a[i];
end;
i:=i+1;
writeln ('s=',s);
readln;
for i:=1 to 5 do
begin
clrscr;
writeln('5');
for i:=1 to 5 do
begin
writeln ('a[',i,']=',a[i]);
end;
begin
clrscr;
for i:=5 to 10 do
begin
write ('a[',i,']=');
readln (a[i]);
end;
i:=i+1;
readln;
for i:=5 to 10 do
begin
writeln('5');
for i:=5 to 10 do
begin
writeln ('a[',i,']=',a[i]);
end;
max:=a[1];
for i:=5 to 10 do
begin
if a[i] > max then
begin
max:=a[i];
end;
end;
writeln;
writeln ('max=',max);
writeln;
for i:=5 to 10 do
end;
end;
end;
end.
Завдання №2
Задано одновимірний масив n цілих чисел . Знайти суму додатних та кількість від’ємних його елементів.
Повний код програми
program zadacha_2;
uses crt;
var
a: array [1..100] of integer; {массив чисел}
i: integer;{индекс}
k1,k2,k3: integer; {количество положительных, отрицательных, нулевых
элементов}
n: integer; {количество элементов массива}
s: integer;
begin
clrscr;
write('Введите количество элементов в массиве');
readln(n);
for i:=1 to n do
begin
writeln('a[',i,']=');
readln (a[i]);
end;
for i:=1 to n do
begin
if (a[i] < 0) then
begin
k1:=k1+1;
end;
if (a[i] > 0) then
begin
s:=s+a[i];
end;
end;
writeln('відємні числа - ',k1);
writeln ('s=',s);
readln;
end.
Завдання№3
Дано натуральне число n. З’ясувати ,яка кількість від’ємних елементів містить матриця, транспонована від
, Повний код програми
program zadacha_6;
uses crt;
var
a:array [1..50,1..50] of real;
n:integer;
i,j:integer;
k:real;
z:real;
begin
clrscr;
write ('Введите количество строк и столбцов в матрице');
readln (n);
k:=0;
for i:=1 to n do
for j:=1 to n do
if i=j then
begin
a[i,j]:=sin(i+j/2);
k:=k+1;
end;
for i:=1 to n do {Просмотр всех строк матрицы}
for j:=i+1 to n do {Просмотр всех элементов в строке, расположенных выше главной диагонали}
begin
k:=a[i,j];
a[i,j]:= a[j,i];
a[j,i]:= k;
end;
z:=0;
for j:=1 to n do
for i:=1 to n do
if a[i,j]<0 then z:=z+1;
if z>0 then
writeln('відємних элементів'' зустр в масиві',z,'рази.')
else
writeln('відємних элементів в масиві не має');
end.