Практическая часть 1. Составить алгоритм и программу для вычисления стоимости покупки и сдачи. С клавиатуры вводят наименование товара, стоимость единицы товара (1 кг или 1 штуки), количество купленного товара и количество денег.
2. Составить алгоритм и программу, вычисляющую значение функции
√ 2 X2 + 5 X
Y(X) =
4 X2 + 9 , значение аргумента вводить с клавиатуры.
3. Составить алгоритм и программу для вычисления результата целочисленного деления числа М на число N и остатка для любых целых чисел введенных с клавиатуры. Выводить информацию в виде: М=N*X+Y, где X – частное, Y – остаток.
4. Составить алгоритм и программу для вычисления координат середины отрезка AB, если с клавиатуры вводятся координаты точек А(х1, у1) и В(х2, у2).
5. Составить алгоритм и программу, которая осуществляет перевод угла F из градусной меры в радианную (F*PI/180) и вычислить синус и косинус этого угла. Значение угла в градусах вводится с клавиатуры. (Используйте константу PI=3,141592653…)
6. Составить алгоритм и программу, в которой величина А приняла бы значение В, а величина В значение А. Выполнить эту программу для величин различных типов.
begin
var a:=ArrRandom(10,-50,50);
writeln('1)'); a.Println;
writeln('Среднее арифметическое четных элементов = ',
a.Where(x->x mod 2=0).Average);
var c:=ArrRandom(10,-50,50);
writeln('2)'); c.Println;
writeln('max+min = ',c.Max+c.Min);
writeln('3)');
var n:=ReadInteger('n =');
var b:=SeqGen(n,random(5),x->x+random(1,5)).ToArray;
b.Println;
var s:=ReadInteger('s =');
var k:=b.Where(x->x<s).Count;
b:=b[:k]+Arr(s)+b[k:];
b.Println;
end.
Пример:
1)
-24 12 -31 -5 -45 36 27 43 46 -6
Среднее арифметическое четных элементов = 12.8
2)
24 -13 -20 -47 16 27 -33 11 22 -33
max+min = -20
3)
n = 10
0 4 5 7 11 15 19 20 24 25
s = 10
0 4 5 7 10 11 15 19 20 24 25
const n=4;
begin
Writeln('1 массив:');
var a:=MatrRandom(n,n,-10,10); a.Println(6);
Writeln('2 массив:');
var b:=MatrRandom(n,n,-10,10); b.Println(6);
var c:=a.ElementsByRow.Where(x->x<0)+b.ElementsByRow.Where(x->x<0)+
a.ElementsByRow.Where(x->x=0)+b.ElementsByRow.Where(x->x=0)+
a.ElementsByRow.Where(x->x>0)+b.ElementsByRow.Where(x->x>0);
c.Println;
end.
Пример:
1 массив:
-6 -3 1 8
6 -3 -8 0
8 10 -3 -9
1 -9 -2 6
2 массив:
-7 -1 -3 9
-2 -6 5 2
0 10 1 0
5 -2 5 5
-6 -3 -3 -8 -3 -9 -9 -2 -7 -1 -3 -2 -6 -2 0 0 0 1 8 6 8 10 1 6 9 5 2 10 1 5 5 5