|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
17.04.2010, 13:59 | #1 |
Пользователь
Регистрация: 25.03.2009
Сообщений: 47
|
таблица на записи..
нужно составить таблицу...с 8 выборками. 5 я уже сделала.Таблица о отчете компьюторного магазина. помогите сосчитать сумму всех товаров.. и можно по алфавиту вывести товар?
Program Pr82; uses crt; type Magaz=record tov,proi:string[10]; kol:0..1000; many:200..50000; zakyp:100..35000; skidki:3..20; garan:1..5; end; var x:array[1..12] of Magaz; i,m:word; sum:real; f:file of Magaz; Begin {textbackground(0);clrscr; window(2,1,79,24);textbackground(7) ;textcolor(14); clrscr; window(25,1,77,6);textbackground(3) ;textcolor(14);clrscr; window(26,2,76,5);textbackground(4) ;textcolor(14); clrscr; writeln ( ' JIa6opaTOpHan pa6oTa N" 7 '); window(5,4,74,23);textbackground(3) ;textcolor(14);clrscr; window(6,5,73,22);textbackground(4) ;textcolor(14);clrscr; } clrscr; assign(f,'C:\Users\Darika\Desktop\A ll.txt'); m:=12; rewrite(f); with x[1] do begin tov:='копм';proi:='россия';kol:=150 ; many:=200; skidki:=3 ;garan:=3; end; with x[2] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:= 3;garan:=3; end; with x[3] do begin tov:='копм';proi:='росиия';kol:=150 ;many:=200; skidki:= 3;garan:=3; end; with x[4] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:= 3;garan:=3; end; with x[5] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:=3;garan:=3; end; with x[6] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:=3 ;garan:=3; end; with x[7] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:=3 ;garan:=3; end; with x[8] do begin tov:='копм';proi:='россия';kol:=150 ;many:=200; skidki:=3 ;garan:=3; end; with x[9] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:=3 ;garan:=3; end; with x[10] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:= 3 ;garan:=3;end; with x[11] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:=3 ;garan:=3; end; with x[12] do begin tov:='комп';proi:='россия';kol:=150 ;many:=200; skidki:= 3 ;garan:=3; end; for i:=1 to m do write(f,x[i]); close(f);reset(f); writeln(' Список'); writeln('+-----------------------------------------------------------------------+'); writeln('|Товар |производитель| количество| цена |скидки |гарантия |'); write('+--------------------------------------------------------------------------+'); for i:=1 to m do read(f,x[i]); for i:=1 to m do with x[i] do writeln(' |',tov:10,'|',proi:10,'|', kol:6,'|',many:10,'|',zakyp:10,'|', skidki:7,'|',garan:7,'|'); writeln('+--------------------------------------------------------------------+'); close(f); readln; write(' больше 20000'); writeln('+-------------------------------------------------------------------------+'); writeln(' |Товар |производитель| цена| '); writeln('+--------------------------------------------------------------------------+'); for i:=1 to m do with x[i] do begin if many > 2000 then writeln('|',tov:10,'|',proi:10,'|', many:10,'|'); end; writeln('+------------------------------------------------------------------------+'); close(f); readkey; write; reset(f); writeln; writeln('гарантия меньше года'); writeln('+--------------------------------------------------------------------------+'); writeln(' |Товар |производитель| цена| Гарантия|'); write('+--------------------------------------------------------------------------+'); for i:=1 to m do with x[i] do begin if garan < 3 then writeln('|',tov:10,'|',proi:10,'|', many:10,'|',garan:7,'|');end; writeln('+--------------------------------------------------------------------------+'); close(f); write(' Страна производителя Германия'); writeln('+-------------------------------------------------------------------------+'); writeln(' |Товар |производитель| цена| '); writeln('+--------------------------------------------------------------------------+'); for i:=1 to m do with x[i] do begin if proi='Германия' then writeln('|',tov:10,'|',proi:10,'|', many:10,'|'); end; writeln('+------------------------------------------------------------------------+'); close(f); write(' с А'); writeln('+-------------------------------------------------------------------------+'); writeln(' |Товар |производитель| цена| '); writeln('+--------------------------------------------------------------------------+'); for i:=1 to m do with x[i] do if copy(proi,2,1)='A' then writeln('|',tov:10,'|',proi:10,'|', many:10,'|'); writeln('+------------------------------------------------------------------------+'); close(f); readkey; End. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Таблица в C# (не БД) | mopozoff | Общие вопросы .NET | 6 | 15.11.2015 00:15 |
таблица | Cpluser | HTML и CSS | 1 | 09.02.2010 20:50 |
Таблица | AIda__ | Microsoft Office Excel | 3 | 01.12.2009 13:19 |
таблица | тася | Microsoft Office Excel | 17 | 25.01.2009 00:29 |
Таблица | frutty | Компоненты Delphi | 1 | 07.04.2008 09:29 |