Множества, записи и работа с файлами Опции

[Spinne]

Ага, так вот оно как........

[Spinne]

Итак, окончательный вариант множества:

Код

program Lab7;
const n=255;
type M=set of 0..n;
var  s:string;
i,b:integer;
a:char;
BEGIN
write('введите воличество символов-'); readln(B);
write('введите искомый символ-'); readln(a);
for i:=1 to b do
begin
write('символ-');readln(s[i]);
end;
for i:=1 to b do
if s[i]=a then writeln('есть!');
END.

Сообщение отредактировано: volvo - 18.12.2004 0:49

[Spinne]

а как насчет записи в файл................

[AlaRic]

http://pascal.dax.ru/?lessons&id=1&page=20

[Spinne]

Кой чего склепал:

Код

program Lab9;
var
T: Text;
S: string;
begin
write('введите путь к файлу:');
readln(S);
Assign(T,S);
{$I-}
Reset(T);
{$I+}
if IOResult<>0 then
begin
 write('файл не найден!');
 halt;
end;
ReWrite(T);
write('введите функцию');
read(S);
Write(T,S);
Close(T);
end.

Правда, не совсем понимаю условие - построить график функции. Это чтобы был чертёж?

[oleg309]

Правда, не совсем понимаю условие - построить график функции. Это чтобы был чертёж?

Да

[Spinne]

И как же мне его сделать?

[oleg309]

В графическом режиме естестно

[trminator]

Oleg309, понятно вроде, что в текстовом плохо выйдет.
Spinne, пусть есть функция f(x). Выберем пока для простоты масштаб одна единица = одному пикселу. Дальше просто проходишь по всем пикселам "в ширину" и вычисляешь значение функции

Код

for i:=1 to 640 do begin
 j:=f(x); lineto(i, j)
end;

Правда, так получится мелко и перевернуто, но уже хоть что-то А можно еще его переврнуть чтобы правильно смотрелся, масштаб подобрать там, и вообще как-нибудь ближе к центру экрана разместить.

[Spinne]

А что значит BGI Error: Graphics not instalized (use InitGraph)?

[trminator]

Или не прописаны пути к драйверам, или они read-only. Надо не-read-only (почему, не знаю)

[Spinne]

А где именно эти драйвера?
И почему когда запускаю первый вариант со страницы http://pascal.dax.ru/?lessons&id=2&page=8 то на 15 строке после числа 320 выдаёт Type mismatch ?

[trminator]

Драйвера - в каталоге BGI

[Spinne]

А как насчёт задачи?

Код

program f;
  uses graph;
  var gd, gm: integer;
      x,y: real;
begin
  gd:=detect;
  initgraph(gd, gm, ‘c:/ bp’);
  SetColor(5);
  Line(0, 240, 640, 240);
  Line(320, 0, 320, 480);
  x:=-20;
  While x<=20 do
    begin
        y:=-Sqr(x);
        PutPixel(x *5 + 320, y*5 +240, 15);
        x:=x+ 0.01;
        end;
end.

Работает только если ставлю x,y:integer, а в 3 строке снизу x:=x+1
Иначе Type missmatch
И вообще, зачем множить на 5? Только для того чтобы график был шире?

[Spinne]

И как записать график в файл?