Инф олимпиада doc

Салыстыру. Сізге А және В екі саны берілген. Соларды салыстыру керек және салыстыру қортындысын шығару қажет. Енгізу файлының аты

жүктеу/скачать 91,93 Kb. бет 65/66 Дата 08.02.2022 өлшемі 91,93 Kb. #123795

Бұл бет үшін навигация:

• Есептің шешімі.

Салыстыру. Сізге А және В екі саны берілген. Соларды салыстыру керек және салыстыру қортындысын шығару қажет. Енгізу файлының аты: compare.in Шығару файлының аты: compare.out Кіріс файылдың жалғыз жолында А және В екі бүтін сан бар. Әр сан 100- ден аспайтын таңбадан тұрады. Егер санды 1-ден көп таңба болса, бірінші таңба нөл емес. Сандар бос орынмен бөлінген. Есептің шешімі. Program salistiru(input,output); Type aa=array[0..100] of 0..9; Var a,b:aa; Code:integer; Ch:char; F: Boolean; Function eq(a1,b1: aa): boolean; Var j:integer; Begin Eq:=false; If (a1[0]<>b1[0]) then exit Else begin J:=1; While(j<=a[0]) and (a1[j]=b1[j]) do inc(j); Eq:=j=a1[0]+1; End; end; Function more(a1,b1:aa): Boolean; Var j: integer; Begin if a1[0]< b1[0] then more:=false else if a1[0]>b1[0] then more:= true else begin j:=a[0]; While(j>0) and (a1[j]=b1[j]) do dec(j); If j=0 then more:=false else if a1[j]> b1[j] then more:=true else more:= false; end; end; Procedure printA; Var i:byte; Begin for i:=1 to a[0] do write(a[j]); end; Procedure printB; Var j: byte; Begin for j:=1 to b[0] do write(b[j]); end; Begin Assign(input,’compare.in’); reset(inpuy); F:=true; While not(eof(input)) do Begin Read(ch); If ch=’ ‘ then begin f:=false; read(ch); end; If f then begin inc(a[0]); val(ch,a[a[0]], code); end else begin inc(b[0]); val(ch,b(b[0],code)); end; end; close(input); Assign(output,’compare.out’); rewrite(output); If a[0]> b[0] then begin printA; write(“>”); printB: end else If a[0]< b[0] then begin printA; write(“<”); printB: end else If eq(a,b) then begin printA; write(“=”); printB: end else If more(a,b) then begin printA; write(“>”); printB: end else Begin printA:write(“<”); printB; end;close(ouyput); end. Алмалар. Азатта N алма бар. Достары Л алма сұрады. Таратқаннан кейін Азаттан қалған алмалардың жалпы салмағының қосындысы максималды болатындай етіп, Азатқа тарататын алмаларды таңдауға көмектесіңіз. жүктеу/скачать 91,93 Kb. Достарыңызбен бөлісу: