ВАШЕ СВИДЕТЕЛЬСТВО
О ПУБЛИКАЦИИ В СМИ И РЕЦЕНЗИЯ
бесплатно за 1 минуту
Добавить материал
Количество Ваших материалов: 0.
Авторское свидетельство о публикации в СМИ
нужно еще 1
Свидетельство
о создании эл. портфолио
нужно еще 5
Секретный
подарок
нужно еще 10
Грамота за
информатизацию образования
нужно еще 12
Рецензия
на любой материал бесплатно
нужно еще 15
Мейрамгул Байболова Свидетельство о публикации Рецензия
Свидетельство Скачивание доступно только автору
ОЛИМПИЯДА ЕСЕПТЕР ЖИНАҒЫ

ОЛИМПИЯДА ЕСЕПТЕР ЖИНАҒЫ

№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) , у = 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

  • Научные работы
  • Информатика
  • 9 кл.
№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) , у = 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
Медианары для учителей с выдачей свидетельства

Все файлы материала: