перевод кода на Си в код на Паскаль

@Elma · Регистрация: 09.02.2010

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

пытаюсь освоить Паскаль путем перевода небольшой программки с кодом на Си в код на Паскаль, возникли трудности в следующем коде:

C++

void glcd_fillScreen (BYTE color) 
{ 
  int8 v, h; 
  int16 d; 
 
  d = (color == ON ? 0xFFFFL : 0x0000L); 
 
  for (v=0; v<32; v++) 
  { 
    for (h=0; h<12; h++) 
    { 
      gdram.dots[v][h].word = d; 
    } 
  } 
  gdram.refrescar = TRUE; 
}

не знаю как эту процедуру представить в Паскаль, я попыталась и у меня получилось вот что:

Delphi

Procedure FillScreen (color: Byte; var gdram1:GDRAM);
var
 // gdram1:GDRAM;
  v,h: int8;
  d: integer;
 
begin
  if color=1 then d:= $FFFF;
  else d:=0;
  for v:=0 to 31 do
      for h:=0 to 11 do
      gdram1.refrescar:=true;
      gdram1.Dotsdots:=????; - не знаю что будет в этой строке
      endfor;
  endfor;
  endif;
end;

Извините, если обратилась не в тот раздел форума.

@WolfCF · 09.02.2010, 15:37

лучше задачу скажите,переводить сложно.

Сообщение от Elma

пытаюсь освоить Паскаль путем перевода небольшой программки с кодом на Си в код на Паскаль

это абсолютно не правильно.

Не по теме:

изучаю английский путем перевода на испанский.

@Elma · 09.02.2010, 15:47 **[ТС]**

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

@WolfCF · 09.02.2010, 16:07

пример заполнения экрана точками

Pascal

uses crt,graph; {подключение модулей}
var i,gd,gm:integer; 
procedure pixcel;
begin
randomize; {датчик случайных чисел}
SetColor(green); {цвет точек}
for i:=1 to 100 do  {кол-во}
Circle(random(640),random(480),2{можно изменять и выбирать что больше понравится});
end;
begin
InitGraph(gd,gm,''); {инициализация граф режима}
pixcel; {подключение нашей процедуры}
readkey; {выход по любой клавише}
end.

@Elma · 10.02.2010, 10:47 **[ТС]**

Wolf, большое спасибо за помощь ,но мой компилятор пишет что не может найти модули CRT и GRAPH.PAS, так что мне это не помогло.

@Puporev · 10.02.2010, 11:05

Elma, Что у Вас за Паскаль?

@WolfCF · 10.02.2010, 12:24

здесь скачайте любой паскаль.

@Elma · 10.02.2010, 14:16 **[ТС]**

я пишу программу в E-LAB PED-32.

@Puporev · 10.02.2010, 14:45

Не по теме:

я пишу программу в E-LAB PED-32.

А на калькуляторе не пробовали создавать графические приложения?

@Elma · 10.02.2010, 15:41 **[ТС]**

Я повторяю я не умею программировать. А во вторых в этой программе замечательно создают свои программы другие люди, я видела это. Мне никаких графических приложений не нужно. У меня есть графический дисплей и микроконтроллер Atmega2561 и все и моя задача просто зажечь хотя бы пиксель на этом дисплее и это замечательно делается в программе AVRco IDE PED-32 (AVRdemo), я сделала такой вывод посмотрев примеры которые были уже в этой программе, видимо я просто написала не на тот форум раз здесь ничем не могут помочь. Извините.

@WolfCF · 10.02.2010, 15:44

Elma, Вас не понять, перевожу с Си на паскаль, но пишу в E-LAB PED-32. Но при этом не умею программировать.

@Puporev · 10.02.2010, 15:46

Elma, Конечно Вам нужно обратится в другое место, у Вас графические эффекты достигаются совсем другими средствами, а не модулями Паскаля.

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	09.02.2010, 15:37	2
	лучше задачу скажите,переводить сложно. Сообщение от Elma пытаюсь освоить Паскаль путем перевода небольшой программки с кодом на Си в код на Паскаль это абсолютно не правильно. Не по теме: изучаю английский путем перевода на испанский. 0

@Elma 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	09.02.2010, 15:47 [ТС]	3
	я понимаю что переводом кода на Си в код на Паскаль, это не лучшая идея научиться программировать, но так как времени мало, то приходиться вот так вот выкручиваться, задача: запрограммировать графический дисплей, и эта процедура должна заполнить экран точками ну или пикселями, но раз вы сказали что переводить сложно, то чувствую у меня ничего не получится, все равно спасибо за ответ. 0

@Elma 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	10.02.2010, 10:47 [ТС]	5
	Wolf, большое спасибо за помощь ,но мой компилятор пишет что не может найти модули CRT и GRAPH.PAS, так что мне это не помогло. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.02.2010, 11:05	6
	Elma, Что у Вас за Паскаль? 1

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	10.02.2010, 12:24	7
	здесь скачайте любой паскаль. 0

@Elma 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	10.02.2010, 14:16 [ТС]	8
	я пишу программу в E-LAB PED-32. 0

@Puporev
	10.02.2010, 14:45 #9
	Не по теме: я пишу программу в E-LAB PED-32. А на калькуляторе не пробовали создавать графические приложения? 0

@Elma 0 / 0 / 0 Регистрация: 09.02.2010 Сообщений: 5
	10.02.2010, 15:41 [ТС]	10
	Я повторяю я не умею программировать. А во вторых в этой программе замечательно создают свои программы другие люди, я видела это. Мне никаких графических приложений не нужно. У меня есть графический дисплей и микроконтроллер Atmega2561 и все и моя задача просто зажечь хотя бы пиксель на этом дисплее и это замечательно делается в программе AVRco IDE PED-32 (AVRdemo), я сделала такой вывод посмотрев примеры которые были уже в этой программе, видимо я просто написала не на тот форум раз здесь ничем не могут помочь. Извините. 0

@WolfCF 3310 / 1372 / 110 Регистрация: 28.04.2009 Сообщений: 4,822
	10.02.2010, 15:44	11
	Elma, Вас не понять, перевожу с Си на паскаль, но пишу в E-LAB PED-32. Но при этом не умею программировать. 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	10.02.2010, 15:46	12
	Elma, Конечно Вам нужно обратится в другое место, у Вас графические эффекты достигаются совсем другими средствами, а не модулями Паскаля. 0

Опции темы