Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
summer2011
0 / 0 / 0
Регистрация: 29.05.2011
Сообщений: 2
#1

нужно написать код в делфи

02.06.2011, 18:56. Просмотров 563. Ответов 3
Метки нет (Все метки)

пожалуйста помогите написать код в делфи!! для этой задачи!!!

В командном первенстве по волейболу участвуют 5 команд. Известны результаты игр (количество баллов). Вывести список команд, набравших не менее N баллов. Значение N ввести с клавиатуры

заранее спасибо!!!=)

Добавлено через 4 часа 48 минут
может кто- нибудь хоть что-то написать???
очень нужна ваша помощь!!!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
02.06.2011, 18:56
Ответы с готовыми решениями:

нужно код паскаля переписать на делфи
program z4; var a:array of real; i,m1,p:integer; m:string; begin ...

нужно написать код в Delphi
Помогите пожалуйста!!! Дан текстовый файл, содержащий данные о доходе четырех подразделений...

Как перевести данный код в делфи?
имеется исходный код : $x1 = 249 //координаты верхней левой точки экрана X $y1 = 179 ...

кто может написать программу в делфи?
1) в поле memo вводятся целые числа по вертикали. вычислить накопленные суммы чисел(первое значение...

в делфи можно написать антивирусную программу?
подскажите пожалуйста, в делфи можно написать антивирусную программу?)

3
Bright-rider
0 / 0 / 0
Регистрация: 09.07.2010
Сообщений: 40
02.06.2011, 19:06 #2
Вот пример:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var b1,b2,b3,b4,b5,n:integer;
begin
//Вводим кол-во баллов каждой команды
...
//Вводим n
...
//Сравниваем баллы каждой команды с n
if b1>=n then
Showmessage('Команда 1');
if b2>=n then
Showmessage('Команда 2');
if b3>=n then
Showmessage('Команда 1');
if b4>=n then
Showmessage('Команда 4');
if b5>=n then
Showmessage('Команда 5');
end;
0
Sam2503
1 / 1 / 0
Регистрация: 18.05.2011
Сообщений: 9
02.06.2011, 19:13 #3
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
a:Array[1..5] of integer; //Каждый элемент массива - команда 
n:integer;
begin
a[1]:=1//забиваем каждый элемент массива своим результатом для опр команды  
a[2]:=2
a[3]:=3
a[4]:=4
a[5]:=5
Readln(n);
if a[1]>=n then
writeln('Первая команда');
и так далее до
if a[5]>=n then
writeln('Пятая команда');
end;
Думаю как то так.
Вставь это в событие Form Activate и посмотри чего получится. Я ничего не проверял
0
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
02.06.2011, 21:58 #4
Цитата Сообщение от Sam2503 Посмотреть сообщение
a[1]:=1//забиваем каждый элемент массива своим результатом для опр команды a[2]:=2 a[3]:=3 a[4]:=4 a[5]:=5
Delphi
1
2
for n:=1 to 5 do
a[i]:=i;
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.06.2011, 21:58

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

можно ли на делфи написать простейшую игру?
можно ли написать простую игру, по типу майнкрафт\террария? или всё же для этого лучше джава? ...

Какой модуль в делфи нужно подключить для работы с объектом sys?
Какой модуль в делфи нужно подключить для работы с объектом sys? Akmas, надо уточнить вопрос. Что...


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

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

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