Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
Eremait
0 / 0 / 1
Регистрация: 27.06.2011
Сообщений: 8
1

Кубик

26.01.2012, 23:45. Просмотров 624. Ответов 1
Метки нет (Все метки)

Помогите доделать программу
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
uses crt;
type kubik=record
             rzm:word;
             zvet:string;
             material:string[20];
             end;
var f: file of kubik;
a:kubik;
n,q:string;
begin
clrscr;
assign (f,'catalog.dat');
rewrite (f);
repeat
writeln ('vvedite razmer kubica(dlinna)');
readln (a.rzm);
writeln ('vvedite cvet (red,green,blue,black)');
readln (a.zvet);
writeln ('vvedite material kubica (derevo, metall, karton)');
readln (a.material);
write (f,a);
writeln('Hotit zapolnyat dalshe? (d/n)');
readln(q);
until 'n'=q;
close (f);
clrscr;
reset (f);
repeat
read (f,a);
writeln (a.rzm, a.zvet:10,a.material:10);
until eof (f);
close(f);
end.
Нужно определить
-Количество деревянных кубиков с ребром 3см
-количество кубиков каждого из перечисленных цветов и их суммарный объем
-кубик с максимальным обемом
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.01.2012, 23:45
Ответы с готовыми решениями:

Кубик Рубика
Здравствуйте)помогите пожалуйста если не трудно)) Изобразить на экране ЭВМ следующий рисунок

Игра в кубик
паскаль написать прогу. анна и борис играют в игру загадай число. оба игрока записывают на бумаге...

Нарисовать развернутый кубик
сделать блок схему и программу ...или только программу

Нарисовать кубик рубик с разными цветами
срочно нужны

Нарисовать "кубик рубик"
помогите сделать задачу через модуль Graph, без анимаций просто нарисовать этот кубик

1
Puporev
Модератор
56598 / 43285 / 29928
Регистрация: 18.05.2008
Сообщений: 102,970
27.01.2012, 09:12 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
uses crt;
const cv:array[1..4] of string[5]=('red','green','blue','black');
      mt:array[1..3] of string[6]=('derevo', 'metall', 'karton');
type kubik=record
             rzm:word;
             zvet:string[5];
             material:string[6];
             end;
var f: file of kubik;
    a,x:kubik;
    n,q:string;
    w,kd,mx,imx,i,j,v:word;
    k:array[1..4,1..2] of integer;{kol.kyb. raz. cvetov i ih objem}
begin
clrscr;
assign (f,'catalog.dat');
rewrite (f);
repeat
repeat
writeln ('vvedite razmer kubica(dlinna)');
readln (a.rzm);
until a.rzm>0;
repeat
writeln ('vvedite cvet (1-red,2-green,3-blue,4-black)');
readln(w);
until w in [1..4];
a.zvet:=cv[w];
repeat
writeln ('vvedite material kubica (1-derevo, 2-metall, 3-karton)');
readln(w);
until w in [1..3];
a.material:=mt[w];
write (f,a);
writeln('Hotit zapolnyat dalshe? (d-da, drugoe-net)');
readln(q);
until q<>'d';
clrscr;
reset (f);
writeln('Soderzanie fajla:');
kd:=0;{kol. derevyannyh}
mx:=0;{max. objem}
imx:=0;{index max. objema}
for i:=1 to 4 do
for j:=1 to 2 do
k[i,j]:=0;
for i:=0 to filesize(f)-1 do
 begin
  read(f,a);
  writeln (a.rzm:4,a.zvet:10,a.material:10);
  if a.material='derevo' then kd:=kd+1;
  v:=a.rzm*a.rzm*a.rzm;
  if v>mx then
   begin
    mx:=v;
    x:=a;
   end;
  for j:=1 to 4 do
  if a.zvet=cv[j] then
   begin
    k[j,1]:=k[j,1]+1;
    k[j,2]:=k[j,2]+v;
   end;
 end;
close(f);
writeln('Kol. derevyannyh kubikov=',kd);
writeln('Kubik s max. objemom:');
writeln(a.rzm:4,a.zvet:10,a.material:10);
for i:=1 to 4 do
writeln(cv[i],'  kol=',k[i,1],'  summ.objem=',k[i,2]);
readln
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.01.2012, 09:12

3D кубик
Срочно нужен кусок кода, создающего 3D модель каркасного кубика, причем вставленного в рамку. Очень...

3D кубик
Нужно нарисовать куб и с помощью Button крутить его по XYZ.

Кубик
Подскажите, пожалуйста, какой проект создать и как нарисовать вращающийся кубик на Visual Studio?...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru