0 / 0 / 0
Регистрация: 23.11.2014
Сообщений: 2

Описать, используя структуру данных запись, камеру хранения

23.11.2014, 00:09. Показов 1559. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Ребят,помогите,пожалуйста
Нужно написать программу,паскаль
Описать, используя структуру данных запись, камеру хранения (шифр, индекс камеры, заданный буквой). Составить программу, определяющую есть ли среди камер камера с шифром 99. Упорядочить все камеры по возрастанию шифров.
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
23.11.2014, 00:09
Ответы с готовыми решениями:

Описать расписание, используя структуру данных запись
Описать, используя структуру данных запись, расписание (предмет, преподаватель, номер группы, день недели, часы, аудитория). Составить...

Описать, используя структуру данных запись, вступительные экзамены
Описать, используя структуру данных запись, вступительные экзамены. Абитуриенты сдавали три экзамена, для поступления необходимо набрать 12...

Описать, используя структуру данных запись, данные на учеников
program P3; type students=record fam: string; street:string; dom:integer; kvart:integer; end; Var j:integer; d:...

1
0 / 0 / 1
Регистрация: 12.11.2014
Сообщений: 6
23.11.2014, 19:14
Лучший ответ Сообщение было отмечено Лавруша как решение

Решение

О привет)

Добавлено через 2 часа 28 минут
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
Program primer;
Const n=3;
Type dan=record
   sh: integer;
   ind: string[20];
end;
Var kam:dan;
j,k,t: integer;
q:string[20];
S:ARRAY[1..n] of integer;
I:Array[1..n] of string[20];
Begin
Writeln('Введите данные по камерам хранения');
 For j:=1 to n do
  Begin
   Write('Шифр ',j,'-й камеры: ');
    Readln(kam.sh);
     S[j]:=kam.sh;
   Write('Индекс ',j,'-й камеры, заданный буквой:    ');
    Readln(kam.ind);
     I[j]:=kam.ind;
  end;
   k:=0;
  For j:=1 to n do
   Begin
   If (S[j]=99)Then k:=k+1;
   end;
    If k<>0 Then Writeln('Среди камер есть ',k,' камер с шифром 99');
       Writeln('Упорядоченный');
        for j:=1 to (n-1) do
         begin
          t:=0; q:='';
           for k:=1 to (n-j) do
            if S[k]>S[k+1] then
             begin
              t:=S[k];
              q:=I[k];
              S[k]:=S[k+1];
              I[k]:=I[k+1];
              S[k+1]:=t;
              I[k+1]:=q;
             end;
         end;
 For k:=1 to n do
  Writeln(S[k],' ',I[k]);
END.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
23.11.2014, 19:14
Помогаю со студенческими работами здесь

Описать, используя структуру данных запись, данные на учеников (фамилия, улица, дом, квартира)
Описать, используя структуру данных запись, данные на учеников (фамилия, улица, дом, квартира). Составить программу, определяющую, сколько...

Описать, используя структуру данных запись, завод
Доброго дня всем. Такое вот задание: Описать, используя структуру данных запись, завод (наименование станка, время простоя в месяц,...

Описать, используя структуру данных запись, почтовую сортировку
Требуется помощь специалистов,надеюсь на вашу помощь,если не трудно то оставляйте комментарии у строк Условие: Описать, используя...

Описать, используя структуру данных запись, квартиросъемщика (фамилия и инициалы, город, улица, дом, квартира, количество комнат)
Помогите пожалуста!!!!!!!! Описать, используя структуру данных запись, квартиросъемщика (фамилия и инициалы, город, улица, дом,...

описать , используя структуру данных запись, телефонную книгу. Составить программу, выдающую список абонентов, имеющих телефоный номер, начинающийся н
описать , используя структуру данных запись, телефонную книгу. Составить программу, выдающую список абонентов, имеющих телефоный номер,...


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

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

Новые блоги и статьи
50 самых полезных примеров кода Python для частых задач
py-thonny 17.06.2025
Эффективность работы разработчика часто измеряется не количеством написаных строк, а скоростью решения задач. Готовые сниппеты значительно ускоряют разработку, помогают избежать типичных ошибок и. . .
C# и продвинутые приемы работы с БД
stackOverflow 17.06.2025
Каждый . NET разработчик рано или поздно сталкивается с ситуацией, когда привычные методы работы с базами данных превращаются в источник бессонных ночей. Я сам неоднократно попадал в такие ситуации,. . .
Angular: Вопросы и ответы на собеседовании
Reangularity 15.06.2025
Готовишься к техническому интервью по Angular? Я собрал самые распространенные вопросы, с которыми сталкиваются разработчики на собеседованиях в этом году. От базовых концепций до продвинутых. . .
Архитектура Onion в ASP.NET Core MVC
stackOverflow 15.06.2025
Что такое эта "луковая" архитектура? Термин предложил Джеффри Палермо (Jeffrey Palermo) в 2008 году, и с тех пор подход только набирал обороты. Суть проста - представьте себе лук с его. . .
Unity 4D
GameUnited 13.06.2025
Четырехмерное пространство. . . Звучит как что-то из научной фантастики, правда? Однако для меня, как разработчика со стажем в игровой индустрии, четвертое измерение давно перестало быть абстракцией из. . .
SSE (Server-Sent Events) в ASP.NET Core и .NET 10
UnmanagedCoder 13.06.2025
Кажется, Microsoft снова подкинула нам интересную фичу в новой версии фреймворка. Работая с превью . NET 10, я наткнулся на нативную поддержку Server-Sent Events (SSE) в ASP. NET Core Minimal APIs. Эта. . .
С днём независимости России!
Hrethgir 13.06.2025
Решил побеседовать, с утра праздничного дня, с LM о завоеваниях. То что она написала о народе, представителем которого я являюсь сам сначала возмутило меня, но дальше только смешило. Это чисто. . .
Лето вокруг.
kumehtar 13.06.2025
Лето вокруг. Наполненное бурями и ураганами событий. На фоне магии Жизни, священной и вечной, неумелой рукой человека рисуется панорама душевного непокоя. Странные серые краски проникают и. . .
Популярные LM модели ориентированы на увеличение затрат ресурсов пользователями сгенерированного кода (грязь -заслуги чистоплюев).
Hrethgir 12.06.2025
Вообще обратил внимание, что они генерируют код (впрочем так-же ориентированы разработчики чипов даже), чтобы пользователь их использующий уходил в тот или иной убыток. Это достаточно опытные модели,. . .
Топ10 библиотек C для квантовых вычислений
bytestream 12.06.2025
Квантовые вычисления - это та область, где теория встречается с практикой на границе наших знаний о физике. Пока большая часть шума вокруг квантовых компьютеров крутится вокруг языков высокого уровня. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru