№1 Екі санның қосындасын табу программасын құру керек. Program kosindi; Var a, b, x integer; Begin Write (‘a, b-сандарын енгіз'); Readln(a, b); X:=a+b; Writeln(‘x =’,x); End.№2 Екі санның бөліндісін табу программасын құру керек. Program bolindi; Var a, b, x:real; Begin Write (‘a, b-сандарын енгіз'); Readln(a, b); X:=a/b; Writeln(‘x=’,x); End.№3 Екі санның қосындысының квадраттарын және көбейтіндісін табу программасын құру керек. х = (a+ b) [1] , у = a* b Program esep 1; Var a, b, x, y:integer; Begin Write (‘a. b- сандарын енгіз’); Readln (a, b); X:=sqr (a+b); Y:= a*b; Writeln (‘x=’, x); Writeln (‘y=’, y); End.№4. k =(x2 + y2) * x+y, мұндағы функциясының мәнін есептейтін программа құру керек. Program esep 2 ; Var k:real; Const x = 5, y = 2.8; Begin K: = srq (x) + sqr(y)* sqrt (x+y); Writeln (‘k = ‘, k); End.№5. Апта күндерінің реттік нөмірі бойынша олардың аттарын анықтайтын программа құру керек. Program kyn; Var kyn: integer ; Begin Write (‘ kynnin aptadagi rettik nomirin engizinder: ‘ ); Readln (kyn); Case kyn of 1: writeln ( ‘ duisenbi’); 2: writeln ( ‘seisenbi’); 3: writeln ( ‘ sarsenbi’); 4: writeln ( ‘ beisenbi’); 5: writeln ( ‘ juma’); 6: writeln ( ‘senbi’); 7: writeln ( ‘ jeksenbi’); Else writeln ( ‘ 1… 7 araligindagi sandardi engizinder’); End End. №6. Екі санның үлкенін табатын программа құр. Program max; Var a, b, max: integer; Begin Readln (a,b); If a>b then max:= a else max:=b; Writeln (‘ max= ’ , max); End. №7. Үш санның үлкенін табатын программа құру керек. Program max; Var a, b, c, x, max: integer; Begin Readln (a, b, c); If a>b then max:= x else max:=c; Writeln (‘ max= ’ , max); End. №8 Екі санның кішісін табатын программа құру керек. Program min; Var a, b, min : integer; Begin Readln (a, b); If a Writeln ( ‘ min = ‘ , min) ; End. №9. Үш санның кішісін табатын программа құру керек. Program min; Var a, b, c, x, min : integer; Begin Readln (a, b, c); If a If x Writeln ( ‘ min = ‘ , min) ; End. №10 Үш кесіндінің ұзындықтары берілген. Егер бұл үш кесіндіден үшбұрыш құру мүмкін болса, онда оның периметрін және ауданын табыңдар. Program e5; Var a, b, c : integer; P1, p, s: real; Begin Readln (a, b, c); If a+b>c then p1: = a+b+c ; P:= (a+b+c)/2; S:=sqrt (p*(p-a)*(p-b)*(p-c)); Writeln ( ‘ p1= ‘ , p1:5:2) ; Writeln (‘ s=’,s:5:2); End. №11. Адам жасына қарап, оларды әлі мектепке бармаған, мектеп оқушысы, жұмысшы, зейнеткер деген төрт топтың біріне жатқызатын программа құрыңдар. Адам жасы пернетақтадан енгізіледі. Program e6; Var x : integer; Begin Writeln (‘ adam jasin engiz’ ); Readln (x); If x<=6 then writeln (‘ ali mektepke barmagan’ ) else If (x>6) and (x<=17) writeln (‘ mektep okushisi ‘) else If (x>17) and (x<58) writeln (‘ jumisshi’) else writeln (‘ zeinetker’); End. №12. Екі сан берілген. Егер бірінші с
ҚР Білім және Ғылым министірлігінің стандартымен жасалған
08 Маусым 2018
482
0 рет жүктелген
