Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Доброго времени суток, уважаемые эксперты!
Помогите с решением задачки завтра нужно сдавать!Очень надеюсь на вашу помощь. У меня вопрос в том почему неполучается зарандомить змейку.Преподаватель сказал что нужно обязательно через рандом и что бы на экран выводилась сразу змейка заполненая случайными числами от
-2 до 2 .Паскаль

К вопросу прикреплён файл. Загрузить » (срок хранения: 60 дней с момента отправки вопроса)

Вопрос задал: SHEV (статус: Посетитель) Вопрос отправлен: 19 октября 2011, 16:37 Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: min@y™

Стоило отформатировать код и глянуть на него, всё сразу стало понятно.

program matrix;
 
uses
  crt;
 
const
  n = 8;
 
var
  a: array[1..n, 1..n] of real;
  sum, max, min: real;
  i, j: integer;
 
begin
  clrscr;
  randomize;
 
  for i:= 1 to n do
    begin
      for j:= 1 to n do
        begin
          { диапазон значений: -2.0 <= a[i, j] < 2.0
            Хотя не проще ли так?
            a[i, j]:= 2 * (Random - Random); }
          a[i, j]:= -2 + random(4) + random;
 
          { а вот тут у тебя полученной рандомное значение a[i, j]
            затирается новым значением В ЛЮБОМ СЛУЧАЕ. }
          if i mod 2 = 1
            then a[i, j]:= (i - 1) * n + j
            else a[i, j]:= i * n - j + 1;
 
          write(a[i, j]: 7: 2);
        end;
 
      writeln;
    end;
end.

Ответ отправил: min@y™ (статус: Доктор наук) Время отправки: 19 октября 2011, 17:04 Оценка за ответ: 4 Комментарий к оценке: Так что же нужно сделать что бы оно не затиралось?

Мини-форум вопроса

Страницы: [« Предыдущая] [1] [2]

min@y™ (статус: Доктор наук), 21 октября 2011, 11:51 [#21]: Цитата (SHEV): до змейки уже забита матрица рандомом просто предод говорит что это через жо.. , сделай проще говорит БляхаМуха! Да что такое "ЗМЕЙКА"-то???!!!111 Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!

Страницы: [« Предыдущая] [1] [2]

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.