Решение задач с помощью компьютера

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Список  литературы

 

1. Алексеев, Е.Р. Турбо Паскаль 7.0 / Е.Р. Алексеев, О.В. Чеснокова, В.Н. Павлыш, Л.В.Славинская. – М.: НТ Пресс, 2007.- 270, [2] с.: ил.
2. Алексеев, Е.Р. Турбо Паскаль 7.0 / Е.Р. Алексеев, О.В. Чеснокова – М.: НТ пресс, 2005. – 314, [6] с.: ил. – (Шаг за шагом).
3. Гарнаев А.Ю. Excel, VBA, Internet в экономике и финансах. – СПб.: БХВ - Петербург, 2002. – 816с.: ил.

 

Приложения

Приложение А

Алгоритм программы 1

 
 
Текст программы 1 на языке Паскаль

program zadacha1;                                                           

uses crt;                                                                   

const                                                                       

     n=4;                                                                   

     m=4;                                                                   

var                                                                         

   A:array[1..m,1..n] of integer;                                           

   i,j:integer;                                                            

   max,min,maximum:integer;                                                 

   jmax,jmin:integer;                                                      

begin                                                                      

     clrscr;                                                               

     writeln('vvedite elementy matricy ',m,' * ',n,' v stroky');            

     for i:=1 to m do                                                       

        begin                                                              

           for j:=1 to n do                                                

              read(A[i,j]);                                                 

        end;                                                                

     readln;                                                               

     maximum:=0;                                                            

     jmax:=1;                                                               

     jmin:=1;                                                               

     for i:=1 to m do                                                       

         begin                                                              

            max:=A[i,1];                                                    

            for j:=2 to n do                                                

               if A[i,j]>max then begin                                    

                                  max:=A[i,j];                             

                                  jmax:=j;                                  

                                  end;                                      

            min:=A[i,1];                                                    

            for j:=2 to n do                                                

               if A[i,j]<min then begin                                     

                                  min:=A[i,j];                              

                                  jmin:=j;                                  

                                  end;                                     

            if (jmax<jmin) and (max>maximum) then maximum:=max;             

         end;                                                               

     if maximum<>0 then writeln('maximum=',maximum)                         

                   else writeln('net podxodyacix strok');                   

readkey;                                                               

end.                                                                        

 

Рис. - Отладка программы

Рис. - Отладка программы

 

Алгоритм программы 2

 

 

Текст программы 2 на языке Паскаль

program zadacha2;                                                           

uses crt;                                                                   

const                                                                       

     n=4;                                                                   

     m=4;                                                                   

var                                                                         

   A:array[1..m,1..n] of integer;                                           

   i,j:integer;                                                             

   k,l:integer;                                                             

begin                                                                       

     clrscr;                                                                

     writeln('vvedite elementy matricy ',m,' * ',n,' v stroky');            

     for i:=1 to m do                                                       

        begin                                                               

           for j:=1 to n do                                                 

              read(A[i,j]);                                                 

        end;                                                               

     readln;                                                                

     writeln('vvedite nomer stroki');                                       

     readln(k);                                                             

     writeln('vvedite nomer stolbca');                                      

     readln(l);                                                             

     for i:=1 to m do                                                       

         A[i,l]:=-1*A[i,l];                                                 

     for j:=1 to n do                                                       

         A[k,j]:=-1*A[k,j];                                                 

     A[k,l]:=-1*A[k,l];                                                     

     writeln('polychennaya matrica:');                                     

     for i:=1 to m do                                                       

        begin                                                               

           for j:=1 to n do                                                 

              write(A[i,j],'  ');                                           

              writeln;                                                      

        end;                                                                

                                                                            

     readkey;                                                               

end.                     

 

Рис. - Отладка программы

  
Приложение В

Листы рабочей книги Excel

1. лист презентации

 

 

 

 

2. лист меню

 

 

 

3. лист решения нелинейного уравнения

 

 

 

4. лист решения системы линейных уравнений

 

 

 

5. лист решения задачи оптимизации

 

 

 

6. лист решения экономической задачи