25.Конец

3.1 Разработка текста программы

Сначала мы задаем массивы типов «integer» и «string» которые будут заполняться данными. В массиве «a» будут содержаться коды товаров, в массиве «b» будут содержаться цены товаров, в массиве «c» будут содержаться количества товаров, в массиве «d» будут содержаться наименования товаров и в массиве «e» будут содержаться названия поставщиков, также вводим «i» которая послужит индексом элементов. После, заполняем массивы данными и выводим на экран исходную таблицу. Для выполнения первого запроса, мы запрашиваем ценовые пределы (переменная min и переменная max) и в цикле находим данные удовлетворяющие требованиям (b[i]). На экран выводим d[i] (наименование товара). Для выполнения второго запроса мы запрашиваем название поставщика(p) и в цикле ищем соответствующих поставщиков в массиве с поставщиками(e[i]). Выводим на экран код(a[i]), название товара(d[i]), цену(b[i]) и количество(c[i]) товара соответствующего поставщика. Для третьего запроса запрашиваем наименование товара(ima) и в цикле ищем соответствующие названия товаров в массиве с наименованиями товаров(d[i]). Если такие имеются, то на экран выводится код(a[i]), цена(b[i]), количество(c[i]) и поставщик товара(e[i]). Для четвертого запроса мы запрашиваем код товара(x) и в цикле ищем соответствующий ему код в массиве с кодами товаров(a[i]). Если таковой находится, то предлагается ввести новую цену для товара с этим кодом(b[i]). Для выполнения пятого запроса мы запрашиваем поставщика(p2) и ищем соответствующего поставщика в таблице с поставщиками(e[i]). Если находится соответствующий поставщик то предлагается ввести новое количество для товара соответствующего поставщика(c[i]).

После выполнения запросов на экран выводится конечная таблица.

3.2 Текст программы

Program kursa4;

uses crt;

var a,b,c:array[1..10] of integer;

d,e:array[1..10] of string;

i,min,max,x:integer;

p,ima,p2:string;

begin

for i:=1 to 3 do begin

writeln('Vvedite kod');

readln(a[i]);

writeln('Vvedite naimenovanie tovara');

readln(d[i]);

writeln('Vvedite cenu tovara');

readln(b[i]);

writeln('Vvedite koli4estvo tovara');

readln(c[i]);

writeln('Vvedite postavwika');

readln(e[i]);

end;

clrscr;

writeln('Ishodnaya tablica');

writeln('|Kod|IMA|CENA|KOL|POST|');

writeln('-----------------------');

for i:=1 to 3 do begin

writeln ('| ',a[i],' |',d[i],'|',b[i],' |',c[i],' |',e[i],'|');

writeln('-----------------------');

end;

writeln('Pervoe zadanie');

writeln('Vvedite cenovye predely');

writeln('minimum');

readln(min);

writeln('maximum');

readln(max);

writeln('Naimenovanie tovara');

for i:=1 to 3 do begin

if (b[i]>=min)and(b[i]<=max) then

writeln('|',d[i],'|');

end;

writeln('Vtoroe zadanie');

writeln('Vvedite Postavwika');

readln(p);

for i:=1 to 3 do begin

if (e[i]=p) then begin

writeln('|Kod|IMA|CENA|KOL|');

writeln('| ',a[i],' |',d[i],'|',b[i],' |',c[i],' |');

end;

end;

writeln('Tretie zadanie');

writeln('Vvedite naimenovanie tovara');

readln(ima);

for i:=1 to 3 do begin

if (d[i]=ima) then begin

writeln('|Kod|CENA|KOL|POST|');

writeln('| ',a[i],' |',b[i],' |',c[i],' |',e[i],'|');

end;

end;

writeln('4etvertoe zadanie');

writeln('Vvedite kod tovara');

readln(x);

for i:=1 to 3 do begin

if (a[i]=x) then begin

writeln('vvedite new cenu');

readln(b[i]);

end;

end;

writeln('Pyatoe zadanie');

writeln('Vvedite Postavwika');

readln(p2);

for i:=1 to 3 do begin

if (e[i]=p2) then begin

writeln('Vvedite new koli4estvo tovara');

readln(c[i]);

end;

end;

writeln('Kone4naya tablica');

writeln('|Kod|IMA|CENA|KOL|POST|');

writeln('-----------------------');

for i:=1 to 3 do begin

writeln ('| ',a[i],' |',d[i],'|',b[i],' |',c[i],' |',e[i],'|');

writeln('-----------------------');

end;

end.