IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> помогите разобраться
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской

Репутация: -  0  +


Не могу понять суть задачи и что именно надо делать, помогите разобраться.
тема:Разработка в среде турбо паскаль программы формирования файла данных из массива записей.
Задача:
Описать запись с именем Bill, содержащую следующие поля:
расчетный счет плательщика;
расчетный счет получателя;
перечисляемая сумма в рублях.
Написать программу, выполняющую следующие действия:
• ввод данных с клавиатуры в массив, состоящий из n элементов типа Bill; записи должны быть упорядочены в алфавитном порядке по расчетным счетам плательщиков;
• вывод на экран информации о сумме, снятой с расчетного счета плательщика, введенного с клавиатуры; если такого расчетного счета нет, вывести на экран соответствующее сообщение;
• запись массива в файл под заданным с клавиатуры именем.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
сообщение
Сообщение #2


Новичок
*

Группа: Пользователи
Сообщений: 47
Пол: Мужской

Репутация: -  0  +


в смысле описать запись?что подразумевается под словом запись?
в смыле ТИПА Bill?


Добавлено через 15 мин.


Вот я сделал программу.

var
f:text;
a:array[1..3] of string;
i:integer;
q,w,e,r:longint;
c:boolean;
begin
c:=false;
assign(f,’c:\winn.txt’);
rewrite(f);
writeln(‘rashetniy shet platelchika’,’ rashet shet poluchatela’,’ summa v rublah’);
for i:=1 to 3 do
begin
readln(a[i]);
writeln(f,a[i]);
end;
close(f);
writeln(‘vvedite nomer’);
readln®;
reset(f);
for i:=1 to 3 do
begin
readln(f,q,w,e);
if r=q then
begin
c:=true;
writeln(e);
end;
end;
close(f);
if c=false then writeln(‘netu’);
readln;
end.

Что и где я неправильно поняЛ??
М
используй теги



Сообщение отредактировано: klem4 -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
RAPON   помогите разобраться   6.04.2008 17:03
мисс_граффити   какой именно пункт вызывает затруднения? вроде все…   7.04.2008 1:08
RAPON   в смысле описать запись?что подразумевается под сл…   7.04.2008 12:29
Client   Посмотри здесь Записи. Record.   7.04.2008 13:33
RAPON   const n=4; type bill=record reashetplat,raspoluch,…   7.04.2008 21:33
renesko1   ВВод данных с клавы осуществи через цикл const n…   7.04.2008 21:51
volvo   В задании все написано... По алфавиту должны сорти…   8.04.2008 0:09
renesko1   В задании все написано... По алфавиту должны сорт…   8.04.2008 0:21
RAPON   ....<--то что с клавиатуры Я не понял этот мом…   8.04.2008 12:11
RAPON   каким образом можно обращаться к к полям в этом ма…   8.04.2008 12:47
renesko1   const n=4; type bill=record reashetplat,raspoluch…   8.04.2008 19:50
volvo   Во-первых, кто тебе сказал, что расчетный счет ВСЕ…   8.04.2008 20:29
RAPON   спасибо.сегодня попробую разобраться,но уверен воп…   8.04.2008 21:54
RAPON   var c:char; s:string; v:integer; begin s:='gdf…   9.04.2008 15:57
Ozzя   var c:char; s:string; v:integer; begin s:=…   9.04.2008 16:41
RAPON   var c:char; s:string; v:integer; begin s:…   9.04.2008 16:54
Ozzя   s:='gdfg'; for i:=1 to Length(s) do Writ…   9.04.2008 17:09
RAPON   Спасибо!я всё понял и доделал. Ещё две задачи…   10.04.2008 15:01
Michael_Rybak   RAPON, создай, пожалуйста, по отдельной теме для к…   10.04.2008 15:32
RAPON   скажите пожалуйста а лучше покажите,каким образом …   12.04.2008 23:01
Michael_Rybak   закрыто. см. выше.   12.04.2008 23:40


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 16.04.2021 16:01
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name