cloudy

24 мая, 2009

икота

24 мая, 2009

в каком смысле?

http://ulanovka.ru/forum/viewforum.php?f=40

вот ссылочка

скачай лучше нод32

заодно и мне рейт чуток поднимешь=))

24 мая, 2009

program Kursovaya1;
uses crt;
const n=3;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var t,i,flag,kr,w:integer;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;
procedure vvod;
begin
rewrite (f);
for i:=1 to n do
begin
textcolor(15); write ('FIO vladelca: '); readln (auto.FIO);
textcolor(2); write (' marka avtomobilia: '); readln (auto.marka);
textcolor(14); write (' cvet mashini: '); readln (auto.colour);
textcolor(13); write (' nomer mashini: '); readln (auto.number);
textcolor(4); write (f,auto);
end;
close (f);
end;
procedure vivod;
begin
clrscr;
reset (f);
writeln(' | FIO | marka | colour | number |');
writeln(' |____________________________|____________|__________|________|');
for i:=1 to n do
begin
read (f,auto); writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
end;
close (f);
readkey;
end;
procedure belii;
begin;
clrscr;
reset (f);
w:=0;
while not eof(f) do
begin
read (f,auto);
if auto.colour='belii'
then inc(w);
end;
write ('kolichesnvo belih mashin: ',w);
writeln;
close(f);
end;
procedure cvedeniya;
begin;
reset (f);
writeln('vvedite marku mashini');
readln(y);
writeln('vvedite cvet mashini');
readln(g);
while not eof (f) do
begin
read (f,auto);
if (auto.marka=y) and (auto.colour=g)
then writeln('FIO vladelca: ',auto.FIO)
else writeln('takih mashin net');
end;
close (f);
end;
{
procedure next;
begin
clrscr;
reset (f);
if (>=0) and (<=filesize(f)) then
begin
seek (f,);
read (f,auto);
end
else ;
close (f);
writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
end;
procedure previous;
begin
nn:=nn-1;
clrscr;
reset (F);
if (nn>=0) and (n<=filesize(f)) then
begin
seek(f,nn);
read(f,auto);
end
else nn:=nn+1;
close (f);
writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
end; }
procedure first;
begin
clrscr;
reset (f);
seek(f,0);
read(f,auto);
writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
end;
procedure last;
begin;
clrscr;
reset (f);
t:=(filesize(f))-1;
seek(f,t);
read(f,auto);
writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close (f);
end;
begin
clrscr;
assign(f,'automobile.dat');
flag:=0;
textbackground(13);
clrscr;
window(5,5,75,20);
textbackground(0);
clrscr;
repeat
writeln ('1. vvod');
writeln ('2. vivod');
writeln ('3. belii');
writeln ('4. cvedeniya');
writeln ('5. first');
writeln ('6. last');
writeln ('7. next');
writeln ('8. previous');
writeln ('0. vihod');
write ('vvedite nomer: ');
readln (kr);
case kr of
1:vvod;
2:vivod;
3:belii;
4:cvedeniya;
5:first;
6:last;
{ 7:next;
8:previous;}
0:break;
end;
flag:=1;
until flag=0;
end.

процедура некст и превиоус помогите сделать!!! в этих процедурах чтобы начиналось с первого элемента( в смысле некст для один:второй, превиоус для один:не существует) вы наверное поняли да.

помогите пожалуста

зы в варе и тайпе ничо незя менять и констант тоже незя убирать(блин преподу звонил она сказала так делать=(( )

24 мая, 2009

октава=)) сам не знаю чо это такое=))

24 мая, 2009

ааа блин там добавить незя бует да? а ц меня нада такую функцию реализовывать...

24 мая, 2009

блин потом хорошенько присяду посмотрю, получается мне n ваще не надая?

24 мая, 2009

ага в констант и равна 3

23 мая, 2009

ыыы кот=)

23 мая, 2009

спасибо

токо

procedure first;

begin

n:=0;

end;

не пашет

procedure next;

begin

nn:=nn+1;

clrscr;

reset (f);

if (nn>=0) and (nn<=filesize(f)) then

begin

seek (f,nn);

read (f,auto);

end;

else nn:=nn-1;

close (f)

writeln (auto.FIO:30,

auto.marka:10,

auto.colour:13,

auto.number:8);

end;

procedure previous;

begin

nn:=nn-1;

clrscr;

reset (F);

if (nn>=0) and (n<=filesize(f)) then

begin

seek(f,nn);

read(f,auto);

end;

else nn:=nn+1;

close (f);

writeln (auto.FIO:30,

auto.marka:10,

auto.colour:13,

auto.number:8);

end;

}

procedure first;

begin

clrscr;

reset (f);

nn:=0;

writeln (auto.FIO:30,

auto.marka:10,

auto.colour:13,

auto.number:8);

close(f);

end;

procedure last;

begin;

clrscr;

reset (f);

nn:=filesize(f);

writeln (auto.FIO:30,

auto.marka:10,

auto.colour:13,

auto.number:8);

close (f);

end;

а как в проєедуру некст и превиоус вводить элемент чтобы найти помледуюїей и предыдуїей записи???

23 мая, 2009

program Kursovaya1;
uses crt;
const n=3;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var i,flag,kr,w:byte;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;

вот мой раздел описаний

а теперь

program Kursovaya1;
uses crt;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var i,flag,kr,w:byte;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;
n:integer;

в выделенном месте анкнаун идентићер

program Kursovaya1;
uses crt;
var i,flag,kr,w:byte;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;
n:integer;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;

выделеное это анкнаун идентићер

а как тогда описывать?

23 мая, 2009

у меня переменная н в константах сидит

ыыы а какой дожен быть? пмоно byte

23 мая, 2009

спасибо большоеbayarookie!!!

ыы моно те вопросы в проєедуре некст

procedure next;

begin

n:=n+1; ---------------- присваиваем н на н+1

clrscr; -----------очиїаем экран

reset(F); -----------------открываем эћ

if n>=0 and n<=filesize(F) then --------если н больше нули и т меньше размера эћ

begin ------начало

seek(F,n); ---------встал перед записью эн

read(F,auto); -----------открыл запись эн

end ---------конеє

else

n:=n-1;----------обратно присваиваем н на и+1 (то есть обратно получаем н?)

close(f);----------закрыть эћ

writeln(auto.FIO:30,

auto.marka:10,

auto.colour:13,

auto.number:8);

end

коменты верны?

Добавлено спустя 7 минут 33 секунды:

procedure next;
begin
n:=n+1;
clrscr;
reset(F);
if n>=0 and n<=filesize(F) then
begin
seek(F,n);
read(F,auto);
end
else
n:=n-1;
close(f);
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
end;
procedure previos;
begin
n:=n-1;
clrscr;
reset(F);
if n>=0 and n<=filesize(F) then
begin
seek(F,n);
read(F,auto);
end
else
n:=n+1;
close(f);
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
end;
procedure first;
begin
n:=0;
end;
procedure last;
begin
reset(f);
n:=filesize(f);
close(F);
end;

в выделенных местах еррор 113 вылазиет:этот символ не может начинать оператор

в чом ошибка как исправлять?

23 мая, 2009

TolkienDRR

я чо то не понял твою программу... слишком трудно для меня мы однако так не делали...

program Kursovaya1;
uses crt;
const n=3; m=n-1; m1=n+1;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var i,flag,kr,w,nxt1,prev1:byte;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;
nxt:1..m;
prev:2..m1;
procedure vvod;
begin
rewrite (f);
for i:=1 to n do
begin
textcolor(15); write ('FIO vladelca: '); readln (auto.FIO);
textcolor(2); write (' marka avtomobilia: '); readln (auto.marka);
textcolor(14); write (' cvet mashini: '); readln (auto.colour);
textcolor(13); write (' nomer mashini: '); readln (auto.number);
textcolor(4); write (f,auto);
end;
close (f);
end;
procedure vivod;
begin
reset (f);
for i:=1 to n do
begin
read (f,auto); writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8 );
end;
close (f);
readkey;
end;
procedure belii;
begin;
reset (f);
w:=0;
while not eof(f) do
begin
read (f,auto);
if auto.colour='belii' then
inc(w);
end;
write ('kolichesnvo belih mashin: ',w);
writeln;
close(f);
writeln;
end;
procedure cvedeniya;
begin;
reset (f);
while not eof(f) do
begin
read (f,auto);
writeln('vvedite marku mashini');
readln(y);
writeln('vvedite cvet mashini');
readln(g);
if auto.marka=y
then writeln('FIO vladelca: ',auto.FIO);
end;
close (f);
writeln;
end;
procedure next;
begin
reset (f);
writeln ('vvedite chislo ot 1 do (n-1): ');
readln (nxt);
nxt1:=nxt+1;
seek (f,nxt1);
read (f,auto);
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close (f);
writeln;
end;
procedure previous;
begin
reset (F);
writeln('vvedite nomer ot dvuh do n: ');
readln (prev);
prev1:=prev-1;
seek (f,prev1);
read (f,auto);
writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close (f);
writeln;
end;
procedure first;
begin
reset (f);
seek(f,0);
read(f,auto);
writeln('pervii element: ');
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
writeln;
end;
procedure last;
begin;
reset (f);
seek(f,m);
writeln('poslednii element: ');
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
writeln;
end;
begin
clrscr;
assign(f,'automobile.dat');
flag:=0;
textbackground(13);
clrscr;
window(10,5,70,20);
textbackground(0);
clrscr;
repeat
writeln ('1. vvod');
writeln ('2. vivod');
writeln ('3. belii');
writeln ('4. cvedeniya');
writeln ('5. first');
writeln ('6. last');
writeln ('7. next');
writeln ('8. previous');
writeln ('0. vihod');
write ('vvedite nomer: ');
readln (kr);
case kr of
1:vvod;
2:vivod;
3:belii;
4:cvedeniya;
5:first;
6:last;
7:next;
8:previous;
0:break;
end;
flag:=1;
until flag=0;
end.

помогите у меня проєедура next и previous не пашут, а еїе посмотрите на проєедуру сведения там нада ввести євет и марку машины, у меня не получается, потомучто там какая то ошибка вылезает. емое проєедура ласт показывает первый элемент вроде правильно написал проєедуру

пожалуста посмотрите на эти 4 проєедуры.

заранее благодарен

23 мая, 2009

ыыы TolkienDRR

так покажу препод спросит сразу за скоко купил?

мы так не делали токо как у меня...

dec и inc что они делают?

Добавлено спустя 30 минут 32 секунды:

TolkienDRR

function SeeRec(N):boolean;
var Rec:TRec;
begin
clrscr;
reset(F);
if n>=0 and n<=filesize(F) then begin
seek(F,N);
read(F,Rec);
//показываем запись
end else SeeRec:=false;
close(f);
end;
procedure next;
begin
inc(n);
if not SeeRec(N) then dec(n);
end;
procedure previos;
begin
dec(n);
if not SeeRec(N) then inc(n);
end;
procedure first;
begin
n:=0;
seerec(N);
end;
procedure last;
begin
reset(f);
n:=filesize(f);
close(F);
seerec(N);
end;

а как моно написать как у мну?

вот прога которая пока у мя есь

program Kursovaya1;
uses crt;
const n=3; m=n-1;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var i,flag,kr,w:byte;
f:file of rec;
mashina:mas;
auto:rec;
y,g:string;
procedure vvod;
begin
rewrite (f);
for i:=1 to n do
begin
textcolor(15); write ('FIO vladelca: '); readln (auto.FIO);
textcolor(2); write (' marka avtomobilia: '); readln (auto.marka);
textcolor(14); write (' cvet mashini: '); readln (auto.colour);
textcolor(13); write (' nomer mashini: '); readln (auto.number);
textcolor(4); write (f,auto);
end;
close (f);
end;
procedure vivod;
begin
reset (f);
for i:=1 to n do
begin
read (f,auto); writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8 );
end;
close (f);
readkey;
end;
procedure belii;
begin;
reset (f);
w:=0;
while not eof(f) do
begin
read (f,auto);
if auto.colour='belii' then
inc(w);
end;
write ('kolichesnvo belih mashin: ',w);
writeln;
close(f);
writeln;
end;
{
procedure cvedeniya;
begin;
reset (f);
while not eof(f) do
begin
read (f,auto);
writeln('vvedite marku mashini');
readln(y);
writeln('vvedite cvet mashini');
readln(g);
if auto.marka=y then writeln('FIO vladelca: ',auto.FIO);
close (f);
writeln;
end;}
procedure first;
begin;
reset (f);
seek(f,0);
read(f,auto);
writeln('pervii element: ');
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
writeln;
end;
procedure last;
begin;
reset (f);
seek(f,m);
writeln('poslednii eloement: ');
writeln(auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
writeln;
end;
begin
clrscr;
assign(f,'automobile.dat');
flag:=0;
textbackground(13);
clrscr;
window(10,5,70,20);
textbackground(0);
clrscr;
repeat
writeln ('1. vvod');
writeln ('2. vivod');
writeln ('3. belii');
writeln ('4. cvedeniya');
writeln ('5. first');
writeln ('6. last');
writeln ('0. vihod');
write ('vvedite nomer: ');
readln (kr);
case kr of
1:vvod;
2:vivod;
3:belii;
{ 4:cvedeniya;}
5:first;
6:last;
0:break;
end;
flag:=1;
until flag=0;
end.

23 мая, 2009

ооо спасибо большое!!!

TolkienDRR

респект

23 мая, 2009

TolkienDRR

спасибо большле за коментарии!!!

procedure first;
begin
reset (f); --------открыл файл
//типа перемещение по бд
seek(f, 1); ------- встал перед второй записью в файле
read(f, auto); -----------считал вторую запись
writeln(auto.FIO:30, ---------вывел данные второй записи
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f);
end;
это я вывожу первый элемент
там в type до этого написал m=n-1;
procedure last;
seek(f, m); ------- встал перед второй записью в файле
read(f, auto); -----------считал вторую запись
writeln(auto.FIO:30, ---------вывел данные второй записи
auto.marka:10,
auto.colour:13,
auto.number:8);
close(f); ---------закрыл файл
writeln;
end;
это последний элемент

23 мая, 2009

while not eof(f) do

а что она делает?

22 мая, 2009

bayarookie

спасибо большое

22 мая, 2009

помогите сделать сортировку!!! ваще не могу и команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи,

редактирования текущей записи?

ыыы короче когда ктонить поможете мне то я скину ему один номерок, тому нада бует примерно такую же курсовую полностью сделать(имеется ввиду тоже базы данных)

зы все это надо до 26 мая

21 мая, 2009

Clondike

спасибо

21 мая, 2009

Clondike

спасибо большое

как сделать

команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи,

редактирования текущей записи?

20 мая, 2009

program Kursovaya1;
uses crt;
const n=3; k=0;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var
i,flag,kr,w:byte;
f:file of rec;
mashina:mas;
auto:rec;
procedure vvod;
begin
rewrite (f);
for i:=1 to n do
begin
textcolor(15); write ('FIO vladelca: '); readln (auto.FIO);
textcolor(2); write (' marka avtomobilia: '); readln (auto.marka);
textcolor(14); write (' cvet mashini: '); readln (auto.colour);
textcolor(13); write (' nomer mashini: '); readln (auto.number);
textcolor(4); write (f,auto);
end;
close (f);
end;
procedure vivod;
begin
reset (f);
for i:=1 to n do
begin
read (f,auto); writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8 );
end;
close (f);
readkey;
end;
procedure belii;
begin;
reset (f); w:=0;
if auto.colour=belii then
w:=w+1;
write ('kolichestvo belih mashin: ',w);
close(f);
writeln;
end;
begin
clrscr;
assign(f,'automobile.dat');
flag:=0;
textbackground(1);
clrscr;
window(10,5,70,20);
textbackground(0);
clrscr;
repeat
writeln ('1. vvod');
writeln ('2. vivod');
writeln('3. belii');
writeln ('0. vihod');
write ('vvedite nomer: ');
readln (kr);
case kr of
1:vvod;
2:vivod;
3:belii;
0:break;
end;
flag:=1;
until flag=0;
end.

проєедура белый в чем ошибочка чото не могу понять, когда проверяю вылазеет всегда нолик

20 мая, 2009

Создать базу данных следующей структуры:ФИО, марка автомобиля, цвет, номер. составить форму для просмотра полной информации об автомобилях,

предусмотрев в ней команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи,

редактирования текущей записи.

определить:

-сведения об автолюбителях, имеющих автомобиль заданной марки и цвета

-марки автомобилей, номер которых начинается с заданной группы символов

-количество автомтбилей белого цвета

-произвести сортировку по одному, двум или трем полям

-вывести итоговые данные на дисплей и в текстовый файл

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

program Kursovaya1;
uses crt;
const n=3; k=0;
type
rec=record
FIO:string [30];
marka:string [10];
colour:string [13];
number:integer;
end;
mas=array [1..n] of rec;
var
i,flag,kr:byte;
f:file of rec;
mashina:mas;
auto:rec;
procedure vvod;
begin
rewrite (f);
for i:=1 to n do
begin
textcolor(15); write ('FIO vladelca: '); readln (auto.FIO);
textcolor(2); write (' marka avtomobilia: '); readln (auto.marka);
textcolor(14); write (' cvet mashini: '); readln (auto.colour);
textcolor(13); write (' nomer mashini: '); readln (auto.number);
textcolor(4); write (f,auto);
end;
close (f);
end;
procedure vivod;
begin
reset (f);
for i:=1 to n do
begin
read (f,auto); writeln (auto.FIO:30,
auto.marka:10,
auto.colour:13,
auto.number:8 );
end;
close (f);
readkey;
end;
begin
clrscr;
assign(f,'automobile.dat');
flag:=0;
textbackground(1);
clrscr;
window(10,5,70,20);
textbackground(0);
clrscr;
repeat
writeln ('1. vvod');
writeln ('2. vivod');
writeln ('0. vihod');
write ('vvedite nomer: ');
readln (kr);
case kr of
1:vvod;
2:vivod;
0:break;
end;
flag:=1;
until flag=0;
end.

20 мая, 2009

ыыы типа куйня это мат??? это просто каждый понимает по своему, для меня это куйня=штучка или чтото этому подобное

Добавлено спустя 2 минуты 57 секунд:

Clondike

спастбо огромное

а не подскажешь можно текст программы из паскаля как нибудь скопировать например в майкросоћт ворд? или незя? у мну не получается а то

Добавлено спустя 2 минуты 14 секунд:

Clondike

а у тя еїе нету готовых программ, которые я могу использовать в проєессе создания своей курсовой

Создать базу данных следующей структуры:ФИО, марка автомобиля, цвет, номер. составить форму для просмотра полной информации об автомобилях,
предусмотрев в ней команды для перехода на следующую\предыдущую запись, перехода на начальную\конечную запись, добавления\удаления записи,
редактирования текущей записи.
определить:
-сведения об автолюбителях, имеющих автомобиль заданной марки и цвета
-марки автомобилей, номер которых начинается с заданной группы символов
-количество автомтбилей белого цвета
-произвести сортировку по одному, двум или трем полям
-вывести итоговые данные на дисплей и в текстовый файл

для этого кароче

20 мая, 2009

smileman

чото ваїе не понял тебя...

да и на улановке мне кажется есь люди добрые котрые помогут мне с паскалем

Войти

cloudy

Постов

Зарегистрирован

Посещение

Тип контента

Профили

Форумы

Блоги

Галерея

События

Сообщения, опубликованные cloudy

Форумная игра: Цепочка

Вопросы и ответы

Помогите создать базу данных

Форумная игра: Цепочка

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Форумная игра: Цепочка

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Помогите создать базу данных

Задачи на Pascal/Delphi (РЕШЕНИЕ)

Помогите создать базу данных

Помогите создать базу данных

Обзор

Активность