Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.06.2011, 10:30   #1
Mr_John_Smith
Новичок
Джуниор
 
Регистрация: 15.06.2011
Сообщений: 1
По умолчанию Нахождение общей и средней цены в базе данный, Turbo Pascal

Нужно написать процедуры для посчета общей и средней суммы для столбца со значениями цены. Я вроде что-то написал,но почему то они не работают.
Код:
program kursovaya;
uses crt;
type tinf=record
            marka,model,matr,displ,ves,obj,nosit,svjaz,format:string;
            cena:integer;
          end;
list=^Tlist;
Tlist=record
      data:Tinf;
      next:List;
      end;
var znom:tinf;
    zn:string;
    spis:list;
    strc:string;
    i,j:integer;
    ch:char;
    f,g:text;
    h:file of char;
    first:list;
    b:string;
    s:real;

procedure summa;
var i:list;
    s:real;
begin
  s:=0;
  while i<>nil do
    begin
      s:=s+i^.data.cena;
      i:=i^.next;
    end;
  str(s,b);
  b:='Общая стоимость=';
end;

procedure sr_cena;
var i:list;
    s:real;
    o:byte;
begin
  i:=first;
  s:=0;
  o:=0;
  while i<>nil do
    begin
      s:=s+i^.data.cena;
      o:=o+1;
      i:=i^.next;
    end;
  str(s/o,b);
  b:='Средняя стоимость='+b;
end;
Mr_John_Smith вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нахождение корней уравнения методом половинного деления в ИСР Turbo Pascal 72nikola Фриланс 2 14.06.2011 16:06
а free pascal не читает задачи которые написаны на turbo pascal? demonara Паскаль, Turbo Pascal, PascalABC.NET 3 25.05.2009 16:28
информация о средней температуре. массив felmro Паскаль, Turbo Pascal, PascalABC.NET 1 29.12.2008 21:41