«Задачи Pascal. Вычислить значение выражения по формуле (все переменные принимают действительные значения)» - Контрольная работа

Содержание

1. Вычислить значение выражения по формуле (все переменные принимают действительные значения): .

2. Вычислить значение функции:

3. Написать программу, которая бы по введенному номеру единицы измерения (1-кг, 2-мг, 3-тонна, 5-центнер) и массе М выдавала бы соответствующее значение массы в кг.

4. Составить программу для вычисления значений функции на отрезке [a,b] с шагом h. Результаты представить в виде таблицы (1-ый столбец – значения аргумента, 2-ой – значения функции).

5. Дано натуральное число n и действительное число а. Вычислить .

6. Дан массив из 10 элементов. Получить 2 массива: 1-ый - четные числа уменьшить на произведение пятидесятого и последнего элементов, 2-ой - числа, стоящие на нечетных местах увеличить на максимальный элемент исходного массива.

7. В заданном одномерном массиве поменять местами соседние элементы, стоящие на четных местах, с элементами, стоящими на нечетных местах.

8. Сформировать квадратную матрицу порядка n по заданному образцу: .

9. Заданы матрица порядка n и число k. Разделить элементы k-й строки на диагональный элемент, расположенный в этой строке.

---

Выдержка из текста работы

program p19;

const n=10;

var f:file of integer;

h,k,i,j:integer;

a:array [1.n] of integer;

begin

assign(f,'file99.dat');

rewrite(f);

randomize;

for i:=1 to n do

begin

a[i]:=random(10)-4;

write(f,a[i]);

end;

close(f);

k:=0;

for i:=1 to n do write(a[i],' ');

for i:=1 to n-1 do

for j:=i+1 to n do

if (a[i]=-a[j])and(a[i]<>0) then begin k:=k+1;

for h:=1 to n do if a[h]=abs(a[j]) then a[h]:=-100; end;

writeln ('kol-vo=',k);

end.

---

Заключение

var

f1,f:text;

q,i,j:integer;

q1:array[1.100] of string[20];

begin

assign(f,'assort2.txt');

reset(f);

repeat

i:=i+1;

readln(f,q1[i]);

until eof(f);

close(f);

for q:=1 to 9 do writeln(q1[q]);

for q:=1 to 9 do

for j:=q+1 to 10 do

if q1[q]=q1[j] then q1[q]:='';

writeln('_');

for q:=1 to 10 do writeln(q1[q]);

readln;

end.

---

Примечания

К работе прилагается все исходники.