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

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

25.12.2011, 12:20. Показов 996. Ответов 1
Метки нет (Все метки)

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

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

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

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

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

1
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
25.12.2011, 13:32 2
Лучший ответ Сообщение было отмечено Dasha180893 как решение

Решение

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
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='Масленая') 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='Масленая') then inc(k);
writeln('Количество масленой краски: ',k);
for i:=1 to 10 do
if (x[i].col='Красный') then inc(k2);
writeln('Количество красной краски: ',k2);
readln
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
25.12.2011, 13:32

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

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

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

Среднее количество краски на квадрате
условие Схема базы данных состоит из трех отношений: utQ (Q_ID int, Q_NAME varchar(35)); utV...


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

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

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