Форум программистов, компьютерный форум, киберфорум
Наши страницы

Delphi

Войти
Регистрация
Восстановить пароль
 
fatman622
0 / 0 / 0
Регистрация: 21.04.2013
Сообщений: 29
#1

Нужно вивести самий дешевий авто среди найболие бистрих.как ето зделать - Delphi

15.05.2013, 18:59. Просмотров 273. Ответов 0
Метки нет (Все метки)

uses
SysUtils;

type Tauto = record
model:string[15];
vartist:Integer;
speed:Integer;
end;
var
autos:array[1..100] of Tauto;
x,i,j,n,sp,grohi,l:Integer;
buf:Tauto;

begin
Writeln('Vvedit kilkist zapusiv');
readln(n);
for i:=1 to n do
begin
Writeln('Enter model,vartist,speed');
readln (autos[i].model,autos[i].vartist);
Readln(autos[i].speed);
end;
for x:=1 to n-1 do
for j:=x+1 to n do
if autos[x].model>autos[j].model then
begin
buf:=autos[x];
autos[x]:=autos[j];
autos[j]:=buf;
end;

Writeln('Avto speed >180');
for i:=1 to n do
if autos[i].speed >= 180 then
Writeln(autos[i].model);
sp:=1;
begin
if autos[l].vartist>autos[sp].vartist then
sp:=l;
Readln;
end;
writeln(autos[sp].model);
readln;
end.Добавлено через 8 минут
uses
SysUtils;

type Tauto = record
model:string[15];
vartist:Integer;
speed:Integer;
end;
var
autos:array[1..100] of Tauto;
x,i,j,n,sp,grohi:Integer;
buf:Tauto;

begin
Writeln('Vvedit kilkist zapusiv');
readln(n);
for i:=1 to n do
begin
Writeln('Enter model,vartist,speed');
readln (autos[i].model,autos[i].vartist);
Readln(autos[i].speed);
end;
for x:=1 to n-1 do
for j:=x+1 to n do
if autos[x].model>autos[j].model then
begin
buf:=autos[x];
autos[x]:=autos[j];
autos[j]:=buf;
end;

Writeln('Avto speed >180');
for i:=1 to n do
if autos[i].speed >= 180 then
Writeln(autos[i].model);
sp:=1;
begin
if autos[i].vartist>autos[sp].vartist then
sp:=i;
Readln;
end;
writeln(autos[sp].model);
readln;
end.

Уже сам зделал , вот правильний код....
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.05.2013, 18:59
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Нужно вивести самий дешевий авто среди найболие бистрих.как ето зделать (Delphi):

Найти среди запискй number ту, в которой number самий большой - Delphi
если так делать то виводит какието нули, што делать? type tpidr = record avtor:string; nazva:string; year:integer; ...

КАК ЗДЕЛАТЬ ЕТО ДЕЛО В С++ - C++
В чемпионате из футбола принимает участие 16 команд. Cформувати файл команд и результатов матча (выигрыш - 2 ОЧКА, ничья -1, проигрыш - 0...

что ето и как такое зделать?? - Web-серверы
что такое https:// и как себе зделать так??

Что ето озночает и как ето исправить? - Web
http://tobas.org.ua/ подскажите пожайлуста как востоновить сайт! Заранее блогадарен.

Описать базовый класс автомобиль и от него наследуются классы: грузовые авто, уборочные авто, спортивные авто - C++
Всем привет!:) хочу спросить кто нибудь писал программы с наследованием на С++? Интересны задачи типа : "Описать базовый класс автомобиль...

Нужно вивести на екран все слова которые содержать 2 гласных буквы - C (СИ)
Вот програмка виводит слова которые заканчиваютса на гласную, что надо поменять? Не шарю тупо уже 2 часа меняю и не выходит. #include...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.05.2013, 18:59
Привет! Вот еще темы с ответами:

нужно проверить упорядоченость масива по возрастанию или по убыванию и вивести на екран соответствующее сообщение - Turbo Pascal
Помогите пожалуйста, очень нужно на завтра) Задан одномерный масив, который содержит целые числа, предусмотреть возможность ввода...

Ребята нужно зделать задание - Pascal
ребята незнаю как зделать помогите на паскале

Более менее дешевий хостинг. - Выбор хостинга
Подскажите хостинг с поддержкой cms(ну или без) более менее дешевий. Нужно хоть 200mb места за цену не дороже 1-1.5$ в месяц. Спасибо. ...

срочно нужно зделать лабу к завтрашнему утру - C++
срочно нужно зделать лабу а у меня не получаетса. помогите пожалуйста вот условие


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

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

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