Работа с файлами(дозаписывание чисел и создания и просмотр типизированного файла)

[danil663]

а)Написать программу, которая дозаписывает в файл numbers.txt 5 введённых пользователем целых чисел.
б)Разработать программу создания и просмотра типизированного файла, содержащего сведения о компьютерных играх: название игры, жанр ,цена.

главное решить пункт б). заранее благодарен всем кто даже просто прочитал это

[danil663]

всё ещё актуально

[Вадим Мошев]

Я смогу помочь за денежное вознаграждение. Вы согласны?

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Я смогу помочь за денежное вознаграждение. Вы согласны?

Вадим, какой вознаграждение, о чём Вы?! Вы ещё не поняли?..
danil663 упёртый халявщик. Он твёрдо уверен, что найдётся человек (не здесь, так на киберфоруме, где он дублирует посты), который ему напишет программу "за просто так".
И, надо признать, форумчанин Mad_Cat очень способствует укреплению этой веры...

[danil663]

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

Вадим, какой вознаграждение, о чём Вы?! Вы ещё не поняли?..
danil663 упёртый халявщик. Он твёрдо уверен, что найдётся человек (не здесь, так на киберфоруме, где он дублирует посты), который ему напишет программу "за просто так".
И, надо признать, форумчанин Mad_Cat очень способствует укреплению этой веры...

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

[Аватар]

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

Кроме скудной стипендии голова еще должна быть. Или она не в состоянии? А стипендию за красивые глазки наверно платят. Да и дядьки есть, сделают все вместо ТС. И так будет всегда

[Вадим Мошев]

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

Вадим, какой вознаграждение, о чём Вы?! Вы ещё не поняли?..
danil663 упёртый халявщик. Он твёрдо уверен, что найдётся человек (не здесь, так на киберфоруме, где он дублирует посты), который ему напишет программу "за просто так".
И, надо признать, форумчанин Mad_Cat очень способствует укреплению этой веры...

Сергей. Ну, я понял уже это (что он упёртый халявщик) с первых постов ТС. "Я всё равно буду постить задачи..." (С) ТС...
Ну, я просто понадеялся на (авось) то, что вдруг автор решит воспользоваться платными услугами...

danil663

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

Дайте-ка угадаю, вы учитесь на первом курсе и получаете стипендию за хорошие результаты по вступительным экзаменам? Если нет, то я тогда не могу понять, как вы её получаете с таким отношением к учёбе... вот как вы собираетесь сдавать экзамены по программированию?

[Mad_Cat]

Написать программу, которая дозаписывает в файл numbers.txt 5 введённых пользователем целых чисел.

const fn='numbers.txt';
var f:text;
i:byte;
a:integer;
begin
assign(f,fn);
{проверку на существование файла
допилите сами}
append(f);
for i:=1 to 5 do
begin
readln(a);
write(f,a,' ');
end;
close(f);
end.

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

const fn='Games.db';
Type TGame = record
n:string[255];
j:string[10];
c:real;
end;
var f:file of TGame;
op:byte;
B:TGame;
count,i:integer;
begin
assign(f,fn);
writeln('Database exist? 1 - yes 2 - no');
readln(op);
case op of
1:reset(f)
else rewrite(f);
end;
writeln('View or Add? 1 - View 2 - Add');
readln(op);
case op of
1:
while not eof(f) do begin
read(f,b);
with b do
Writeln(n,' ',j,' ',c);
end
else begin
writeln('count=');
readln(count);
for i:=1 to count do begin
readln(b.n,b.j,b.c);
write(f,b);
end;
end;
end;
close(f);
end.

форумчанин Mad_Cat очень способствует укреплению этой веры...

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

[danil663]

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

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

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

кстати если нужны аккаунты с играми(steam и другие) обращайся

[Mad_Cat]

если нужны аккаунты с играми steam

ты мой акк steam видел? нафига мне еще игры, но за предложение спс)