Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
1

Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч

17.12.2013, 20:18. Показов 2045. Ответов 12
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Задание : создать базу данных - Легковые автомобили.Название, Завод изготовитель, стоимость , год выпуска.Вывести на экран данные обо всех автомобилях стоимость которых менее 80 тысяч.
вот моя программа
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
program prim;
uses crt;
type
tablica = record
NAZVANIE  : STRING [25];
GOD : WORD;
STOIMOST : REAL;
ZAVODIZGOTOVITEL: STRING[25];
END;
var i,n:integer;
avtomobili: array[1..30] of tablica;
BEGIN  clrscr;
write ('n='); read(n);
for i:=1  to n do
with avtomobili[i] do
begin 
writeln ('NAZVANIE :'); readln(NAZVANIE );
writeln ('GOD:'); readln(GOD);
writeln ('STOIMOST :'); readln(STOIMOST);
writeln ('ZAVOD-IZGOTOVITEL :'); readln(ZAVODIZGOTOVITEL);
end;
for i:=1 to n do
begin
avtomobili[i].stoimost;
if avtomobili[i].stoimost<80000 then writeln (stoimost:6)
end;
end.
но я вроде сделала что то не так, помогите пожалуйста
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
17.12.2013, 20:18
Ответы с готовыми решениями:

Разработать базу данных "Легковые автомобили". Вывести на экран данные обо всех автомобилях стоимостью менее 80 тысяч рублей
Всем привет. Помогите плииз с задачкой =( Разработать базу данных «Легковые автомобили». Название...

Вывести на экран данные обо всех машинах, не прошедших техосмотр в текущем году
Организовать ввод, хранение в массиве, вывод на экран данных о машинах: модель, цвет, фамилия...

Вывести на экран информацию обо всех компьютерах, отсортированную по цене
1. С клавиатуры вводится информация о компьютерах: марка, производитель, цена. Вывести на экран...

Вывести на экран информацию обо всех ноутбуках фирмы, название которой вводится клавиатуры
Описать структуру Notebook, содержащую следующие поля: фирма, модель ноутбука, размер экрана, объем...

12
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 10:26 2
24 строка не несет никакой функциональной нагрузки. Она либо лишняя, либо не дописана.
0
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 20:33  [ТС] 3
вот и у меня вопрос. какой должна быть 24 строчка. как должно быть написано обращение к полю?
0
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 21:04 4
Цитата Сообщение от ksenia00000000 Посмотреть сообщение
вот и у меня вопрос. какой должна быть 24 строчка. как должно быть написано обращение к полю?
Эту строчку можно рассматривать как переменную... а ей можно либо присвоить значение, либо использовать в сравнении.
0
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 21:12  [ТС] 5
насколько я знаю обращение к значению поля - имя записи. имя поля
вот у меня почему не получается, пишет что ошибка
0
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 21:52 6
Так правильно - вы обращаетесь к полю, но ничего с ним не делаете, т.е. как я и писал выше надо либо присвоить ему что нибудь, либо использовать в сравнении. (я в алгоритм не вглядывался, потому не могу сказать, что имеено там должно быть - это Вам должно быть виднее)

Добавлено через 2 минуты
т.е. строки 24 и 25
Pascal
1
2
avtomobili[i].stoimost;
if avtomobili[i].stoimost<80000 then writeln (stoimost:6)
в 25 - все верно, есть обращение к полю и его сравнение со значением, а в 24 - ничего нет... причем это тоже самое поле, что и в 25-ой строке... думаю 24-ую надо просто удалить.
0
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 22:22  [ТС] 7
я думала, что бы что то делать с полем, нужно сначала к нему обратится, поэтому я и написала - avtomobili[i].stoimost
разве так не надо?
или может написать
begin
var avtomobili[i].stoimost
if avtomobili[i].stoimost<80000 then writeln (stoimost:6)
0
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 22:25 8
Нет, так не надо... может быть Вы хотели сделать это с конструкцией With ?

Оператор with
Оператор with позволяет сократить обращение к полям записи, а также к полям, методам и свойствам объекта. Он имеет вид:
with имя записи или объекта do оператор

или

with список имен do оператор

Всюду внутри оператора можно опускать имя записи при обращении к полю указанной записи или имя объекта при обращении к полю, методу или свойству указанного объекта. Например, пусть описана переменная

var
DateOfBirthday = record
Day: Integer;
Month: Integer;
Year: Integer;
end;

Тогда присваивание значений ее полям без использования оператора with имеет вид:

DateOfBirthday.Day := 23;
DateOfBirthday.Month := 2;
DateOfBirthday.Year := 1965;

Использование оператора with позволяет сократить предыдущую запись:

with DateOfBirthday do
begin
Day := 23;
Month := 2;
Year := 1965;
end;

Если внешняя переменная имеет то же имя, что и поле (метод, свойство), то предпочтение отдается полю (методу, свойству). При наличии вложенных операторов with вначале предпринимается попытка рассматривать переменную как поле записи или объекта самого внутреннего оператора with, затем непосредственно объемлющего его оператора with и т.д. Если оператор with содержит список объектов, то они рассматривается справа налево. Например, если имеются описания

var
x,y,z: integer;
a: record
x,y: integer;
end;
b: record
x: integer;
end;

то фрагмент программы

with a,b do
begin
x := 1;
y := 2;
z := 3;
end;

эквивалентен фрагменту

with a do
with b do
begin
x := 1;
y := 2;
z := 3;
end;

а также фрагменту

b.x:=1;
a.y:=2;
z:=3;
0
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 22:27  [ТС] 9
да, надо просто было убрать. спасибо
можете мне помочь с полной программой? вот я убрала
потом когда нажимаю, чтобы команда выполнялась
вожу название автомобиля
и программа завершается
0
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 22:59 10
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Немного подредактировал:
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
program prim;
uses crt;
type
tablica = record
NAZVANIE  : STRING [25];
GOD : WORD;
STOIMOST : REAL;
ZAVODIZGOTOVITEL: STRING[25];
END;
var i,n:integer;
avtomobili: array[1..30] of tablica;
BEGIN  clrscr;
write ('n='); readln(n);
for i:=1  to n do
with avtomobili[i] do
begin 
write ('NAZVANIE :'); readln(NAZVANIE );
write ('GOD:'); readln(GOD);
write ('STOIMOST :'); readln(STOIMOST);
write ('ZAVOD-IZGOTOVITEL :'); readln(ZAVODIZGOTOVITEL);
end;
for i:=1 to n do
begin
if avtomobili[i].stoimost<80000 then
Begin
  write(avtomobili[i].NAZVANIE,'  ');
  write(avtomobili[i].GOD,'  ');
  write(avtomobili[i].stoimost:6,'  ');
  writeln(avtomobili[i].ZAVODIZGOTOVITEL);
end;
end;
end.
1
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 23:16  [ТС] 11
огромное спасибо! у меня все работает! не могла опять как делать, вы помогли, спасибо еще раз))
0
1647 / 1076 / 1081
Регистрация: 03.07.2013
Сообщений: 4,507
18.12.2013, 23:29 12
Цитата Сообщение от ksenia00000000 Посмотреть сообщение
огромное спасибо! у меня все работает! не могла опять как делать, вы помогли, спасибо еще раз))
Теперь попробуйте сохранить введенные данные в типизированный файл. )
А потом считывать от туда данные, дополнять, редактировать.
0
0 / 0 / 0
Регистрация: 02.12.2013
Сообщений: 84
18.12.2013, 23:39  [ТС] 13
хорошо, сейчас попробую)) еще раз спасибо))
0
18.12.2013, 23:39
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
18.12.2013, 23:39
Помогаю со студенческими работами здесь

Как вывести на экран информацию обо всех курсах, расположенных на заданной улице с кол-ством слушателей больше 20
Вот мой код Нужно вывести на экран информацию обо всех курсах, расположенных на заданной улице с...

Вывести на экран данные фамилии и имена всех людей, у которых фамилии начинаются с 2 буквы, как и ваша фамилия
Необходимо ввести в файл фамилии, имени 6 человек. Вывести на экран данные фамилии и имена всех...

Вывести стоимость всех товаров в начале рабочего дня и стоимость всех не проданных товаров.
Продаются товары двух видов. Запросить с клавиатуры для каждого вида товаров цену, количество в...

Windows 8 отсылает в Microsoft данные обо всех устанавливаемых программах
Windows 8 отсылает в Microsoft данные обо всех устанавливаемых программах Скрытая функция в...


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

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
В чем разница между px, in, mm, pt, dip, dp, sp
InfoMaster 20.01.2025
В мире цифрового дизайна и разработки интерфейсов правильный выбор единиц измерения играет ключевую роль в создании качественного пользовательского опыта. История развития систем измерений для. . .
Как изменить адрес удалённого репозитория (origin) в Git
InfoMaster 20.01.2025
В терминологии Git термин origin является стандартным именем для основного удаленного репозитория, с которым взаимодействует локальная копия проекта. Когда разработчик клонирует репозиторий с. . .
Как переместить последние коммиты в новую ветку (branch) в Git
InfoMaster 20.01.2025
При работе над проектом часто возникают ситуации, когда необходимо изолировать определенные изменения от основной линии разработки. Это может быть связано с экспериментальными функциями, исправлением. . .
Как вернуть результат из асинхронной функции в JavaScript
InfoMaster 20.01.2025
Асинхронное программирование представляет собой фундаментальную концепцию в JavaScript, которая позволяет выполнять длительные операции без блокировки основного потока выполнения программы. В. . .
Какой локальный веб-сервер выбрать
InfoMaster 19.01.2025
В современной веб-разработке локальные веб-серверы играют ключевую роль, предоставляя разработчикам надежную среду для создания, тестирования и отладки веб-приложений без необходимости использования. . .
Почему планшеты и iPad уже не так популярны, как раньше
InfoMaster 19.01.2025
Эра революционных инноваций История планшетных компьютеров началась задолго до того, как эти устройства стали привычными спутниками нашей повседневной жизни. В начале 1990-х годов появились первые. . .
Как самому прошить BIOS ноутбука
InfoMaster 19.01.2025
BIOS (Basic Input/ Output System) представляет собой важнейший компонент любого компьютера или ноутбука, который обеспечивает базовое взаимодействие между аппаратным и программным обеспечением. . .
Какой Linux выбрать для домашнего компьютера
InfoMaster 19.01.2025
Современные реалии выбора операционной системы В современном мире выбор операционной системы для домашнего компьютера становится все более важным решением, которое может существенно повлиять на. . .
Как объединить два словаря одним выражением в Python
InfoMaster 19.01.2025
В мире программирования на Python работа со словарями является неотъемлемой частью разработки. Словари представляют собой мощный инструмент для хранения и обработки данных в формате "ключ-значение". . . .
Как без исключения проверить существование файла в Python
InfoMaster 19.01.2025
При разработке программного обеспечения на Python часто возникает необходимость проверить существование файла перед выполнением операций с ним. Это критически важная задача, которая помогает избежать. . .
Как определить, содержит ли строка подстроку в JavaScript
InfoMaster 19.01.2025
При разработке веб-приложений часто возникает необходимость выполнять различные операции со строками, среди которых особое место занимает поиск подстрок. JavaScript предоставляет несколько встроенных. . .
Что такое метаклассы в Python
InfoMaster 19.01.2025
Метаклассы в Python представляют собой один из самых мощных и одновременно сложных механизмов языка, позволяющий программистам контролировать процесс создания классов. По своей сути, метакласс. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru