ИНФОРМАТИКА 7 КЛАСС В текстовом процессоре создайте новый документ и последовательно скопируйте в него содержимое файлов Введение.rtf, Начало эпохи ЭBM.rtf, Первое поколение ЭВМ.rtf, Второе поколение ЭBM.rtf, Третье поколение ЭBM.rtf, Четвёртое поколение 3BM.rtf, Заключение.rtf.
2. Сохраните результат работы в личной папке под именем Рефеpaт.rtfrtf.
3. Озаглавьте каждый из шести разделов документа (названия разделов могут совпадать с названиями соответствующих файлов).
4. Отформатируйте документ в соответствии с требованиями к реферату.
5. Добавьте в начало документа ранее подготовленную вами титульную страницу (Титул.rtf).
6. Добавьте на страницы документа верхний колонтитул с названием реферата.
7. После слов «Первая электронная вычислительная машина (ЭВМ)» в разделе «Начало эпохи ЭВМ» добавьте сноску, в которой поясните, как связаны понятия «ЭВМ» и «компьютер».
8. В сети Интернет найдите информацию о С. А. Лебедеве и дополните ею текст реферата.
9. Узнайте, когда и кем был разработан первый массовый персональный компьютер, и добавьте эту информацию в соответствующий раздел реферата.
10. Найдите в сети Интернет изображения ЭВМ разных поколений. Вставьте по одному наиболее интересному изображению в соответствующие разделы.
11. Добавьте в реферат раздел «Сравнительные характеристики поколений ЭВМ» и включите в него таблицу: (фото) 12. Найдите необходимую информацию в сети Интернет и занесите её в соответствующие ячейки таблицы.
13. Добавьте раздел «Список литературы и Интернет-ресурсов» и включите в него перечень источников информации, которыми вы пользовались при подготовке реферата.
14. К каждому из заголовков разделов примените стилевое форматирование, выбрав для них стиль Заголовок 1. Автоматически сформируйте новый раздел « Оглавление ».
1. есть число n. пускай n=123. что будет, если разделить его на 10? получится 12,3. то есть 12 - целая часть, а 3 - остаток. далее снова делим на 10. 1,23. и в последний раз: 0,123. целая часть =0. на этом останавливаемся. а сколько раз выполнили деление? 3. вот и ответ. теперь запишем на паскале: как видно из вышенаписанного, нужно продолжать выполнять действия, пока целая часть не равна 0. то есть while n> 0 do и у нас есть некоторый счетчик итераций, значение которого и будет являться ответом. а тело цикла: n div 10 (целочисленное деление) inc(k) (увеличение счетчика) вторая: как я понял, нужно просто вывести на экран то, что должно получиться? нужно в цикле пройти по каждому символу. если он равен "*" (if s[i] = '*' then), ничего не делать. иначе вывести его два раза (write(s[i], добавить данные в начало файла нельзя. нужно либо записывать в новый, либо перезаписывать исходный (предварительно считав все в память)
1. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] mod 2=0 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 2. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); kol := 0; for i := 1 to 10 do if a[i] > 9 then begin kol := kol + 1; write(a[i],' '); end; writeln; writeln(kol); End. 3. var a: array[1..10] of integer; i: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 4. var a: array[1..10] of integer; i, r: Integer; Begin for i := 1 to 10 do read(a[i]); i := 1; while i < 10 do if a[i+1] < a[i] then begin r := a[i+1]; a[i+1] := a[i]; a[i] := r; i := 1; end else i := i + 1; for i := 1 to 10 do if a[i] mod 2=0 then write(a[i],' '); for i := 1 to 10 do if a[i] mod 2=1 then write(a[i],' '); End. 5. var a: array[1..10] of integer; i, kol: Integer; Begin for i := 1 to 10 do read(a[i]); for i := 1 to 10 do if a[i] mod 10 = 5 then kol := kol + 1; writeln(kol); End.
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] mod 2=0 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
2. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
kol := 0;
for i := 1 to 10 do
if a[i] > 9 then
begin
kol := kol + 1;
write(a[i],' ');
end;
writeln;
writeln(kol);
End.
3. var a: array[1..10] of integer;
i: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
4. var a: array[1..10] of integer;
i, r: Integer;
Begin
for i := 1 to 10 do read(a[i]);
i := 1;
while i < 10 do
if a[i+1] < a[i] then begin
r := a[i+1];
a[i+1] := a[i];
a[i] := r;
i := 1;
end else i := i + 1;
for i := 1 to 10 do
if a[i] mod 2=0 then write(a[i],' ');
for i := 1 to 10 do
if a[i] mod 2=1 then write(a[i],' ');
End.
5. var a: array[1..10] of integer;
i, kol: Integer;
Begin
for i := 1 to 10 do read(a[i]);
for i := 1 to 10 do
if a[i] mod 10 = 5 then kol := kol + 1;
writeln(kol);
End.