Определите, что будет напечатано в результате работы следующей программы. Var s,k: integer; Begin s:= 0; for k:= 4 to 9 do s:= s + 12; writeln(s); End.
" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.
" Begin s:= 0; " --- затем переменной s присваивается значение 0.
" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.
Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.
" writeln(s); End. " --- выводит значение s и завершает исполнение программы.
Var n, i, growth, growth_girls, growth_boys, count_boys, count_girls: integer; begin writeln('Введите количество учеников в классе'); read(n);
growth_girls := 0; growth_boys := 0; count_boys := 0; count_girls := 0; for i := 1 to n do begin read(growth); if (growth < 0) then begin growth_boys := growth_boys - growth; count_boys := count_boys + 1; end else begin growth_girls := growth_girls + growth; count_girls := count_girls + 1; end; end;
if (count_boys = 0) then writeln('В классе нет мальчиков') else writeln('Средний рост мальчиков: ', (growth_boys / count_boys):0:2);
if (count_girls = 0) then writeln('В классе нет девочек') else writeln('Средний рост девочек: ', (growth_girls / count_girls):0:2); end.
Uses GraphABC; var x, y: word; i: byte; begin SetBrushStyle(bsclear); SetWindowWidth(590); SetWindowHeight(390); Rectangle(5, 5, 585, 385); x := 25; y := 25; Circle(565, 25, 20); Circle(565, 365, 20); Circle(25, 365, 20); repeat Circle(x, y, 20); if (x < 565) and (y = 25) then x := x + 20; if (x = 565) and (y < 365) then y := y + 20; if (y = 365) and (x > 25) then x := x - 20; if (x = 25) and (y > 25) then y := y - 20; until (x = 25) and (y = 25);
Rectangle(50, 50, 540, 340); x := 115; for i := 1 to 8 do begin Circle(x, 210, 6); Circle(x, 210, 40); Circle(x, 210, 45); x := x + 51; end; x := 95; for i := 1 to 11 do begin y := 130; Line(x, y, x, y - 30); y := y - 30; Line(x, y, x + 30, y); x := x + 30; Line(x, y, x, y + 25); y := y + 25; Line(x, y, x - 20, y); x := x - 20; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y + 8); y := y + 8; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y - 4); y := y - 4; Line(x, y, x - 3, y); x := x - 3; Line(x, y, x, y + 7); y := y + 7; Line(x, y, x + 10, y); x := x + 10; Line(x, y, x, y - 15); y := y - 15; Line(x, y, x - 18, y); x := x - 18; Line(x, y, x, y + 24); y := y + 24; Line(x, y, x + 30, y); x := x + 30; end; end.
72
Объяснение:
" Var s,k: integer; " --- сначала объявляются две переменные типа integer: s и k.
" Begin s:= 0; " --- затем переменной s присваивается значение 0.
" for k:= 4 to 9 do s:= s + 12; " --- эта строчка представляет из себя цикл. Сначала переменной k задаётся значение 4. Затем при каждом выполнении тела цикла к этому значению прибавляется единица. Это происходит до тех пор, пока значение переменной не достигнет 9. То есть тело цикла будет выполнено 9 - 4 = 5 раз.
Теперь взглянем на тело цикла: s:= s + 12. Эта строчка при каждом выполнении прибавляет к предыдущему значению переменной s 12. Так как она будет выполнена 5 раз, а начальное значение переменной s равно 0, то после выполения цикла значение переменной s будет равно 0 + 12 + 12 + 12 + 12 + 12 = 12 · 5 = 72.
" writeln(s); End. " --- выводит значение s и завершает исполнение программы.