Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.12.2012, 22:26   #1
Мaрина
 
Регистрация: 28.06.2011
Сообщений: 8
Вопрос Простейший язык программирования (Делфи)

На простейшем языке программирования (делфи) напишите следующую программу: s:=10; for i:=2 to 4 do s:=s-1


Это - решение данной задачи?))
var
s, i: Integer;
begin
s := 10;
for i := 2 to 4 do
s := s-1
end.

не может быть всё так легко...
Мaрина вне форума Ответить с цитированием
Старый 25.12.2012, 22:29   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
На простейшем языке программирования (делфи)
Что еще расскажите? А может и китайский стал самым простым?
Цитата:
не может быть всё так легко...
Почему? Этот же язык простейший!
Poma][a вне форума Ответить с цитированием
Старый 25.12.2012, 22:30   #3
Мaрина
 
Регистрация: 28.06.2011
Сообщений: 8
По умолчанию

Так звучит условие задачи!
Мaрина вне форума Ответить с цитированием
Старый 25.12.2012, 22:31   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Цитата:
Так звучит условие задачи!
Тогда прошу простить..
Тогда, кажется, всё верно..
Poma][a вне форума Ответить с цитированием
Старый 25.12.2012, 22:53   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
не может быть всё так легко...
Может.
Код:
var
s, i: Integer;
begin
s := 10;
s:=s-(4-2);
end.
Еще проще. Не так ли?
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 26.12.2012, 08:45   #6
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

Тогда уж так:

Код:
var
s, i: Integer;
begin
s := 10;
s:=s-(4-2+1);
end.
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 26.12.2012, 09:22   #7
Mad_Cat
Made In USSR!
Старожил
 
Аватар для Mad_Cat
 
Регистрация: 01.09.2010
Сообщений: 3,657
По умолчанию

тогда уж
Код:
begin
writeln(10-3);end.
"...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..."
(c) Юрий Клинских aka "Хой"
Mad_Cat вне форума Ответить с цитированием
Старый 26.12.2012, 09:36   #8
Sciv
Старожил
 
Аватар для Sciv
 
Регистрация: 16.05.2012
Сообщений: 3,211
По умолчанию

тогда уж

Код:
begin
  writeln(7);
end.
Кто меньше?
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Sciv вне форума Ответить с цитированием
Старый 26.12.2012, 09:41   #9
DiemonStar
Старожил
 
Регистрация: 08.02.2012
Сообщений: 2,173
По умолчанию

Цитата:
Сообщение от Sciv Посмотреть сообщение
тогда уж

Код:
begin
  writeln(7);
end.
Кто меньше?
Я:
Код:
begin
  write(7);
end.
Правильно поставленная задача - три четверти решения.
DiemonStar вне форума Ответить с цитированием
Старый 26.12.2012, 11:12   #10
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Ах так!
Код:
begin  write(7) end.
Меньше уже некуда.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Язык программирования С Mariolka Помощь студентам 11 15.12.2012 20:44
Язык программирования eImage Помощь студентам 6 14.09.2012 19:22
как сделать нормально???(язык программирования делфи) luffi Помощь студентам 5 19.01.2012 16:35
Язык программирования С++ Jasper92 Свободное общение 2 09.11.2009 13:51
язык программирования Си Ruslan0990kz Общие вопросы C/C++ 1 03.06.2009 22:01