C#: Описать структуру с именем TRAIN, содержащую следующие поля:
• название пункта назначения;
• номер поезда;
• время отправления.
Написать программу, выполняющую следующие действия:
• ввод с клавиатуры данных в массив, состоящий из шести элементов типа TRAIN (записи должны быть упорядочены по времени отправления поезда);
• вывод на экран информации о поездах, направляющихся в пункт, название которого введено с клавиатуры (если таких поездов нет, вывести соответствующее сообщение).
Модификация(көне латынша modіfіcatіo, латынша modus – өлшем, түр және fаcіo – жасаймын) – организмнің белгілері мен қасиеттерінің (фенотипінің) сыртқы орта факторларының әсерінен генотипке байланыссыз (тұқым қуаламай) өзгеруі. Модификациялық өзгергіштікті тудырушы факторларға сыртқы ортаның температурасы, жарық, қоректену жағдайы, т.б. жатады. Модификацияға ұшырамайтын белгі не қасиет болмайды, бірақ организмнің әрбір белгісінің өзгеруінің белгілі бір шегі болады, оны өзгергіштіктің реакция нормасы деп атайды. Организмдегі әр түрлі белгілердің реакция нормасы түрліше болады. Мысалы, сиырдың сүттілігінің реакция нормасы жоғары болады, ал сүтінің майлылығы мал тұқымына тән тұрақты қасиет. Бірақ сиырды дұрыс бағып-күтсе, оның сүттілігін арттырып, сүтінің майлылығын жоғарылатуға, яғни өзгертуге болады. Ал сиырдың түсін (реңін) алатын болсақ, ол өте аз өзгереді, яғни реакция нормасы өте төмен. Модификация мутациялық өзгергіштік сияқты тұқым қуаламайды, бірақ ұзақ уақыт сақталуы мүмкін. Модификация организмнің онтогенез барысындағы өзгеруінің сыртқы орта факторына бейімделуін қамтамасыз етеді.
Программа:
Pascal:
1.
const N = 10;
var
pol, otr, nul, i: integer;
arr: array[1..N] of integer;
begin
randomize;
for i := 1 to N do begin
arr[i] := random(-10, 10);
if arr[i] > 0 then inc(pol);
if arr[i] = 0 then inc(nul);
if arr[i] < 0 then inc(otr);
end;
writeln('Массив: ',arr);
writeln('Положительных чисел: ', pol);
writeln('Нулей: ', nul);
writeln('Отрицательных чисел: ', otr);
end.
2.
const N = 10;
var
t: boolean;
pol, otr, nul, i: integer;
arr: array[1..N] of integer;
begin
randomize;
for i := 1 to N do begin
arr[i] := random(-10, 10);
if arr[i] > 0 then inc(pol);
if arr[i] = 0 then inc(nul);
if arr[i] < 0 then begin
t := True;
inc(otr);
end;
end;
writeln('Массив: ',arr);
writeln('Положительных чисел: ', pol);
writeln('Нулей: ', nul);
writeln('Отрицательных чисел: ', otr);
writeln(t);
end.