Файл: Turbo Pascal.docx

Министерство науки и высшего образования Российской Федерации

Федеральное государственное бюджетное образовательное учреждение высшего образования

«Пермский национальный исследовательский политехнический университет»

Отчетная работа по теме: Turbo Pascal.

Выполнил: студент гр. НГТ-22-2С Осипанов Б.С. Проверил: ст.препод. каф. ГЭМ

Чалов И.А

program zadanie3;var a,b,x,y,z:real;begin x:=1.426;y:=1.220;z:=3.5;a:=(2*cos(x-pi/6))/(0.5+sqr(sin(y)));b:=(1+sqr(z))/(3+sqr(z)/5);writeln('a=',a);writeln('b=',b);end.var a,b,n:real;beginread(a,b);if sqr(a)>sqr(b) thenwrite('n=1')else write('n=2');end.program zadanie5;var x,y,x1,a: real; b:integer;beginb:=2;a:=-0.5;x:=0;x1:=0.15;while x<=3 dobeginif x<1 thenbeginy:=1;writeln('y2=',y,' x2=',x);end;if (x>=1) and (x<=2) thenbeginy:=a*x*x*ln(x);writeln('y1=',y,' x1=',x);end;if x<1.3 thenbeginy:=pi*(x*x)-7/(x*x);writeln('y4=',y,' x4=',x);end;if x>2 thenbeginy:=Exp(x*a)*cos(b*x);writeln('y3=',y,' x3=',x);end;x:=x+x1;end;end.

---

var t1,x1,y,a,x,t:real;begina:=-2.1;x:=1;x1:=0.2;t:=2;t1:=0.2;while (x<=2) and (t<=3) dobeginy:= sqrt(t+1)*EXP(-a*x*t)*cos(t-a);t:=t+t1;writeln('При x=',x,' и t=',t-t1,' y=',y);x:=x+x1;end;y:= sqrt(t+1)*EXP(-a*x*t)*cos(t-a);t:=t+t1;writeln('При x=',x,' и t=',t-t1,' y=',y);x:=x+x1;end.var i,k: integer; s,z: real;begins:= 0;z:=1;for i := 1 to 7 dobegins:= s + (-1)**(i+1)/(i*(i+1)*(i+2));writeln('При i=',i, ' Сумма ряда = ',s);end;for i := 1 to 7 dobeginz:= z*(-1)**(i+1)/(i*(i+1));writeln('При i=',i, ' Произведение = ',z);end;writeln('Сумма = ', s:0:10);writeln('Произведение = ', z:0:10);end.var x, y, max,maxX: real;beginmax :=0; maxX:=0;x := 0; while x <= 2 dobeginy := 2+x-sqr(x);if y > max thenmax:=y;if x>maxX thenmaxX:=x; writeln('Промежуточное значение y=',y,' x=',x);x := x + 0.25; end;writeln('Наибольшее значение функции= ', max);writeln('Наибольшее значение аргумента= ', maxX);end.

---

program zadanie9;constSIZE = 5; // размер массиваvararr: array [1..SIZE] of integer; // массив для хранения чиселi, count: integer; // переменные для цикла и подсчета не нулевых элементовbegin// вводим элементы массива с клавиатурыwriteln('Введите ', SIZE, ' целых чисел:');for i := 1 to SIZE dobeginwrite('Элемент ', i, ': ');readln(arr[i]);end;// считаем количество не нулевых элементовcount := 0;for i := 1 to SIZE do beginif arr[i] <> 0 thencount := count + 1;end;// выводим результатwriteln('Количество не нулевых элементов: ', count);end.program zadanie10;constROWS = 3; // количество строк в массивеCOLS = 4; // количество столбцов в массивеvararr: array [1..ROWS, 1..COLS] of integer; // массив для хранения чиселsum: array [1..COLS] of integer; // массив для хранения суммы элементов по столбцамi, j: integer; // переменные для цикловbegin// вводим элементы массива с клавиатурыwriteln('Введите ', ROWS, ' строк по ', COLS, ' чисел:');for i := 1 to ROWS do beginfor j := 1 to COLS do beginread(arr[i, j]);end;end;// вычисляем сумму элементов по столбцамfor j := 1 to COLS do beginsum[j] := 0;for i := 1 to ROWS do beginsum[j] := sum[j] + arr[i, j];end;end;// выводим результатwriteln('Сумма элементов по столбцам:');for j := 1 to COLS do beginwrite(sum[j], ' ');end;end.

---

program zadanie11;constROWS = 6; // количество строк в матрице DCOLS = 7; // количество столбцов в матрице DP = 3; // номер строки, после которой нужно вставить новую строкуQ = 5; // номер столбца, после которого нужно вставить новый столбецvarD: array [1..ROWS, 1..COLS] of real; // матрица DC: array [1..COLS+1, 1..ROWS+1] of real; // матрица C (расширенная)a: array [1..COLS+1] of real; // новая строкаb: array [1..ROWS+1] of real; // новый столбецi, j: integer; // переменные для цикловbegin// заполняем матрицу D случайными действительными числами от -10 до 10randomize;for i := 1 to ROWS do beginfor j := 1 to COLS do beginD[i, j] := random * 20 - 10;write(D[i, j]:8:2, ' ');end;writeln;end;// заполняем новую строку a и новый столбец bfor j:= 1 to COLS+1 do begina[j] := j;end;for i:=1 to ROWS+1 do beginb[i]:=i;end;// копируем матрицу D в матрицу C с учетом вставки новой строки и столбцаfor i := 1 to ROWS+1 do beginfor j := 1 to COLS+1 do beginif (i <= P) and (j <= Q) then beginC[i, j] := D[i, j];end else if (i = P+1) and (j <= COLS+1) then beginC[i, j] := a[j];end else if (j = Q+1) and (i <= ROWS+1) then beginC[i, j] := b[i];end else if (i > P+1) and (j <= COLS+1) then beginC[i, j] := D[i-1, j];end else if (j > Q+1) and (i <= ROWS+1) then beginC[i, j] := D[i, j-1];end;end;end;// выводим матрицу C на экранwriteln('Матрица C:');for i := 1 to ROWS+1 do beginfor j := 1 to COLS+1 do beginwrite(C[i, j]:8:2, ' ');end;writeln;end;end.program zadanie15;uses GraphABC;constX_MIN = -15; // минимальное значение аргументаX_MAX = 5; // максимальное значение аргументаSTEP = 0.1; // шагvarx, y: real;begin// устанавливаем размер окна и цвет фонаSetWindowSize(800, 600);SetWindowCaption('График функции y=2*sin(x)*EXP(x/5)');SetPenColor(clBlack);SetBrushColor(clWhite);ClearWindow;// рисуем координатные осиLine(0, WindowHeight div 2, WindowWidth, WindowHeight div 2); // горизонтальная осьLine(WindowWidth div 2, 0, WindowWidth div 2, WindowHeight); // вертикальная ось// рисуем график функцииx := X_MIN;while x <= X_MAX dobeginy := 2*sin(x)*EXP(x/5);PutPixel(round(x*10) + WindowWidth div 2, -round(y*100) + WindowHeight div 2,clBlack);x := x + STEP;end;end. 1>

---