Практическая часть 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. Составить алгоритм и программу, в которой величина А приняла бы значение В, а величина В значение А. Выполнить эту программу для величин различных типов.
Басқа тілде оқу
Download PDF
Бақылау
Өңдеу
Ақпараттық қауіпсіздік — мемлекеттік ақпараттық ресурстардың, сондай-ақ ақпарат саласында жеке адамның құқықтары мен қоғам мүдделері қорғалуының жай-күйі.
Ақпаратты қорғауӨңдеу
Ақпаратты қорғау — ақпараттық қауіпсіздікті қамтамасыз етуге бағытталған шаралар кешені. Тәжірибе жүзінде ақпаратты қорғау деп деректерді енгізу, сақтау, өңдеу және тасымалдау үшін қолданылатын ақпарат пен қорлардың тұтастығын, қол жеткізулік оңтайлығын және керек болса, жасырындылығын қолдауды түсінеді. Сонымен, ақпаратты қорғау - ақпараттың сыртқа кетуінің, оны ұрлаудың, жоғалтудың, рұқсатсыз жоюдың, өзгертудің, маңызына тимей түрлендірудің, рұқсатсыз көшірмесін жасаудың, бұғаттаудың алдын алу үшін жүргізілетін шаралар кешені
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
begin
readln(a[i]);
//если ввели положительное число,увеличим перем. otr на 1
if a[i] < 0 then
inc(otr);
//если ввели отрицательное число,увеличим перем. k на 1
//и к переменной m прибавим элемент
if a[i] > 0 then
begin
inc(k);
inc(m, a[i]);
end;
end;
//заполним массив d
for i:=1 to l do
//если индекс четный, присвоим элементу otr
//иначе присвоим среднее арифметическое
if i mod 2 = 0 then
d[i] := otr
else
d[i] := m/k;
end.