Программа в языке Си Структура «Сотрудник»: фамилия, имя, отчество; должность; год рождения; заработная плата.
1) Ввод массива структур
2) Вывод на экран массива структур
3) Изменение заданной структуры
4) Поиск в массиве структур по заданному параметру(одному любому)
Заранее
Система «Ч-М-С» применяется для анализа условий жизнедеятельности человека и для разработки защитных мер, обеспечивающих безопасность человека. Возможны следующие условия жизнедеятельности:
комфортные- условия, когда все элементы системы «Ч-М-С» обеспечивают объективное состояние и субъективное чувство удовлетворения человека при безопасной жизнедеятельности;
некомфортные- условия, когда состояние хотя бы одного из элементов системы «Ч-М-С» существенно отклоняется от нормы;
невыносимые- условия, созданные элементами системы «Ч-М-С», в которых человек не может существовать.
Между комфортными и некомфортными условиями жизнедеятельности существует психологическая граница и человек может при к некомфортным условиям. Между некомфортными и невыносимыми условиями жизнедеятельности существует физиологическая граница, определяемая физиологическими ограничениями для человека, поэтому в невыносимых условиях человек без отрицательных последствий для себя не может существовать вообще или же может, но весьма ограниченное время.
Материал был взят с сайта: https://studfile.net/preview/6388105/page:6/
const f0=1; fk=10; h=0.5;
var f:real; i:integer;
begin
f:=f0-h;
writeln('Фунты Кг');
for i:=1 to round((fk-f0)/h)+1 do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
2)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
while f<fk do
begin
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
end;
end.
3)
const f0=1; fk=10; h=0.5;
var f:real;
begin
f:=f0-h;
writeln('Фунты Кг');
repeat
f:=f+h;
writeln(f:4:1,f*0.4:7:3);
until f>=fk;
end.
Результат:
Фунты Кг
1.0 0.400
1.5 0.600
2.0 0.800
2.5 1.000
...
9.0 3.600
9.5 3.800
10.0 4.000