Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Klusika
0 / 0 / 0
Регистрация: 13.06.2012
Сообщений: 12
#1

Определить количество TV в видео салоне с диагональю экрана больше 5см - Turbo Pascal

13.06.2012, 10:46. Просмотров 343. Ответов 7
Метки нет (Все метки)

Всреде TurboPaskal составить и отладить программу,которая позволяет определить количествоTV в видео салоне с диагональю экрана больше 5см.Информация о наличии TV в видео салоне хранится в файле tvprice. Компоненты файла имеют следующие поля:
марка
диагональ экрана
цена
количество
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.06.2012, 10:46
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить количество TV в видео салоне с диагональю экрана больше 5см (Turbo Pascal):

Вычислить произведение элементов над главной диагональю матрицы и определить их количество
Создать массив с элементами...

Определить сумму и количество отрицательных элементов, размещенных под главной диагональю матрицы.
16. Определить сумму и количество отрицательных элементов, размещенных под...

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

В последовательности определить количество чисел больше 10
В последовательности чисел, вводимых склавиатуры, определить количество чисел...

Определить количество элементов последовательности, которые больше 10
Помогите пожалуйста Дана последовательность чисел 1!;2!;3!;4!;...n!,где n...

Определить количество элементов массива больше заданного числа
Дан числовой массив А, состоящий из n натуральных чисел. Определить кол-во...

7
AlexandrMer
22 / 22 / 18
Регистрация: 03.12.2011
Сообщений: 151
13.06.2012, 11:20 #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
Type
 Tmodel=record
  marka:string[40];
  diag,price,kvo:integer;
 End;
 
Var
 f:file of Tmodel;
 one:Tmodel;
 k:integer;
 
begin
  AssignFile(f,'tvprice.dat');
  Reset(f);
 
  k:=0;
  While not eof(f) do
   Begin
    Read(f,one);
    If one.diag > 5
     Then
      Inc(k);
   End;
  Readln;
 
  Writeln(k,' models');
 
  CloseFile(f);
end.
0
Puporev
Модератор
54125 / 41758 / 28870
Регистрация: 18.05.2008
Сообщений: 98,280
13.06.2012, 11:48 #3
Цитата Сообщение от Klusika Посмотреть сообщение
с диагональю экрана больше 5см
А что, есть TV с экраном меньше 5 см?
0
serbor
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 3
21.11.2017, 19:03 #4
А что, есть TV с экраном меньше 5 см?
Ржач
0
Cyborg Drone
22.11.2017, 22:30
  #5

Не по теме:

serbor, Вы подняли тему, чтобы поржать? Напрасно. Вообще-то, такие телевизоры существуют. Один из первых таких телевизоров был выпущен аж в далёком 1982 году, это был Seiko DXA001 с диагональю экрана 1.2 дюйма (около 3 сантиметров). Позже выпускались телевизоры и с меньшей диагональю экрана.

0
serbor
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 3
23.11.2017, 01:31 #6
Cyborg Drone, меня улыбнуло не Ваше сообщение, а вопрос к нему. Извините, если неудачно изложил свою эмоцию.
0
Cyborg Drone
23.11.2017, 03:05
  #7

Не по теме:

serbor, интересно, а как Вас могло улыбнуть моё сообщение, если оно было написано позже Вашего?

0
serbor
0 / 0 / 0
Регистрация: 30.10.2015
Сообщений: 3
23.11.2017, 04:33 #8
Ну вот, по быстрому ответить не удалось, был невнимателен. Улыбнуло не Ваше, а сообщение Puporev, в плане его реакции. Сори!
0
23.11.2017, 04:33
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.11.2017, 04:33
Привет! Вот еще темы с решениями:

Определить момент инерции медного диска радиусом 5см, в котором сделаны два выреза в виде кругов радиусами
Определить момент инерции медного диска радиусом 5см, в котором сделаны два...

Определить сумму и количество отрицательных элементов , расположенных под главной диагональю матрицы
Помогите пожалуйста определить сумму и количество отрицательных элементов ,...

Определить сумму и количество отрицательных элементов, расположенных под главной диагональю матрицы
Помогите пожалуйста определить сумму и количество отрицательных элементов ,...

Запись видео с экрана +звук с экрана и микрофона
Собственно вопрос весь в названии темы. Допустим в Camtasia есть запись либо с...


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

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

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