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

Найти количество красной краски, затем количество масленой краски

25.12.2011, 13:42. Показов 1127. Ответов 2
Метки нет (Все метки)

4)Создать список имеющейся краски.
Описать и ввести массив, содержащий 10 записей следующей структуры: название, цвет, дата изготовления, состав (масленая, синтетическая или водная).
Вывести массив в табличном виде.
Вывести масленную краску, изгатовленную похже 01.04.1998.
Найти количество красной краски, затем количество масленой краски.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
25.12.2011, 13:42
Ответы с готовыми решениями:

Найти количество красной краски, затем количество масленой краски
2)Создать список имеющейся краски. Описать и ввести массив, содержащий 10 записей следующей...

Сколько граммов краски потребуется для покраски стола, если на покраску 1кв.метра требуется x граммов краски?
Помогите пожалуйста задача вроде простая, а сообразить не могу. Сколько граммов краски...

Подсчитать количество водоэмульсионной краски для покрытия потолка
Подсчитать количество водоэмульсионной краски для покрытия потолка и масляной краски для покрытия...

Подсчитать количество водоэмульсионной краски для покрытия потолка
Подсчитать количество водоэмульсионной краски для покрытия потолка и масляной краски для покрытия...

2
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
25.12.2011, 13:47 2
4)
Найти количество красной краски, затем количество масленой краски
0
0 / 0 / 3
Регистрация: 25.12.2011
Сообщений: 39
26.12.2011, 14:30  [ТС] 3
Лучший ответ Сообщение было отмечено Dasha180893 как решение

Решение

помогите пожалуйста дописать программу что бы она предусматривала защиту от неправильного ввода данных(Создать список имеющейся краски.
Описать и ввести массив, содержащий 10 записей следующей структуры: название, цвет, дата изготовления, состав (масленая, синтетическая или водная).
Вывести массив в табличном виде.
Вывести масленную краску, изгатовленную похже 01.04.1998.
Найти количество красной краски, затем количество масленой краски. )
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
72
73
74
program k4;
uses crt;
type book=record
     naz:string;
     col:string;
     d:byte;
     m:byte;
     y:word;
     sost:string;
end;
var x:array[1..10] of book;
    i,p,k,k2:integer;
 Begin
  clrscr;
  for i:=1 to 10 do
   begin
    write('Vvedite Nazvanie: ');
    readln(x[i].naz);
    write('Vvedite Cvet: ');
    readln(x[i].col);
    write('Vvedite den izgotovleniya: ');
    readln(x[i].d);
    write('Vvedite mesyac izgotovleniya: ');
    readln(x[i].m);
    write('Vvedite god izgotovleniya: ');
    readln(x[i].y);
    write('Vvedite sostav: ');
    readln(x[i].sost);
   end;
    clrscr;
     p:=2;
     for i:=1 to 10 do
      begin
       with x[i] do
        begin
         gotoxy(2,1);
         writeln('Nazvanie');
         gotoxy(2,p);
         write(naz);
         gotoxy(15,1);
         writeln('Cvet');
         gotoxy(15,p);
         write(col);
         gotoxy(29,1);
         writeln('Data izgotovleniya');
         gotoxy(29,p);
         write(d,'.',m,'.',y);
         gotoxy(45,1);
         writeln('Sostav');
         gotoxy(45,p);
         write(sost);
         p:=p+2;
        end;
      end;
     writeln;
     gotoxy(1,p);
     for i:=1 to 10 do
      if (x[i].sost='Maclenai') and (x[i].d>1) and (x[i].m>4) and (x[i].y>=1998) then
       begin
        writeln(x[i].naz);
        writeln(x[i].col);
        writeln(x[i].d,'.',x[i].m,'.',x[i].y);
        writeln('---------');
       end;
      k:=0;
      k2:=0;
       for i:=1 to 10 do
        if (x[i].sost='Maclenai') then inc(k);
        writeln('Koli4estvo maclenoi kpacku: ',k);
         for i:=1 to 10 do
          if (x[i].col='KpacnbIi') then inc(k2);
          writeln('Koli4estvo kpacnoi kpacku: ',k2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 14:30

Определить количество банок краски, которые ему потребуются для покраски забора
Том Сойеру необходимо покрасить забор с двух сторон, который содержит N досок. Размеры каждой доски...

Найти максимальную толщину краски на трубе
отряд пионеров красил трубу 30 км.Каждому пионеру было поручено красить свой участок.однако их...

Рассчитать количество краски
Рассчитать количество краски, необходимое для покраски окон, если известен расход краски на 1кв. м.

Дан текстовый файл. Найти количество абзацев в тексте, если каждый абзац начинается с красной строки
Я конечно нахимичила... Но вот теперь не могу понять почему у меня программа не работает... может...


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

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

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