Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Turbo Pascal Пробельчеки и строчки Господа форумчане, помогите пожалуйста, нужно процедурой, что-то вроде while s=#32 do delete(s,1,1); убрать пробелы перед строками, чтобы они не мешали сортировке строк по длине. Не знаю почему, но... https://www.cyberforum.ru/ turbo-pascal/ thread416914.html Чем отличается заполнение двумерного массива по столбцу от заполнения по строке? Turbo Pascal
вопросы: 1.Чем отличается заполнение двумерного массива по столбцу от заполнения по строке? 2.Каковы особенности двумерного массива,количество строк в котором равно количество столбцов?
Turbo Pascal Упорядочить слова по алфавиту в строке Доброго всем времени суток, есть задача: «Дана строка, нужно упорядочить символы в каждом слове по алфавиту». В принципе прога лёгкая, но тут короче при компиляции пишет: ”Ожидалось выражение типа... https://www.cyberforum.ru/ turbo-pascal/ thread416912.html Turbo Pascal Какими способами можно описать в программе двумерный массив? https://www.cyberforum.ru/ turbo-pascal/ thread416909.html
вопросы: 1.Какими способами можно описать в программе двумерный массив? 2.Как указать местоположение элемента в массиве(его координаты)? 3.Опишите работу вложенных циклов при работе с двумерными...
Turbo Pascal Запись (Apteka) В21
1.Описать запись с именем Apteka, содержащую следующие поля: -Название лекарств; -Срок годности; -Количество стандартов; -Стоимость одного стандарта; 2. Написать программу выполняющую следующие...
Turbo Pascal помогите с контрольной! https://www.cyberforum.ru/ turbo-pascal/ thread416899.html
найти все натуральные числа из промежутка от A до B, у которых количество делителей превышает заданное число K.
Turbo Pascal помогите с контрольной работой здравствуйте помогите решать задачу на паскале для 9 класса найти все натуральные числа a,b,c из интервала от 1 до 20, для которых выполняется равенство a^2+b^2=c^2 я пробовала решить, вот... https://www.cyberforum.ru/ turbo-pascal/ thread416896.html Turbo Pascal Ошибка с двумернными массивами.
программа для суммы двумерных массивов. var x:array of integer; c:array of integer; b:array of integer; begin For i:=1 to n do for j:=1 to m do begin
Turbo Pascal вычислить сумму синусов Дано натуральное число n. Вычислить: 1/sin1 + 1/(sin1+sin2) + 1(sin1+...+sinN) есть тут решение http://vpascale.ru/abramov/23-cikl/229-a77g в чем может быть у меня ошибка? помогите пожалуйста...... https://www.cyberforum.ru/ turbo-pascal/ thread416888.html Turbo Pascal Строки В24 https://www.cyberforum.ru/ turbo-pascal/ thread416885.html
Дана последовательность, содержащая от 2 до 30 слов, в каждом из которых от 2 до 10 строчных латинских букв; между соседними словами- пробел, за последним словом- точка. Вывести все слова...
Дан массив Turbo Pascal
Дан массив М1...М20 определить d=(Mi-M19)*20(сигма)i=1/2
Turbo Pascal Упорядочнные числа. https://www.cyberforum.ru/ turbo-pascal/ thread416869.html
Помогите пожалуйста создать программу, которая проверяет упорядочены ли числа в массиве.
0 / 0 / 3
Регистрация: 25.12.2011
Сообщений: 39
26.12.2011, 14:30  [ТС] 0

Найти количество красной краски, затем количество масленой краски - Turbo Pascal - Ответ 2330197

26.12.2011, 14:30. Показов 1150. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено 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.


Вернуться к обсуждению:
Найти количество красной краски, затем количество масленой краски Turbo Pascal
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.12.2011, 14:30
Готовые ответы и решения:

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

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

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

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

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.12.2011, 14:30

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

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

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

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

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru