А сейчас мы попробуем сделать пока не очень красивый, но очень простой вариант телевизионной игры "О, счастлив- чик!". Придумайте пять любых вопросов, и к каждому из них четыре варианта ответов. Теперь я попробую словесно описать алгоритм, а вы — перевести его на Бейсик. Итак, за- прашиваем у игрока имя, и узнаем, желает ли он играть. Если не желает, прощаемся, если желает — приветствуем и предлагаем первый вопрос с вариантами ответов. Запраши- ваем у игрока с клавиатуры, какой вариант он выбирает. В случае правильного ответа начисляем ему сто очков и пе- реходим ко второму вопросу. Если ответ неверен, то отправ- ляемся на самое начало — снова регистрация и т. д. Первый вопрос — 100 очков, второй — 200, третий — 300, четвер- тый — 500, пятый — 1000. Если игрок правильно отвечает на все пять вопросов, то поздравляем его и заканчиваем программу !

1) Векторные графические редакторы:

Embroidermodder.

Inkscape.

Ipe.

Karbon14.

LibreOffice Draw.

OpenOffice Draw.

sK1.

Skencil.

2) Растровые графические редакторы:

darktable.

digiKam.

F-Spot.

GIMP.

GNU Paint.

GrafX2.

GraphicsMagick.

ImageMagick.

3) Недостатки растровой графики:

Изображения, создаваемые в растровых программах, всегда занимают много памяти. По этой причине информация в файлах растрового формата хранится, как правило, в сжатом виде. Растровые изображения невозможно увеличивать для уточнения деталей.

Основным недостатком векторной графики является отсутствие реалистичности изображения. В растровых картинках каждый пиксель может быть окрашен отдельным цветом, в векторных – закрашиваются целые объекты.

1) переменная P не нужна

2) переменная s отсутствует в разделе описания переменных

3) индексы массива в разделе описания переменных не соотносятся с циклами

4) неправильно написан randomiz

5) ненужные точки с запятой после do

6) неправильный оператор присваивания у s

7) неверно оформленный вывод данных

Объяснение:

Примерный вариант программы с исправлениями:

program n_3;

var i,s:integer;

a: array[1..15] of integer;

begin

s:=0;

randomize;

for i:=1 to 15 do a[i]:=random(10);

for i:=1 to 15 do s:=s+a[i];

writeln('s=',s)

end.

Возможно, отсутствие вывода элементов массива, тоже можно считать ошибкой.