| Мусорка |
| danmaister | Дата: 02:58 26.10.2008 | Сообщение # 31 |
Новичок
Сообщений: 7
Статус: не в сети
| я сам подредактировал программку которую ты написал:
REM OBRABOTKA VEDOMOSTI
CLS
NALOG=.13
INPUT "VVEDITE KOLICHESTVO SOTRUDNIKOV:", N
DIM fio$(N)
DIM dni(N)
DIM stv(N)
DIM vid(N)
DIM vsego(N)
DIM vichet(N)
FOR I=1 TO N
INPUT "VVEDITE FIO:", fio$(I)
Q: INPUT "VVEDITE KOLICHESTVO OTRABOTANNIH DNEI:", dni(I)
IF dni(I)>22 THEN GOTO Q
INPUT "VVEDITE STAVKU:", stv(I)
vid(I)=dni(I)*stv(I)*(1-NALOG)
vsego(I)=dni(I)*stv(I)
vichet(I)=dni(I)*stv(I)*NALOG
NEXT I
PRINT "--------------------"
FOR I=1 TO N
PRINT "|"; I; "|'; fio$(I); "|"; vsego(I); "|"; vichet(I); "|"; vid(I); "|"
NEXT I
PRINT "--------------------"
END
Всё отлично раьотает, можешь помочь(для этой же программы):
упорядочить взаимосвязанные массивы в порадке возрастания значений к выдаче. Вывести на печать упорядченые массивы
P.S. подскажи как задать размеры столбцов в таблице
заранее спасибо
|
| |
| |
|
| Disconnecter | Дата: 02:58 26.10.2008 | Сообщение # 32 |
А Р }{ А Н Г Е Л
Сообщений: 218
Награды: 2
Статус: не в сети
| Quote (IwanS) т.к. Вы впервые на сайте. и последний как я понимаю. Люди поймите, это не маил.ру и не рамблёр. и ящик здесь дают тока пользователям данного портала. а не каждому прохожему.
что и отлечает Клуб СисАдминов от публичных почтовых сервисов.
ПРЕЖДЕ ЧЕМ ПОПРОСИТ ЯЩИК ПОДУМАЙТЕ (У ТЕХ ЛИ Я ПРОШУ?)
Я люблю задавать вопросы.. отвечая на которые вы становитесь умнее
|
| |
| |
|
| SantAlex | Дата: 02:58 26.10.2008 | Сообщение # 33 |
Администратор
Сообщений: 39
Статус: не в сети
| Мдя... Кто бы мог подумать!!! 
А тут и правда всё серьёзно. 
Чтож, пока понаблюдаю. Сам в своё время 5 лет на бейсике сидел.
|
| |
| |
|
| IwanS | Дата: 02:58 26.10.2008 | Сообщение # 34 |
Администратор
Сообщений: 1766
Статус: не в сети
| Quote (ex1kaa) ааа типо я могу там любое типо M и N а не cnt и cnt2???
Можешь впринципе, если есть большое желание. Но зачем?
Всмысле?
|
|
| |
| |
|
| IwanS | Дата: 02:58 26.10.2008 | Сообщение # 35 |
|
Администратор
Сообщений: 1766
Статус: не в сети
| papa_di, Айнура29, всегда рады помочь. P.S: насчет самоучителя. если у кого-то есть идеи для третьей части - пишите в личку.
|
|
| |
| |
|
| IwanS | Дата: 02:58 26.10.2008 | Сообщение # 36 |
|
Администратор
Сообщений: 1766
Статус: не в сети
| papa_di, что-то я закономерности не улавливаю ну и создай второй массив 5х5 и раскладывай элементы вручную, в чем проблема? Шмель, скинь мне на мыло word'овский документ.
|
|
| |
| |
|
| GrayZOR | Дата: 02:58 26.10.2008 | Сообщение # 37 |
Модератор
Сообщений: 51
Награды: 1
Статус: не в сети
| Тебе бы быстрее востановить сайт, а то потеряеш проиндексированные страницы в гугле, яндексе и т.п.
SOftNews Portal - 0Day Software Releases
|
| |
| |
|
| FORM479 | Дата: 02:58 26.10.2008 | Сообщение # 38 |
|
Новичок
Сообщений: 21
Статус: не в сети
| ЗДРАВСТВУЙТЕ!
МНЕ НУЖНА ВАША ПОМОЩЬ
МНЕ НУЖНО ЧТОБЫ НАПРИМЕР ЕСЛИ НЕ ПРАВИЛЬНО ОТВЕЧАЕШЬ НА ВОПРОС ТО ОН ЭТОТ ВОПРОС ЗАПИСЫВАЕТ В МАССИВ А ПОТОМ В КОНЦЕ ПРОГРАММЫ ВЫВОДИТ НОМЕРА ТЕХ ВОПРОСОВ НА КОТОРЫЕ ОТВЕТИЛ НЕПРАВИЛЬНО
ПЛИЗ ПОМОГИТЕ!!!!!!!!!
Tommi: Не капсить!
|
| |
| |
|
| FORM479 | Дата: 02:58 26.10.2008 | Сообщение # 39 |
|
Новичок
Сообщений: 21
Статус: не в сети
| мне просто на завтра срочно нужно Добавлено (05.11.2008, 18:28)
---------------------------------------------
IWANS ПЛИЗ ПОМОГИ С ЗАДАЧЕЙ
|
| |
| |
|
| FORM479 | Дата: 02:58 26.10.2008 | Сообщение # 40 |
|
Новичок
Сообщений: 21
Статус: не в сети
| danmaister, У тебя неправильно расчитано всего и зарплата
|
| |
| |
|
| IwanS | Дата: 02:58 26.10.2008 | Сообщение # 41 |
|
Администратор
Сообщений: 1766
Статус: не в сети
| di-r13, анимация обычно делается очисткой экрана и последующей перерисовкой всего, только со сдвигом. P.S: чуть подчистил тему, чтобы читающие видели не оффтоп, а вопрос-ответ.
|
|
| |
| |
|
| Dark | Дата: 02:58 26.10.2008 | Сообщение # 42 |
|
Новичок
Сообщений: 3
Статус: не в сети
| IwanS: А ну лан просто думал сообщения пропустил ну лан не чего))))
|
| |
| |
|
| cookie | Дата: 02:58 26.10.2008 | Сообщение # 43 |
|
Новичок
Сообщений: 12
Статус: не в сети
| У меня не получается с мои примером это проделать CLS
DIM a(3, 4)
FOR i = 1 TO 3
FOR j = 1 TO 4
PRINT "Введите элемент "; i; " строки "; j; " столбца"
INPUT a(i, j)
IF ABS(a(i, j)) > 17 THEN sum = sum + a(i, j)
NEXT j
NEXT i
PRINT "Сумма элементов по модулю > 17 равна "; sum что бы вывод был в матричном виде (
noob
|
| |
| |
|
| IwanS | Дата: 02:58 26.10.2008 | Сообщение # 44 |
|
Администратор
Сообщений: 1766
Статус: не в сети
| Шмель, так, что ли: P.S: коллеги, откройте для себя word. почему кто-то должен мучаться, а кто-то нет?
|
|
| |
| |
|
| Шмель | Дата: 02:58 26.10.2008 | Сообщение # 45 |
|
Новичок
Сообщений: 4
Статус: не в сети
| IwanS, Ну так что там?))))Что-то делается? 
|
| |
| |
:shades: 
