с заданием :)

Дома выполните следующее задание.
Известно, что один и тот же объект может иметь множество моделей – предметных и информационных, статистических и динамических. С доступных вам компьютерных средств создайте 2-3 разных моделей… себя самого. Каждую модель оформите в отдельном файле и дайте ей краткое описание по плану:
1) с какой компьютерной среды сделана?
2) какие ваши характерные признаки представляет?
3) укажите некоторые свойства именно этой модели.
4) может ли она также служить моделью другого объекта?
Задание называется «Я – супермодель!»

ответьте на во Может ли объект иметь несколько моделей? Приведите пример.
2. Могут ли разные объекты описываться одной и той же моделью? Если да, приведите пример.

Тест по теме «Алгоритмы в языке Паскаль»

Вариант 1

1. Алгоритм, в котором команда или серия команд повторяется, называется

А) циклическим;  

2. Укажите процесс, который демонстрирует работу циклического алгоритма:  

A) движение часовой стрелки;

3. Какой цикл называют циклом с предусловием?

B) While;

5. Требуется подсчитать сумму натуральных чисел от 5 до 125. Какое условие нужно использовать в цикле While?

C) i<=125.

6. Сколько раз будет выполняться цикл For i:=7 to 12 do…;

B) 6 раз;

7. Сколько раз исполнится цикл:

i:=4;  

while i<10 do i:=i+3;  

A) 2 раза;

8. Сколько раз исполнится следующий цикл:

i:=21;

Repeat  

i:=i-5

Until i<21;

A) 1

9. Чему будет равна переменная sum после выполнения фрагмента программы:

sum:=0;

for i:=7 to 9 do

sum:=sum+i;

B) 24;.

10 . Чему равна переменная с после выполнения алгоритма:

а:=2

b:=3

а:=а*b=6

b:=a+b=9

c:=3-2*a+b=0

c:=c-b=-9

C) -9

Тест по теме «Алгоритмы в языке Паскаль»

Вариант 2

1.Алгоритм, в котором команда или серия команд повторяется называется

A) циклическим;  

2.Укажите процесс, который демонстрирует работу циклического алгоритма:

C) движение Земли вокруг своей оси.

3.Какой цикл называют циклом с постусловием?

A) Repeat;  

5.Требуется подсчитать сумму натуральных чисел от 2 до 22. Какое условие нужно использовать в цикле While?

A) i<23;  

6.Сколько раз будет выполняться цикл For i:=4 to 8 do…;

A)5 раз;  

7.Сколько раз исполнится цикл:

i:=6;

while i<18 do i:=i+3;

C)4 раза.

8. Сколько раз исполнится следующий цикл:

i:=12;

Repeat

i:=i-2

Until i<4;

B)5;  

9.Чему будет равна переменная sum после выполнения фрагмента программы:

sum:=0;

for i:=5 to 8 do

sum:=sum+i;

C)26.

10. Чему равна переменная с после выполнения алгоритма:

а:=4

b:=1

b:=b-a=-3

b:=b*a=-12

a:=a-2*b=28

c:=a+b=16

B) 16

№1

var sum, i: integer;
begin
sum := 0;
for i := 1 to 100 do
sum := sum + i;
writeln('Сумма всех чисел от 1 до 100: ', sum);
end.

№2

var p, i: integer;
begin
p := 1;
for i := 1 to 10 do p := p * i;
writeln('Произведение всех чисел от 1 до 10: ', p);
end.

№3

У вас не дано никаких условий. Вот задача для условия: "Членов прогрессии - 100, шаг - 3"

var A, i, k, max: integer;
begin
i := 3;
max := 100;
for k := 1 to max do begin
A := A + i;write( A, ' ');
end;
end.

№4

var sum, x: real;
a: array[1..10] of real;
i: integer;
begin
sum := 0;
for i := 1 to 10 do begin
write('Введите ', i, ' число: ');
readln(a[i]);
sum := sum + a[i];
end;

writeln('Сумма введенных чисел: ', sum);
end.