Дополните предыдущую программу так, чтобы её выполнение приводило к присваиванию переменной y значения большей из четырёх величин a, b, c, d.
program maximum;
var y, a, b, c: integer;
begin
writeln ('Нахождение наибольшей из трех величин');
write ('введите a, b, c: ');
readln (a, b, c);
y:=a;
{Здесь нужно ввести команды проверки условия}
writeln ('наибольшее число: ', y)
end.
Робот (чех. robot, robota — еріксіз еңбек, rob — құл; чех жазушысы К. Чапек ойлап шығарған сөз, ол алғашқы ұғымында “жұмысқа шебер адам” мағынасында қолданылды) — антро қ (адам тәрізді) әрекеттер, қимылдар жасайтын машина; адам жүрісі мен қимылын еліктететін автоматтандырылған, адам қажетіне еңбек етуге болады
Робот қоршаған әлеммен әрекеттескен кезде адамның (жануарлардың) қызметтері мен іс-әрекеттерін ішінара немесе толық атқарады. Алғашқы роботтар адамның қозғалысы мен сырт пішінін қайталады. Олар ойын-сауық мақсаттарында пайдаланылды. Қазіргі кезде тұрмыстағы көптеген қызметтерді атқаратын, қадағалайтын, мүгедектер мен сәбилерге көмекші, көңілін аулайтын, т.б. роботтар жасалынды, интеллектуалдық роботтар да пайда бола бастады.
Робот техниканың дамуы барысында адамдарды бір сарынды ауыр жұмыстардан, жоғары радиациялы, жоғары немесе төмен температура жағдайларындағы және адам қатынауы қиын жерлердегі (су астында, ғарышта) жұмыстардан босататын автоматтық құрылғылар мен механизмдер түрінде жасалып, олар үнемі жетілдіріле түсуде. Мұндай құрылғылар мен механизмдер өнеркәсіптік роботтар деп аталады. Өнеркәсіптік роботтар – өндіріс процесінде адамның қозғалу және басқару сияқты іс-әрекеттерін (өндіріс заттарының орнын ауыстыру т.с.с.) және технологиялық құралдардың (айла-тетіктердің) қызметтерін орындайтын автоматтық машина. Адамның қатысуынсыз бір немесе бірнеше технологиялық операцияны, өңделетін бұйымды тиеу мен түсіруді қоса алғанда автоматты түрде орындайтын технологиялық өңдеуші машиналардың, өндірістік машиналардың, тасымалдау және көмекші жабдықтардың жиынтығын робот-техникалық кешен деп атайды. Робот-техникалық кешеннің, әдетте, электрондық есептеу машинасы (ЭЕМ) немесе микроконтроллер негізіндегі бағдарламалық басқару жүйесі болады. Робот-техникалық кешен “адамсыз технологияны” енгізудің негізі болып табылатын икемді өндіріс жүйелерінің бастапқы буыны болып табылады. Робот-техникалық кешенді пайдалану жұмыс күшінің тапшылығы жағдайында өте маңызды.
var
i,j,j0: integer;
a:array[1..m,1..n] of integer;
jExit,iExit:Boolean;
begin
Randomize;
for i:=1 to m do begin
writeln;
for j:=1 to n do begin
a[i,j]:=random(2);
write(a[i,j]:2)
end
end;
writeln;
j:=0; jExit:=false;
repeat
j:=j+1; i:=1; iExit:=false;
if a[i,j]=0 then begin
repeat
i:=i+1;
if a[i,j]<>0 then iExit:=true
until iExit or (i=m);
if i=m then jExit:=true
end
until jExit or (j=n);
if a[i,j]=0 then writeln('Нулевой столбец ',j)
else writeln('Нет нулевых столбцов');
end.
Тестовый пример:
0 1 1 1 1 0 1 0 1 0 0 0 0 0 1
0 0 1 0 1 0 0 0 1 1 0 0 0 0 0
1 1 0 0 0 1 0 1 1 1 1 1 0 1 1
1 1 1 0 1 0 1 0 0 1 0 1 0 1 0
Нулевой столбец 13