Форум программистов, компьютерный форум, киберфорум
Visual FoxPro
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
mursik
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 38
1

выручайте!(

28.01.2013, 12:04. Просмотров 655. Ответов 1
Метки нет (Все метки)

Вот написал код программы:
выручайте!(

Вот данные от avto1
выручайте!(

Вот данные о mashina1
выручайте!(

Выбивает ошибку
выручайте!(

И выбивает информацию вот так не ровно вроде всё посчитал правильно
выручайте!(

За ранние спасибо!
0
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.01.2013, 12:04
Ответы с готовыми решениями:

Выручайте)
Дорогие товарищи программисты)) меня вот в моём колледже за жопу схватили)) срочно нужно сделать...

Выручайте
Доброго времени суток , прошу помоч , с шифром простой замены , посмотрел в интернете , на вашем...

Выручайте
Згенерувати масив із 100 випадкових реальних чисел від 0 до 1. Знайти мінімум суми трьох сусідніх...

выручайте
Нужно очень, заранее спасибо

1
mursik
0 / 0 / 0
Регистрация: 23.05.2012
Сообщений: 38
28.01.2013, 12:16  [ТС] 2
Вот код :
set talk off
set color to n/w
clear
set color to n/w
@ 5,26 say [Подробные сведения о рейсах]
set color to n/w
select a
use aerport1
select b
use samolet
@ 7,1 say [┌─────┬───────────────┬───────────────┬────────┬──────┬──────┬───────┬──────┐]
@ 8,1 say [│Номер│ Пункт │ Пункт │ Тип │Время │Время │Ст-сть │Кол-во│]
@ 9,1 say [│реиса│ отправления │прибытия │самолета│вылета│приб │билета │ мест │]
@ 10,1 say [├─────┼───────────────┼───────────────┼────────┼──────┼──────┼───────┼──────┤]
@ 11,1 say [│ │ │ │ │ │ │ │ │]
@ 12,1 say [└─────┴───────────────┴───────────────┴────────┴──────┴──────┴───────┴──────┘]
[/SIZE]
N=space(3)
@ 3,5 say [ Укажите номер реиса] get N
read
select a
locate for nomer_reis=N
if found()
@ 11,2 say nomer_reis
@ 11,8 say punk_otpr
@ 11,24 say punk_nazn
select b
locate for nomer_reis=N
if found()
@ 11,40 say tip
@ 11,71 say kol_mest
else
@ 13,26 say [Отсутствует информация]
endif
select a
@ 11,49 say time_vilet
@ 11,56 say time_prib
@ 11,63 say cena
else
@ 14,26 say [Рейс не найден]
endif
close databases
return
[/SIZE]
0
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.01.2013, 12:16

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Выручайте!
помогите пожалуйста выполнить задание!!!

Выручайте!
Всем привет. Мне нужно сделать точно такую же модель ссылка вырезана Программа практически...

Выручайте
Товарищи программисты помогите с решением задач пожалуйста не могу разобраться. 1) Даны...

Выручайте
Всем доброго времени суток! не ругайте пожалуйста, если что-то не так, или не туда отписал Нужна...


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

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

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