1. В чем заключается отличие между компьютерами, вычислительной и информационной системами? 2. В чем отличие архитектуры вычислительной машины от ее структуры? 3. Каковы достоинства многоуровневой организации вычислительных систем? 4. Понятие семантического разрыва между уровнями. 5. Опишите структуру многоуровневой вычислительной машины. 6. Опишите принцип работы фон-неймановской вычислительной ма- шины. 7. Перечислите принципы фон Неймана, положенные в основу постро- ения современных вычислительных машин. 8. В чем заключается отличие микроархитектуры процессора от макроар- хитектуры? 9. Перечислите основные характеристиками процессора. 10. Приведите примеры классификаций микропроцессора. 11. Опишите внутреннюю структуру микропроцессора i8080. 12. Каково назначение устройства управления микропроцессора? 13. Каково назначение регистров микропроцессора? 14. Опишите схему взаимодействия оперативной памяти с микропроцессором. 15. Что лежит в основе работы запоминающего устройства? 16. Каково назначение кэш-памяти? Как влияет объем кэш-памяти на про- изводительность вычислительных машин? 17. Каково назначение оперативной памяти? Как влияет объем оператив- ной памяти на производительность вычислительных машин? 18. Перечислите наиболее известные запоминающие устройства долговре- менного хранения. 19. Перечислите уровни памяти вычислительных систем на основе иерар- хической структуры. Основные преимущества от иерархии памяти.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Rewrite(f,'books.dat');
Writeln('Ввод данных по книгам');
var s1,s2:string;
var i1,i2:integer;
var book:tBook;
repeat
s1:=ReadlnString('Автор или * для окончания ввода:');
if s1<>'*' then begin
s2:=ReadlnString('Название книги:');
i1:=ReadlnInteger('Количество страниц:');
i2:=ReadlnInteger('Год издания:');
(book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2);
Write(f,book)
end
until s1='*';
Writeln('*** Ввод завершен ***');
f.Close
end.
Тестовое решение
Ввод данных по книгам
Автор или * для окончания ввода: Жюль Верн
Название книги: 80 тысяч километров под водой
Количество страниц: 573
Год издания: 1951
Автор или * для окончания ввода: Сергей Лукьяненко
Название книги: Дозор
Количество страниц: 934
Год издания: 2004
Автор или * для окончания ввода: Жюль Верн
Название книги: Властелин мира
Количество страниц: 104
Год издания: 2011
Автор или * для окончания ввода: *
*** Ввод завершен ***
2. Программа для выборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
type
tBook=record
author:string[30];
naim:string[50];
pages:integer;
godizd:integer
end;
begin
var f:file of tBook;
Reset(f,'books.dat');
var s:=ReadlnString('Автор книги:');
var y:=Readinteger('Год издания, не ранее:');
var k:=0;
var book:tBook;
while not f.Eof do begin
Read(f,book);
if (book.author=s) and (book.godizd>=y) then begin
Writeln(book);
Inc(k)
end;
end;
if k=0 then Writeln('Таких книг не найдено');
f.Close
end.
Тестовое решение
Автор книги: Жюль Верн
Год издания, не ранее: 2005
(Жюль Верн,Властелин мира,104,2011)
Вот пример программы на паскале ABC:
var a:array [1..1000000] of integer;
b:array [1..10] of longint;
c:integer;
i,max,n:longint;
begin
write('Введите число элементов массива: ');
readln(n);
max:=0;
for i:=1 to 10 do
b[i]:=0;
for i:=1 to n do begin
a[i]:=random(10)+1;
write(a[i],' ');
b[a[i]]:=b[a[i]]+1
end;
for i:=1 to 10 do if b[i]>max then
begin
c:=i;
max:=b[i]
end;
writeln;
writeln('Чаще всего в массиве встречается число ',c)
end.