понедельник, 16 октября 2017 г.

Цикл "для"_9 класс

1. Задание 9 № 948
Запишите зна­че­ние пе­ре­мен­ной t, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел t,i
t := 2
нц для i от 1 до 3
t := t * i
кц
вывод t
кон
DIM i,t AS INTEGER
t = 2
FOR i = 1 TO 3
t = t * i
NEXT i
PRINT t
Var t,i: integer;
Begin
t := 2;
For i := 1 to 3 do
t := t * i;
Writeln(t);
End.
2. Задание 9 № 550
Запишите зна­че­ние переменной y, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
цел y, i
y := 0
нц для i от 1 до 3
y := y + 4*i
кц
вывод y
кон		DIM i, y AS INTEGERy = 0
FOR i = 1 TO 3
y = y + 4*i
NEXT i
PRINT y
Var y,i: integer;
Begin
y := 0;
For i := 1 to 3 do
y := y + 4*i;
Writeln(y);
End.
3. Задание 9 № 928
Запишите зна­че­ние пе­ре­мен­ной t, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел t,i
t := 1
нц для i от 1 до 4
t := t * i
кц
вывод t
кон
DIM i,t AS INTEGER
t = 1
FOR i = 1 TO 4
t = t * i
NEXT i
PRINT t
Var t,i: integer;
Begin
t := 1;
For i := 1 to 4 do
t := t * i;
Writeln(t);
End.
4. Задание 9 № 1123
Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел s, k
s := 0
нц для k от 2 до 12
s := s + 11
кц
вывод s
кон
DIM k, s AS INTEGER
s = 0
FOR k = 2 TO 12
s = s + 11
NEXT k
PRINT s
Var s,k: integer;
Begin
s := 0;
for k := 2 to 12 do
s := s + 11;
writeln(s);
End.
5. Задание 9 № 1040
Запишите зна­че­ние пе­ре­мен­ной u, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел u,i
u := 26
нц для i от 1 до 5
u := u – i
кц
вывод u
кон
DIM i,u AS INTEGER
u = 26
FOR i = 1 TO 5
u = u – i
NEXT i
PRINT u
Var u,i: integer;
Begin
u := 26;
For i := 1 to 5 do
u := u – i;
Writeln(u);
End.
6. Задание 9 № 908
Запишите зна­че­ние пе­ре­мен­ной d, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алг
нач
цел d,n,i
n :=3
d := n*3
нц для i от 1 до 3
d := d + i
кц
вывод d
кон
DIM d,n,i AS INTEGER
n = 3
d = n*3
FOR i = 1 TO 3
d = d + i
NEXT i
PRINT d
Var d,n,i: integer;
Begin
n := 3;
d := n*3;
For i := 1 to 3 do
d := d + i;
Writeln(d);
End.
7. Задание 9 № 450
Определите, что будет на­пе­ча­та­но в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
цел s, k
s := 2
нц для k от 1 до 3
s := s*s
кц
вывод s
кон		s = 2
FOR к = 1 TO 3
s = s*s
NEXT k
PRINT s
END
Var s, k: integer;
Begin
s := 2;
for k := 1 to 3 do
s := s*s;
write (s);
End.
8. Задание 9 № 169
Запишите зна­че­ние переменной s, по­лу­чен­ное в ре­зуль­та­те работы сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
цел s, k
s := 0
нц для k от 7 до 11
s := s + 11
кц
вывод s
кон		DIM k, s AS INTEGERs = 0
FOR к = 7 TO 11
s = s + 11
NEXT k
PRINT s
Var s,k: integer;
Begin
s := 0;
for k := 7 to 11 do
s := s + 11;
writeln(s);
End.
9. Задание 9 № 530
Определите, что будет на­пе­ча­та­но в ре­зуль­та­те работы сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
цел s, k
s := 1
нц для k от 1 до 7
s := s*2
кц
вывод s
кон		s = 1
FOR k = 1 TO 7
s = s*2
NEXT k
PRINT s
END
Var s, k: integer;
Begin
s := 1;
for k := 1 to 7 do
s := s*2;
write (s);
End.
10. Задание 9 № 109
Запишите зна­че­ние пе­ре­мен­ной s, по­лу­чен­ное в ре­зуль­та­те ра­бо­ты сле­ду­ю­щей программы. Текст про­грам­мы приведён на трёх язы­ках программирования.

Алгоритмический языкБейсикПаскаль
алгнач
цел s, k
s := 0
нц для k от 3 до 8
s := s + 6
кц
вывод s
кон		DIM k, s AS INTEGERs = 0
FOR к = 3 TO 8
s = s + 6
NEXT k
PRINT s
Var s,k: integer;
Begin
s := 0;
for k := 3 to 8 do
s := s + 6;
writeln(s);
End.
on

Комментариев нет:

Отправить комментарий

Подписаться на: Комментарии к сообщению (Atom)