Pascal - Записи

[Kris92]

Фирма, обеспечивающая водоснабжением население, установила размеры платы за воду:
1) 0.004 дол. за литр для первых 100 л;
2) 0.003 дол. за каждый очередной литр.
Написать программу, выдающую на печать следующую информацию о клиенте:
Фамилия клиента
Порядковый номер
Прежнее показание расходомера
Новое показание расходомера
Потребленное количество воды
Размер платы по 1 тарифу
Размер платы по 2 тарифу
Общая сумма

[Stilet]

Ну а что не получается?
Высчитать суммы или работать с записями?
Данные откуда берутся?

[Kris92]

ничего не получается...
я не умею составлять программы(

[Snejnaya]

ничего не получается...
я не умею составлять программы(

молодец, честно призналась...

type  TRec =Record
          fam:string[20];
          numb:integer;
          p_old:integer;
          p_new:integer;
          rashod:integer;
          plata1:real;
          plata2:real;
          sum:real
          end;

var mas[1..20]:array of TRec;
var ch:char;
    i,j:integer;


begin
ch:='0';
i:=0;
while(ch<>'2') do
begin
i:=i+1;
writeln('vvedite familiyu');
readln(mas[i].fam);
writeln('vvedite starie pokazaniya schetchika');
readln(mas[i].p_old);
writeln('vvedite novie pokazaniya schetchika');
readln(mas[i].p_new);

mas[i].numb:=i;
mas[i].rashod:=mas[i].p_new-mas[i].p_old;
if (mas[i].rashod<100)or(mas[i].rashod=100) then
       begin
       mas[i].plata1:=mas[i].rashod*0.004;
       mas[i].plata2:=0;
       end
else
       begin
       mas[i].plata1:=0.4;
       mas[i].plata2:=(mas[i].rashod-100)*0.003;
       end;
mas[i].sum:=mas[i].plata1+mas[i].plata2;

writeln('dla sozdaniya novoy zapisi vvedite 1, dla vivoda resultata 2');
readln(ch);
end;

for j:=1 to i do
begin
writeln('familiya:  ', mas[j].fam);
writeln('nomer:   ',mas[j].numb);
writeln('starie pokazaniya: ',mas[j].p_old);
writeln('novie pokazaniya: ',mas[j].p_new);
writeln('potreblennaya voda: ', mas[j].rashod);
writeln('plata po 1 tarifu: ', mas[j].plata1);
writeln('plata po 2 tarifu: ', mas[j].plata2);
writeln('obwaya summa: ',mas[j].sum);
writeln;
end;
readln;
end.

[Stilet]

В таком случае:
http://www.pascal.helpov.net/index/f...al_programming

и по ссылкам:
http://yandex.ua/yandsearch?text=%D0...ld=ua&lr=20554

Ну и прошерстить:
http://yandex.ua/yandsearch?text=%D0...ammersforum.ru