Необходимо составить блок схему и проверить правильность кода. условие : в автоматизированной информационной системе содержатся анкетные данные сотрудников учреждения. в массиве y(8) содержатся года рождения сотрудников, в массиве p(8) - сведения о поле, в массиве s(8) - сведения о семейном положении. элемент массива y с номером n - год рождения сотрудника n, элемент массива p с номером n - сведения о поле сотрудника n, элемент массива s с номером n - сведения о семейном положении сотрудника n. p(n) = 0, сотрудник n женского пола p(n) = 1, сотрудник n мужского пола s(n) = 0, сотрудник n холост (не замужем) s(n) = 0, сотрудник n женат (замужем) определить: процентное соотношение количество женщин в возрасте до 55 лет к = х 100 общее количество женщин var y, p, s: array[1..8] of integer; i, jt, j, t: integer; begin write('который сейчас год? '); readln(t); jt : = 0; j : = 0; writeln('введите сведения о сотрудниках.'); for i : = 1 to 8 do begin writeln('сотрудник ', i); write('год рождения? '); readln(y[i]); writeln('пол (0 - женский, 1 - мужской)? '); readln(p[i]); writeln('семейное положение (0 - холост/не замужем, 1 - женат/замужем)? '); readln(s[i]); if p[i] = 0 then begin inc(j); if y[i] - t < 55 then inc(jt) end end; if j > 0 then writeln('k = ', jt / t * 100 : 0: 2, '%') else writeln('среди сотрудников нет женщин'); readln end.
Ответы
1. и 2. записываем в столбик в виде суммы:
1. + n 3 8 9 8
2 n 7 5 m
m 8 5 n 3
ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно.
11 c|c M=6 n = 4
ответ: основание системы 11, m=6, n=4
2. m m 65 n
+2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6.
Проверим по действиям в 7 с/с, при сложении в столбик,
при m=3 и n=1
и удостоверимся, что всё верно.
ответ: осн. с\с = 7, m=3, n=1
3. пусть основание с\с будет X? тогда:
(4*X^2+X+5)*4 =2*X^3+2*X^2+6*X+6
раскрываем скобки, преобразуем и получаем уравнение:
(2*X - 14)*(X^2+1) = 0 ---> X=7
ответ:7
1. + n 3 8 9 8
2 n 7 5 m
m 8 5 n 3
ясно, что основание искомой с/с > 10. Проверим и удостоверимся, что в 11c|c действия выполняются верно.
11 c|c M=6 n = 4
ответ: основание системы 11, m=6, n=4
2. m m 65 n
+2 n 4 4 m
5 5 4 2 4 очевидно, что основание искомой с/с > 6.
Проверим по действиям в 7 с/с, при сложении в столбик,
при m=3 и n=1
и удостоверимся, что всё верно.
ответ: осн. с\с = 7, m=3, n=1
3. пусть основание с\с будет X? тогда:
(4*X^2+X+5)*4 =2*X^3+2*X^2+6*X+6
раскрываем скобки, преобразуем и получаем уравнение:
(2*X - 14)*(X^2+1) = 0 ---> X=7
ответ:7
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
СУБД загрузка данных из внешних источников. Индексирование и связывание таблиц
Автор: lugowskayatania2017
Https://resh.edu.ru/subject/lesson/3309/train/#193104
Автор: dm1trviktor585
Что можно отнести к достоинствам векторной графики по сравнению с растровой?
Автор: Aleksandrovich1075
Вдетской магнитной азбуке 32 буквы какое количество информации содержит сообщение о том что из них был собран и муравей
Автор: beliaevabeliaeva-olesya35
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50);
Writeln('Исходный массив'); a.Println;
var se:=a.Where(x->x mod 3=0);
if se.Count=0 then
Writeln('В массиве нет элементов, кратных трем')
else begin
var b:=se.Max;
var i:=0;
while a[i]<>b do Inc(i);
if i=n-1 then Writeln('Максимальный элемент - последний')
else begin
Writeln('Результирующий массив');
a[i+1]:=abs(a.Where(x->x<0).Sum); a.Println
end
end
end.
Тестовое решение:
n= 15
Исходный массив
-24 -38 15 -33 -40 -18 21 34 20 49 -19 29 29 38 -41
Результирующий массив
-24 -38 15 -33 -40 -18 21 213 20 49 -19 29 29 38 -41