Компьютерді қолданудағы санитарлық-гигиеналық талаптар
Курсовая работа, 16 Июля 2012, автор: пользователь скрыл имя
Описание работы
Паскаль оқып-үйренуге жеңіл, түрлі салалық информациямен жұмыс істеуде нәтижелі болғандықтан, дүние жүзінде көп тараған тілдердің бірі. Оның ыңғайлылығы: тіл алгоритм құрылымын сақтап құрылған. Мұнда программаны бірте-бірте дамыту арқылы жинақты түрде құруға болады. Ол программалау тәсілін үйрену үшін де қажет.
Содержание работы
КІРІСПЕ 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
Файлы: 1 файл
Алгоритм.doc
— 640.00 Кб (Скачать файл)
ҚОСЫМША
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.