Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 174277
16.11.2009, 01:55
0.00 руб.
0 6 1
Компьютеры Программное обеспечение Базы данных
Здравствуйте!Уважаемые эксперты у меня следующий вопрос , как в visuаlFoxPro сделать следующее задание...Ввести с клавы и суммировать числа Х в переменную S до тех пор пока сумма не превысит 1000.

Обсуждение

Неизвестный
16.11.2009, 02:13
общий
это ответ
Здравствуйте, Королев Сергей Андреевич.

Код выглядит следующим образом:
Код:
s = 0
x = 0
@2,10 get x
read
do while s<1000
s = s+x
@2,10 get x
read
enddo
? s


Good Luck!
5
Спасибо большое!
Неизвестный
16.11.2009, 09:56
общий
Спасибо огромное! но вот пишет что gеt не используется, нужна другая команда ввода:(:(
давно
Megaloman
Модератор
137394
1850
16.11.2009, 17:31
общий
Вот решение. Но зачем оно нужно, не представляю, разве что учебный интерес. По моему мнению это надо делать в форме.
Код:
clear
smax=1000

s = 0
x = 0

Do While s+x<=smax
	s=s+x
	@9,10 Say "Сумма=         "+Str(s,7,2)

	x=0
	@10,10 Say "Слагаемое=" 
	@10,22 GET x Picture '######.##' 
	Read
EndDo
@11,10 Say "Введённое слагаемое привело к превышению суммы "+Str(smax,8,2)
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
16.11.2009, 18:34
общий
Megaloman:
Ну эт препод вот такой у нас раздал задания сказал если не сделаете то 2 за семестр, хотя такого не проходили, а за решение огромное спасибо
давно
Megaloman
Модератор
137394
1850
16.11.2009, 21:22
общий
Королев Сергей Андреевич:
По видимому, он потребует это сделать в форме, а это убожество, что я изваял, вряд ли кого успокоит.
Об авторе:
Понеже не словес красных бог слушает, но дел наших хощет
Неизвестный
17.11.2009, 00:47
общий
Megaloman:
Почему же обязательно использовать формы?

В FoxPro часто используют отдельные мини программы (файлы с расширением PRG), т.е. используется консольный ввод/вывод данных.
Форма ответа