Посоветуйте, как решить 2 небольшие задачи

17.07.2008, 14:21. **Показов** 1630. **Ответов** 7

Author24 — интернет-сервис помощи студентам

Это задачи по практике в институте.
1. Пусть цвета экрана имеют номера 0, 1, ..., k. Высветить все точки экрана (или точки некоторой прямоугольной области) различными цветами, используя для точки с координатами i, j цвет с номером, равным остатку от деления |m| на k+1, где где m может быть взято как i+j.
2. Пусть a и b -- файлы, k -- натуральное число. Будем говорить, что файлы a и b согласованно k-упорядоченны, если в одном файле число упорядоченных групп меньше на единицу, чем в другом, то неполной может быть только последняя группа более длинного файла.

Я знаю остновные средства языка, т.ч. в к первой задаче вопрос, как выводить эти цвета и точки.
А насчёт второй задачи, я вообще без идеи, что там нужно сделать.

Есть какие-нибудь соображения?

Vovan-VE · 17.07.2008, 18:56

1.

Pascal

uses graph;
const k=15;
var gd,gm:Integer;
    i,j,m,c:Integer;
begin
    gd := detect;
    InitGraph(gd,gm,'');
    if GraphResult<>grOK then begin
        WriteLn('Graphics error: ', GraphErrorMsg(GraphResult));
        ReadLn;
        Halt(1);
    end;
 
    for j:=0 to 479 do begin
        for i:=0 to 639 do begin
            m := i+j;
            c := m mod (k+1);
            PutPixel(i,j,c);
        end;
    end;
 
    ReadLn;
    CloseGraph;
end.

@Evklid · 17.07.2008, 19:13

Я бы немного исправил программу, ведь неизвестно заранее какой режим будет инициирован, поэтому k надо сделать переменной, а не константой, и присвоить ей значение k:= GetMaxColor; к тому же не известны и размеры экрана заранее, надо использовать функции GetMaxX и GetMaxY; тогда программа будет выглядеть так:

Pascal

uses graph;
var gd,gm:Integer;
    i,j,m,c, k:Integer;
begin
    gd := detect;
    InitGraph(gd,gm,'');
    if GraphResult<>grOK then begin
        WriteLn('Graphics error: ', GraphErrorMsg(GraphResult));
        ReadLn;
        Halt(1);
    end;
    k:= GetMaxColor;
    for j:=0 to GetMaxY-1 do begin
        for i:=0 to GetMaxX-1 do begin
            m := i+j;
            c := m mod (k+1);
            PutPixel(i,j,c);
        end;
    end;
    ReadLn;
    CloseGraph;
end.

@Puporev · 17.07.2008, 20:36

Вообще-то К можно вводить как переменную, разные картинки будут
begin
write('k=');readln(k);
gd := detect;

17.07.2008, 20:52

Большое спасибо, но программа выводит: "Graphics error: no error".
При этом GraphResult и grOK равны нулю, странно что сработал if.
Если if убрать, то программа выводит: "BGI error: graphics not initialized (use InitGraph)"

17.07.2008, 20:56

Забыл сказать. Компилятор Turbo Pascal 7.1, ОС WinXP SP3, запущенная через VMWare.

@hohotushka · 20.02.2010, 11:55

Здравствуйте,у меня похожая задача,только мне нужно задать прямоугольную область екрана,. Подскажите,где ошибка:

Pascal

uses crt,graph;
var gd,gm:Integer;
    i,j,i1,j1,a,b,c,m:word;
begin
clrscr;
 write('“Введите значения a и b-'); read(a,b);
  write('Введите координаты левого верхнего угла*-'); read(i1,j1);
    gd := detect;
    InitGraph(gd,gm,'');
    if GraphResult<>grOK then begin
        WriteLn('Graphics error: ', GraphErrorMsg(GraphResult));
        ReadLn;
        Halt(1);
    end;
 
    for j:=j1 to j1+b-1 do begin
        for i:=i1 to i1+a-1 do begin
            m := i+j;
            c := m mod 16;
            PutPixel(i,j,c);
        end;
    end;
    ReadLn;
    CloseGraph;
end.

Все,разобралась,нужно было ввести repeat until Keypressed;

@Puporev · 20.02.2010, 12:14

hohotushka, Исправьте в начале 2 раза read на readln

Гость1232345
		1
	Посоветуйте, как решить 2 небольшие задачи 17.07.2008, 14:21. Показов 1630. Ответов 7 Метки нет (Все метки) Это задачи по практике в институте. 1. Пусть цвета экрана имеют номера 0, 1, ..., k. Высветить все точки экрана (или точки некоторой прямоугольной области) различными цветами, используя для точки с координатами i, j цвет с номером, равным остатку от деления \|m\| на k+1, где где m может быть взято как i+j. 2. Пусть a и b -- файлы, k -- натуральное число. Будем говорить, что файлы a и b согласованно k-упорядоченны, если в одном файле число упорядоченных групп меньше на единицу, чем в другом, то неполной может быть только последняя группа более длинного файла. Я знаю остновные средства языка, т.ч. в к первой задаче вопрос, как выводить эти цвета и точки. А насчёт второй задачи, я вообще без идеи, что там нужно сделать. Есть какие-нибудь соображения?

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	17.07.2008, 20:36	4
	Вообще-то К можно вводить как переменную, разные картинки будут begin write('k=');readln(k); gd := detect; 0

Гостьdasgsf
	17.07.2008, 20:52	5
	Большое спасибо, но программа выводит: "Graphics error: no error". При этом GraphResult и grOK равны нулю, странно что сработал if. Если if убрать, то программа выводит: "BGI error: graphics not initialized (use InitGraph)"

Гостьwefg
	17.07.2008, 20:56	6
	Забыл сказать. Компилятор Turbo Pascal 7.1, ОС WinXP SP3, запущенная через VMWare.

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.02.2010, 12:14	8
	hohotushka, Исправьте в начале 2 раза read на readln 1