ИНФОРМАТИКА 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. Автоматически сформируйте новый раздел « Оглавление ».
Var A:real; k:integer; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.') else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.') End.
Var k:integer; S,A:real; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn('Заработок продавца: ',S:0:2,' руб.'); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.
Var A:real; k:integer; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.') else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.') End.
Var k:integer; S,A:real; Begin Write('Стоимость одной газеты: ');ReadLn(A); Write('Количество газет: ');ReadLn(k); if k <= 50 then S:=k*A else S:=A*((k-50)*1.2+50); WriteLn('Заработок продавца: ',S:0:2,' руб.'); End.
Пример работы программы:
Стоимость одной газеты: 30.15 Количество газет: 200 Заработок продавца: 6934.50 руб.
Var
A:real;
k:integer;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then WriteLn('Заработок продавца: ',k*A,' руб.')
else WriteLn('Заработок продавца: ',(A*((k-50)*1.2+50)):0:2,' руб.')
End.
Var k:integer;
S,A:real;
Begin
Write('Стоимость одной газеты: ');ReadLn(A);
Write('Количество газет: ');ReadLn(k);
if k <= 50 then S:=k*A
else S:=A*((k-50)*1.2+50);
WriteLn('Заработок продавца: ',S:0:2,' руб.');
End.
Пример работы программы:
Стоимость одной газеты: 30.15
Количество газет: 200
Заработок продавца: 6934.50 руб.