10.10.2014, 20:14 | #1 (permalink) |
Member
Регистрация: 29.05.2014
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Pascal, задачи на записи и графические построения
1.На складе имеется товар различного вида. Составить базу данных, предусмотрев поля: наименование товара, цена единицы товара, количество. Составить программу, позволяющую вывести весь список товаров; самый дешевый и самый дорогой товар; общую стоимость всего товара. ЗАДАЧА НА ГРАФИЧЕСКИЕ ПОСТРОЕНИЯ 1. Нарисовать равнобедренный прямоугольный треугольник, если радиус описанной окружности равен 45, треугольник поворачивается вокруг вершины на угол 15 градусов, делая полный оборот. (при необходимости координаты вершин рассчитываются). Заранее огромное спасибо!!! Тема перемещена в соответствующий раздел, будьте внимательнее. Ваш модерартор. |
10.10.2014, 20:14 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
решение проблемы должно упроститься, если прочитать содержимое схожих тем Практические задачи на языке Pascal Решение задачи на Pascal Pascal задачи Задача. Записи Pascal |
10.10.2014, 22:28 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
11.10.2014, 16:06 | #3 (permalink) |
Member
Регистрация: 29.05.2014
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Спасибо за подсказку где искать!Я пробовала у меня не получилось найти)
Turbo Pascal,как я думаю это просто рассматривается частный случай других объяснений не знаю.Спасибо за ответ! |
11.10.2014, 20:01 | #4 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Да любая, где есть решение, годится! И неважно, что там речь может идти о студентах, школьниках, спортсменах, автомобилях - принцип один и тот же.
Ладно. Завтра попробую выбрать время. |
12.10.2014, 11:22 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Ладно, я сегодня с утра добрый.
Вот задача про товарный склад. 1. Скачайте файл Store.txt и поместите его в корневой каталог диска С:. store.txt 2. Оттранслируйте и запустите программу: Код:
Type Things=Record Name:String[10]; Amount:Word; Price:Word; End; Var N,i,Item,Imin,Imax:Byte; Sum:LongInt; Min,Max:Word; f:Text; Goods:Array[1..100] of Things; Begin Assign(f,'C:\Store.txt'); Reset(f); N:=0; Repeat Inc(N); with Goods[N] do begin read(f,Name); read(f,Amount); readln(f,Price); end; Until EoF(f); Close(f); Repeat Writeln; Writeln('Show:'); Writeln(' 1 - full list of goods'); Writeln(' 2 - lowest anf highest price goods'); Writeln(' 3 - full price of all goods'); Writeln(' 4 - Exit'); Readln(Item); Case Item of 1: for i:=1 to N do writeln(Goods[i].Name); 2: begin Min:=Goods[1].Price; Imin:=1; Max:=Goods[1].Price; Imax:=1; for i:=2 to N do begin if Goods[i].Price<Min then begin Min:=Goods[i].Price; Imin:=i; end; if Goods[i].Price>Max then begin Max:=Goods[i].Price; Imax:=i; end; end; Writeln('Minimal: ',Goods[Imin].Name,' (',Goods[Imin].Price,')'); Writeln('Maximal: ',Goods[Imax].Name,' (',Goods[Imax].Price,')'); end; 3: begin Sum:=0; for i:=1 to N do Inc(Sum,Goods[i].Price*Goods[i].Amount); Writeln('Full price of all goods: ',Sum); end; else Item:=4; end; Until Item=4; End. |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
12.10.2014, 12:27 | #6 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Далее, замечаем, что радиус описанной окружности в данном случае равен высоте треугольника, или половине основания (оно же - гипотенуза). Вроде всё. Код:
Uses CRT,Graph; Const RC=45; Var R,XA,XB,YA,YB,FClr,BClr,i,Xc,Yc:Word; Angle:Real; Procedure Triang(Color:Word); begin SetColor(Color); XA:=Xc+Round(R*Cos(Pi/4+Angle)); YA:=Yc-Round(R*Sin(Pi/4+Angle)); XB:=Xc+Round(R*Cos(-Pi/4+Angle)); YB:=Yc-Round(R*Sin(-Pi/4+Angle)); Line(Xc,Yc,XA,YA); Line(Xc,Yc,XB,YB); Line(XA,YA,XB,YB); end; Begin InitGraph(..., ..., ...); {Тут - самостоятельно!} SetLineStyle(SolidLn,0,ThickWidth); R:=Round(RC*Sqrt(2)); Xc:=GetMaxX div 2; Yc:=GetMaxY div 2; FClr:=GetColor; BClr:=GetBkColor; for i:=0 to 24 do begin Angle:=Pi/12*i; Triang(FClr); if i<24 then begin Delay(1000); Triang(BClr); end; end; SetColor(FClr); SetTextJustify(CenterText,BottomText); OutTextXY(Xc,2*Yc-10,'Press any key to quit...'); Readkey; CloseGraph; End. |
|
13.10.2014, 06:37 | #7 (permalink) |
Member
Регистрация: 29.05.2014
Сообщений: 14
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Ого!!!Ничего себе!!!!Огромное спасибо!!!Что бы я без Вас делала!!!!!Еще раз спасибо!
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|