Описать запись с именем ORDER, содержащую следующие поля...

LASSTIRE · 26.05.2011, 19:11

Добрый день!

Цитата:

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

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

Нужно решение в Pascal .

Срочно нужно решение, кто может пожалуйста посмотрите и покажите решение

LASSTIRE · 27.05.2011, 00:19

Пожалуйста покажите решение, нужно к концу недели.

LASSTIRE · 27.05.2011, 03:25

order=record
schplat:string;
schpol:string;
sumr:string;
end:
var mas:array [1..8] of order;
procedure vvod;
k,i:integer
begin
writeln('schplat');
readln(schplat[i]);
writeln( 'schpol');
readln( schpol[i]);
writeln('sumr');
readln(sumr[i]);
end;

вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом

Vladimir_S · 27.05.2011, 09:59

Цитата:

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

order=record
schplat:string;
schpol:string;
sumr:string;
end:
var mas:array [1..8] of order;
procedure vvod;
k,i:integer
begin
writeln('schplat');
readln(schplat[i]);
writeln( 'schpol');
readln( schpol[i]);
writeln('sumr');
readln(sumr[i]);
end;

вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом

Сделать-то сделали, но нечто нелепое и абсолютно неправильное. Правильно так:

Код:

type 
 order=record
          schplat:string;
          schpol:string;
          sumr:string;
         end;

var 
 mas:array [1..8] of order;

procedure vvod;
var i:integer
begin
 for i:=1 to 8 do
  begin
   writeln('schplat');
   readln(mas[i].schplat);
   writeln('schpol');
   readln(mas[i].schpol);
   writeln('sumr');
   readln(mas[i].sumr);
  end;
end;

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

Код:

procedure vvod;
var i:integer
 begin
 for i:=1 to 8 do
  with mas[i] do
   begin
    writeln('schplat');
    readln(schplat);
    writeln('schpol');
    readln(schpol);
    writeln('sumr');
    readln(sumr);
   end;
end;

А вообще, если Вы обратили внимание, в последние дни на форум обрушилась лавина запросов на составление программ создания и работы с базами данных на основе массивов записей. Естественно, помочь всем страждущим лоботрясам мы не в состоянии - работа это долгая, нудная и кропотливая, притом абсолютно тупая и рутинная. Но несколько примеров полностью отлаженных программ, которые можно взять за образец, найти можно, пройдясь по разделам "Delphi..." и "Студентам...". Причем далеко по датам зарываться не надо.

LASSTIRE · 27.05.2011, 11:32

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

LASSTIRE · 27.05.2011, 12:40

я вот в этом моменте чуть затормаживаю

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

с алфавитом что-то сделал, может позже покажу

Vladimir_S · 27.05.2011, 12:49

Цитата:

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

я вот в этом моменте чуть затормаживаю

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

с алфавитом что-то сделал, может позже покажу

Ну... Вы в лучшем положении, если только "чуть затормаживаете": я так в этих пассажах вообще ни бельмеса не понял. Ежели бы в алфавитном порядке по фамилиям - тут было бы ясно, а по счетам??? И что вводится с клавиатуры - сумма, номер счета или и то, и другое?

LASSTIRE · 27.05.2011, 13:19

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

27.05.2011, 00:19	#2 (permalink)
LASSTIRE Member Регистрация: 25.05.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 5	Пожалуйста покажите решение, нужно к концу недели.

27.05.2011, 03:25	#3 (permalink)
LASSTIRE Member Регистрация: 25.05.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 5	order=record schplat:string; schpol:string; sumr:string; end: var mas:array [1..8] of order; procedure vvod; k,i:integer begin writeln('schplat'); readln(schplat[i]); writeln( 'schpol'); readln( schpol[i]); writeln('sumr'); readln(sumr[i]); end; вроде какой-то ввод сделал, помогите дальше с алфавитным порядком и выводом

27.05.2011, 11:32	#5 (permalink)
LASSTIRE Member Регистрация: 25.05.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 5	Примеры обязательно искал и смотрел, но в этом деле новичок , вот и получается каша благодарю за исправления

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

27.05.2011, 12:40	#6 (permalink)
LASSTIRE Member Регистрация: 25.05.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 5	я вот в этом моменте чуть затормаживаю "..записи должны быть размещены в алфавитном порядке по расчетным счетам плательщиков, вывод на экран информации о сумме,снятой с расчетного счета плательщика введенного с клавиатуры.." с алфавитом что-то сделал, может позже покажу

27.05.2011, 13:19	#8 (permalink)
LASSTIRE Member Регистрация: 25.05.2011 Сообщений: 13 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 5	ну я с Вами согласен, а тут ,я так думаю ,номер счета вводится с клавы. Если есть какие идеи, поделитесь, а я пойду в школе чуть пообщаюсь по этой задачке.