Anime For You - Форум сообщества Анимешников ^__^

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.


Вы здесь » Anime For You - Форум сообщества Анимешников ^__^ » Архив - Флуд » Как прекрасен этот флуд посмотри как прекрасен этот флуд! ^__^


Как прекрасен этот флуд посмотри как прекрасен этот флуд! ^__^

Сообщений 691 страница 720 из 1000

691

Musatic написал(а):

usb-шку куплю

чего чего

0

692

а я вот недавно (целые четыре минуты!) принимала солнечную ванну =)))

0

693

не перепринималась?)

0

694

KaVaBUnGO написал(а):

чего чего

Не думаю что тебе нужно обьяснять что такое usb

0

695

артур как должен выглядить READ для нетипизированных файлов???
всем привет

0

696

я бы вот это посомтрел да сабов нет =(( http://www.world-art.ru/animation/animation.php?id=6114
почитать это чтоли =((

0

697

одна программа осталась  :mad:

0

698

http://monstric.j-net.ru/get/photo/fullsize/twirly.gif

0

699

балин,нет его таня приветик

0

700

Ninmah написал(а):

артур как должен выглядить READ для нетипизированных файлов???

привет =)
наверное read(имя файла, переменная куда будет считываться инфа из файла) очевидно с предварительными заданиями файла и ассигна на этот файл...

0

701

Ninmah написал(а):

таня приветик

привет)
как тебе погода? :crazyfun:

0

702

KaVaBUnGO написал(а):

привет =)
наверное read(имя файла, переменная куда будет считываться инфа из файла) очевидно с предварительными заданиями файла и ассигна на этот файл...

нет,поэтому и спрашиваю

0

703

Hime-sama написал(а):

привет)
как тебе погода

замячательно! под град я не попала но уже который раз промокла под дождём

0

704

KaVaBUnGO написал(а):

не перепринималась?)

ды даже мало как-то было =((

0

705

Ninmah написал(а):

нет,поэтому и спрашиваю

хм щас посмотрю как оно в паскале)

Riddie-Belk^^ написал(а):

ды даже мало как-то было =((

табличка сарказм вас не смутит)

0

706

KaVaBUnGO написал(а):

хм щас посмотрю как оно в паскале

не надо я пока сама  :longtongue:

0

707

KaVaBUnGO написал(а):

табличка сарказм вас не смутит)

не понимаю, завидно тебе чтоли было? о.О хд

0

708

:pained: блин,не получается

0

709

KaVaBUnGO написал(а):

хм щас посмотрю как оно в паскале)

а ну ясно

При работе с нетипизированными файлами могут применяться все процедуры и функции, доступные типизированным файлам, за исключением Read и write, которые заменяются соответственно высокоскоростными Процедурами BlockRead И BlockWrite:
Procedure BlockRead(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]) ;
Procedure BlockWrite(var F: File; var Buf; Count: Integer [; var AmtTransferred: Integer]);

вот так примерно вроде работает... я хз какая у тя конкретная задача

Код:
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 F: File;
 c: char;
 i: Integer;

 Buf: array[1..2048] of Char;
begin


AssignFile(F,'simple.dat');
  Reset(f,1);
  BlockRead(f, Buf, 8);
  write( Copy(buf,1,8));

  read(c);
end.

0

710

Ninmah написал(а):

не надо я пока сама

поздно когда я пишу я форум не читаю))

Riddie-Belk^^ написал(а):

не понимаю, завидно тебе чтоли было? о.О хд

твоим 4 минутам завидовать? оО их даже на хлеб не намажешь=)))

Ninmah написал(а):

блин,не получается

ну вот

0

711

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

Код:
uses crt;
var f,g:file;
    n,i,k,j:integer;
    a:array[1..100]of integer;
    s,o:char;
begin
clrscr;
randomize;
writeln('1');
readln(s);
assign(f,s);
rewrite(f);
writeln(2);
readln(o);
assign(g,o);
rewrite(g);
write('n=');readln(n);
for i:=1 to n do
   begin
    a[i]:=random(10)-3;
   rewrite(f,a[i]{,' '});
   end;
blockread(f,a[i],i);
i:=0;
while not eof(f) do
   begin
     inc(i);
    blockread(f,a[i],i);
     k:=0;
     for j:=1 to i-1 do
     if a[i]=a[j] then k:=1;
     if k=0 then rewrite(g,a[i]{,' '});
   end;
close(f);
close(g);
write('Fail Chisla2 zapisan!');
readln
end.
close(g);
end.

0

712

что это вообще бэримор?
тут плохо понятно что ты делашеь но
вот этот кусок не верный...

blockread(f,a[i],i);  // что это мы читаем и зачем?
i:=0;
while not eof(f) do
   begin
     inc(i);
    blockread(f,a[i],i); // у тебя i увеличиватся каждую итерацию т.е ты с файла сначала считала 1 байт потом 2 потом 3 итп... точно не верно

0

713

KaVaBUnGO написал(а):

твоим 4 минутам завидовать? оО их даже на хлеб не намажешь=)))

почему же? 60 рублей как никак, а деньги о.О

0

714

Riddie-Belk^^ написал(а):

почему же? 60 рублей как никак, а деньги о.О

а я думал это когда под солнышком находишься +))))

0

715

я дурак rewrite - это создание файлов а не открытие его  :rolleyes:

0

716

Ninmah написал(а):

я дурак rewrite - это создание файлов а не открытие его

ща я сходил за мышкой =) щас отлажу твою прогу жди в лс кину

0

717

;)

0

718

Доброго вечера.

0

719

o90
привет)

0

720

KaVaBUnGO написал(а):

а я думал это когда под солнышком находишься +))))

значит не догнал мыслю  8-)

0


Вы здесь » Anime For You - Форум сообщества Анимешников ^__^ » Архив - Флуд » Как прекрасен этот флуд посмотри как прекрасен этот флуд! ^__^