2 / 2 / 2
Регистрация: 31.03.2013
Сообщений: 325
|
|
1 | |
Составить программу, выводящую на экран перечень товаров, имеющихся в продаже в магазине "Океан" (наименование, единица измерения, цена, количество)31.03.2013, 18:54. Показов 1210. Ответов 0
Метки нет Все метки)
(
uses crt;
type tovar=record naim:integer;{Наименование товара} izm:string [20];{Единица измерения} cena:integer;{Цена} Kolichestvo:integer;{Количество} end; var Perech:array [1...10] of tovar; i,n:integer; begin write ('введите перечень всех товаров:');read(n); for i:=1 to n do begin write ('Наименование товара ');read(perech[i].naim); write ('Единица измерения ');read(perech[i].izm); write ('Цена ');read(perech[i].cena); write ('Количество ');read(perech[i].kolichestvo); end; clrscr; writeln('Перечень товаров имеющихся в продаже в магазине Океан'); writeln ('_____________________________________________________'); writeln ('Наименование товара, Единица измерения, Цена, Количество'); for i:=1 to n do begin gotoxy (1,i+3);write(rasp [i].naim); gotoxy (14,i+3);wrie(rasp [i].izm); gotoxy (22,i+3);write(rasp [i].cena); gotoxy (28,i+3);write(rasp [i].kolichestvo); end; writeln; write('-------------------------------------------------------'); end. в строке задания массива пишет что он не верен если кто знает помогите
0
|
31.03.2013, 18:54 | |
Ответы с готовыми решениями:
0
Создать комбинированный (структурный) тип для переченя товаров имеющихся в продаже в магазине «Океан»
|
31.03.2013, 18:54 | |
31.03.2013, 18:54 | |
Помогаю со студенческими работами здесь
1
Составить программу, выводящую на экран перечень товаров Составить программу, выводящую на экран перечень товаров Составить программу, выводящую на экран меню детского кафе (наименование блюда, вес, цена). Определить стоимость заказан Перечень товаров, имеющихся в магазине, оформить в виде списка Cоставить данные об ассортименте обуви в магазине. Структура : наименование, цена. Вывести на экран наименование самый дорогой обуви.
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |