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

Поделиться6912011-06-17 17:51:11

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

usb-шку куплю

чего чего

0

Поделиться6922011-06-17 19:32:24

Автор: Riddie-Belk^^
Чувствительные коленки хДД
Откуда: Sick planet
Зарегистрирован: 2009-04-06
Приглашений: 0
Сообщений: 10932
Уважение: +281
Позитив: +248
Пол: Женский
Возраст: 32 [1994-01-21]
Провел на форуме:
2 месяца 19 дней
Последний визит:
2012-08-30 22:27:10

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

0

Поделиться6932011-06-17 19:37:30

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

0

Поделиться6942011-06-17 19:38:26

Автор: Musatic
Неко-тян
Откуда: from Ukraine
Зарегистрирован: 2010-11-29
Приглашений: 0
Сообщений: 15652
Уважение: +216
Позитив: +289
Пол: Женский
Возраст: 29 [1996-06-15]
Провел на форуме:
2 месяца 15 дней
Последний визит:
2022-04-27 13:46:32

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

чего чего

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

0

Поделиться6952011-06-17 19:39:20

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

0

Поделиться6962011-06-17 19:39:32

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

0

Поделиться6972011-06-17 19:43:02

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

0

Поделиться6982011-06-17 19:46:19

Автор: Hime-sama
Ками-сама
Зарегистрирован: 2010-10-31
Приглашений: 0
Сообщений: 5489
Уважение: +51
Позитив: +52
Пол: Женский
Возраст: 30 [1995-12-08]
Провел на форуме:
1 месяц 6 дней
Последний визит:
2012-08-21 23:24:58

0

Поделиться6992011-06-17 19:52:30

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

0

Поделиться7002011-06-17 20:01:56

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

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

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

0

Поделиться7012011-06-17 20:03:17

Автор: Hime-sama
Ками-сама
Зарегистрирован: 2010-10-31
Приглашений: 0
Сообщений: 5489
Уважение: +51
Позитив: +52
Пол: Женский
Возраст: 30 [1995-12-08]
Провел на форуме:
1 месяц 6 дней
Последний визит:
2012-08-21 23:24:58

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

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

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

0

Поделиться7022011-06-17 20:03:58

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

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

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

0

Поделиться7032011-06-17 20:04:42

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

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

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

0

Поделиться7042011-06-17 20:04:57

Автор: Riddie-Belk^^
Чувствительные коленки хДД
Откуда: Sick planet
Зарегистрирован: 2009-04-06
Приглашений: 0
Сообщений: 10932
Уважение: +281
Позитив: +248
Пол: Женский
Возраст: 32 [1994-01-21]
Провел на форуме:
2 месяца 19 дней
Последний визит:
2012-08-30 22:27:10

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

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

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

0

Поделиться7052011-06-17 20:06:38

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

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

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

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

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

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

0

Поделиться7062011-06-17 20:08:09

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

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

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

0

Поделиться7072011-06-17 20:09:24

Автор: Riddie-Belk^^
Чувствительные коленки хДД
Откуда: Sick planet
Зарегистрирован: 2009-04-06
Приглашений: 0
Сообщений: 10932
Уважение: +281
Позитив: +248
Пол: Женский
Возраст: 32 [1994-01-21]
Провел на форуме:
2 месяца 19 дней
Последний визит:
2012-08-30 22:27:10

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

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

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

0

Поделиться7082011-06-17 20:16:55

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

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

0

Поделиться7092011-06-17 20:17:39

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

Поделиться7102011-06-17 20:19:42

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

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

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

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

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

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

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

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

ну вот

0

Поделиться7112011-06-17 20:32:22

Автор: Ninmah
Ками-сама
Откуда: Ульяновск
Зарегистрирован: 2010-11-30
Приглашений: 0
Сообщений: 6024
Уважение: +63
Позитив: +37
Пол: Женский
Возраст: 32 [1994-05-05]
Провел на форуме:
1 месяц 5 дней
Последний визит:
2013-11-07 17:32:22

: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

Поделиться7122011-06-17 20:42:04

Автор: KaVaBUnGO
Человек Разумный
Откуда: Оренбург
Зарегистрирован: 2010-10-02
Приглашений: 0
Сообщений: 23047
Уважение: +470
Позитив: +551
Пол: Мужской
Возраст: 35 [1990-10-04]
Провел на форуме:
4 месяца 24 дня
Последний визит:
2026-02-19 18:06:42

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

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