Автор работы: Пользователь скрыл имя, 16 Июля 2012 в 15:22, курсовая работа
Паскаль оқып-үйренуге жеңіл, түрлі салалық информациямен жұмыс істеуде нәтижелі болғандықтан, дүние жүзінде көп тараған тілдердің бірі. Оның ыңғайлылығы: тіл алгоритм құрылымын сақтап құрылған. Мұнда программаны бірте-бірте дамыту арқылы жинақты түрде құруға болады. Ол программалау тәсілін үйрену үшін де қажет.
КІРІСПЕ 4
1 ЖАЛПЫ БӨЛІМ 5
1.1 Алгоритм және оның қасиеттері 5
1.2 Программаларды жасақтау технологиясы 9
1.3 Есепті компьютерде шығарудың негізгі кезеңдері 11
1.4 Программалауда кездесетін қателіктер 16
2. АРНАЙЫ БӨЛІМ 18
2.1 TURBO PASCAL тілінің негізгі элементтері 18
2.2 Жоғарғы математика есептерін Паскаль тілінде шығару 25
2.2.1 Крамер формуласы. Есептің қойылуы 25
3.ЭКОНОМИКАЛЫҚ БӨЛІМ 31
3.1 Бағдарламалық қамсыздандыруды құру қажеттігінің негіздемесі 31
3.2 Программаны ендіру шығындарын есептеу 35
3.3 Жүйені ендіруге дейінгі шығынды есептеу 36
3.4 Шығын үнемділігін есептеу 38
4. ТЕХНИКАЛЫҚ ҚАУІПСІЗДІК ШАРАЛАРЫ 39
4.1 Еңбек қорғау жүйесі туралы түсінік 39
4.2 Компьютерді қолданудағы санитарлық-гигиеналық талаптар 42
4.3 Микроклимат 44
ҚОРЫТЫНДЫ 48
ҚОЛДАНЫЛҒАН ӘДЕБИЕТТЕР ТІЗІМІ 49
uses crt;
var i,j,k,l,m,n,h,g1,g2:integer;
s,x1,x2,x3,d:real;
a:array[1..9,1..10] of integer;
x:array[1..9] of real;
begin
clrscr;
l:=0; h:=0;
writeln('****************
writeln('*****Vvedite razmer massiva*****');
write('n= ');
readln(n);
write('m= ');
readln(m);
writeln('*****Vvedite massiv *****');
for i:=1 to n do
for j:=1 to m do begin
write('a[',i,',',j,']= ');
readln(a[i,j]);
end;
clrscr;
writeln('*****Dano massiv*****');
for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
writeln('*********************
writeln;
for i:=1 to n-1 do begin
l:=l+1;h:=h+1; g1:=-a[l,h];
for j:=h to n-1 do begin
g2:=a[j+1,i];
for k:=l to m do
a[j+1,k]:=a[i,k]*g2+a[j+1,k]*
end;
end;
{for i:=1 to n do begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;}
writeln;
writeln;
writeln;
x[m-1]:=a[n,m]/a[n,n];
for i:=n-1 downto 1 do begin
s:=0;
for j:=i+1 to n do
s:=s+a[i,j]*x[j];
x[i]:=(a[i,m]-s)/a[i,i];
end;
for i:= 1 to n do
writeln('x[',i,']= ',x[i]:4:2);
readln;
end.
Информация о работе Компьютерді қолданудағы санитарлық-гигиеналық талаптар