初級(jí)編程入門題123(編輯修改稿)
2025-04-20 12:43 本頁面
【文章內(nèi)容簡介】 n Writeln(‘yes’)else Writeln(‘no’)。End.1輸入兩個(gè)數(shù)a,b，輸出較大數(shù)的平方值。Program ex11。Var a,b,t:integer。Begin Readln(a,b)。 If ab thent:=a,a:=b。b:=t。Writeln(a*a)。End.1鐵路托運(yùn)行李規(guī)定：行李重不超過50公斤的，；如超50公斤。編一程序完成自動(dòng)計(jì)費(fèi)工作。Program ex18。Var w,a: real。Begin Readln(w)。If w50 then a:=50*+(w50)* Else a:=w*。Writeln(w,a,)。End.1某超市為了促銷，規(guī)定：購物不足60元的按原價(jià)付款，超過60不足200的按九折付款，超過200元的，超過部分按八折付款。編一程序完成超市的自動(dòng)計(jì)費(fèi)的工作。 Program ex16。Var a,b: real。Begin Readln(a)。 If a60 then b:=aIf a200 then b：=a*Else b:=a*。Writeln(a,’b=’,b)。End.打印某年某月有多少天。（提示：A、閏年的計(jì)算方法：年數(shù)能被4整除，并且不能被100整除；或者能被400整除的整數(shù)年份。B、利用MOD運(yùn)算可以判斷一個(gè)數(shù)能否被另一個(gè)數(shù)整除）。program day(input,output)。var year, month, days: integer。begin read(year, month)。 case month of 1,3,5,7,8,10,12: days:=31。 4,6,9,11 : days:=30。 2 : if (year mod 4=0) and (year mod 1000) or (year mod 400 =0) then days:=29 else days:=28。 end。 writeln(year,’year’,month,’month:’,’days=’,days)。end.2編寫一個(gè)程序，功能是從鍵盤輸入一個(gè)整數(shù)，判斷它是否二位數(shù)，如果是，就打印它，然后結(jié)束程序， Program ex21。Var x:integer。Begin Readln(x)。 If ( x div 100 ) then Writeln(‘x’,x)End.2編寫一個(gè)程序，功能是從鍵盤輸入三個(gè)整數(shù)，打印出其中最大的一個(gè)值。 Program ex22。Var a,b,c,t:integer。Begin Readln(a,b,c)。 If ab tnen
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號(hào)-1