База данных в каком виде ? Как редактриовать базу данных с самой программы ? Или тебе нужна готовая база и на основании фильтров выводить информацию ? Задания напиши полностью как звучит !
Ну сделают тебе эту контрольную а дальше что? Остальные тоже просить будешь? А зачет разведешь? Не понимаю нахрена идти на специальность если не хватает мозгов переварить даже примитивный материал первого курса. Переводись в ПТУ закончи и иди рабочим, если в голове пусто и работать ей лень.
Bender да не реально бывает такое..у меня на 1-ом курсе по информатике засада была полная...проходили фортран так вот нам там надо было решать такие задачи которые даже математически я себе не представлял как решить и что прекажите делать?При этом по математике т.е. лин.алгебре и выш мату у меня были 4 и это в россии где 4 к нашей наверно 8ке приравнивается!получалась ситуация когда я могу это написать но не знаю как это написать математически чтобы это работало....слава богу потом до препода дошла что мы не академики...и формулы она нам стала давать. Бывают непрофильные предметы очень сложные у меня лично была механика так я врагу не пожелаю механику проходить или ТММ....а специальность была как бы экономическая....
кипа, на кого учишься? Ты хоть нормально условия задания скажи, а то "БД с программой"... Бендер верно все написал. Если это твой профильный предмет, то запускай паскаль, включай мозги и пиши сам программку.
Михаил, а разве в России десятибалльная шкала оценок?
Хм ребята я тож такую программку на первом курсе писал, только тематика другая какая-то. Там реально нет никаких условий, это помоему курсовая была. Просто сам придумываешь список полей делаешь чтоб записи удалять добавлять редактировать можно было + фильтр и поиск вот и все за исключением что это все на паскале муторно. Делфи рулит, такую программку на нем можно за 15 минут приготовить
пример: label m; var ...... begin {код программы} goto m; {код программы} m: end;
Ага, все верно. Однако я автору не рекомендую юзать метки, ибо это моветон (раньше называли "дурным тоном"), т.к. программа станет тяжело читаться. Старайтесь продумывать алгоритм так, чтобы обойтись простыми циклами (не только for-do, но и while-do и repeat-until) и условиями. Надо вырабатывать свой стиль сразу. Иначе потом поздно будет.
Чем лучше заменить метки goto?Чтоб и самому легче было.А то я сам в программе потерялся.
немудрено потеряться.)) пользуйся циклами (for to do, while do, repeat until). и условиями if then else так же советую пользоваться оператором выбора case of. ты курсовую что-ли взялся сам писать?
Чем лучше заменить метки goto?Чтоб и самому легче было.А то я сам в программе потерялся.
немудрено потеряться.)) пользуйся циклами (for to do, while do, repeat until). и условиями if then else так же советую пользоваться оператором выбора case of.
Остается к этому добавить оператор немедленного выхода из цикла break. И тогда решается любая задача.
Люди все кто может помогите плиизззззззззззз написать задачку!: Найдите сумму всех целых чисел больше (-50) и меньше 200, которые кратны 5 и 8 и заканчиваються на 5 или 0! Заранее спасибо чтобы использовалось ()and() ()or()
Люди все кто может помогите плиизззззззззззз написать задачку!: Найдите сумму всех целых чисел больше (-50) и меньше 200, которые кратны 5 и 8 и заканчиваються на 5 или 0! Заранее спасибо чтобы использовалось ()and() ()or()
Странное условие если число кратно 5 значит оно однозначно заканчивается на 0 или 5 поэтому or сразу отпадает. Тогда получается что то тип этого: var summ, i : integer; begin summ:=0; for i:= -50 to 200 do begin if (i mod(5)=0)and(i mod(8)=0)then summ := summ+i; end;
я разбираюсь )
что подсказать?
и я разбираюсь!
*нас решили посчитать?
а кто нибудь делает коптрольные в паскале за $$.Только срочно надо!!!!!!!
Говори,что нужно быстро сделаем !
базу данных программ телепередач нескольких телекомпаний на неделю по дням,часам.
А че сам не сделаешь? Это ж не сложно :)))
Тебе именно Паскаль нужен?
сам не могу. турбо паскаль 7.0
я только учюсь уму разуму.
и что там, сколлько $ у нас сейчас контрольная стоит?
Я не знаю, ну впределах разумного.ТАК КТО НИБУДЬ БЕРЕТСЯ?????????????
База данных в каком виде ? Как редактриовать базу данных с самой программы ? Или тебе нужна готовая база и на основании фильтров выводить информацию ? Задания напиши полностью как звучит !
БАЗА С САМОЙ ПРОГРАММЫ,ЗАДАНИЕ ТАК И ЗВУЧИТ,С.М. НИЖЕ.ВО СКОЛЬКО ЭТО ВЫЛЬЕТСЯ.
ТАМ ЕЩЕ ЭКРАН С ВЫБОРОМ ПРОГРАМ НУЖЕН.
1 курс, небось)))
ДА.5 ПАР ВСЕГО БЫЛО И НА ТЕБЕ КОНТР.
Ну сделают тебе эту контрольную а дальше что? Остальные тоже просить будешь? А зачет разведешь? Не понимаю нахрена идти на специальность если не хватает мозгов переварить даже примитивный материал первого курса. Переводись в ПТУ закончи и иди рабочим, если в голове пусто и работать ей лень.
Сожри свой капслок.
Bender да не реально бывает такое..у меня на 1-ом курсе по информатике засада была полная...проходили фортран так вот нам там надо было решать такие задачи которые даже математически я себе не представлял как решить и что прекажите делать?При этом по математике т.е. лин.алгебре и выш мату у меня были 4 и это в россии где 4 к нашей наверно 8ке приравнивается!получалась ситуация когда я могу это написать но не знаю как это написать математически чтобы это работало....слава богу потом до препода дошла что мы не академики...и формулы она нам стала давать.
Бывают непрофильные предметы очень сложные у меня лично была механика так я врагу не пожелаю механику проходить или ТММ....а специальность была как бы экономическая....
кипа, на кого учишься? Ты хоть нормально условия задания скажи, а то "БД с программой"...
Бендер верно все написал. Если это твой профильный предмет, то запускай паскаль, включай мозги и пиши сам программку.
Михаил, а разве в России десятибалльная шкала оценок?
ZanoZa Неа это прикол)
Если хочешь даж в онлайне будет тебе программу выдовать, и даж показывать, что сейчас идёт по этому каналу :)
Напиши нормально условие
Хм ребята я тож такую программку на первом курсе писал, только тематика другая какая-то. Там реально нет никаких условий, это помоему курсовая была. Просто сам придумываешь список полей делаешь чтоб записи удалять добавлять редактировать можно было + фильтр и поиск вот и все за исключением что это все на паскале муторно. Делфи рулит, такую программку на нем можно за 15 минут приготовить
Как можно посмотреть что напрограмировал,До завершения.
Если для ТС кто и напишет программу, то он всё равно сдать не сможет.
Как пишется метка безусловного перехода?
пример:
label m;
var
......
begin
{код программы}
goto m;
{код программы}
m:
end;
Нда так мы условия нормального и не дождались.
у меня блин привычка такая блин с первого курса, пофиг на каком языке нуно написать прогу, я ее сначала на паскале пишу а потом уж на др языке
Ага, все верно. Однако я автору не рекомендую юзать метки, ибо это моветон (раньше называли "дурным тоном"), т.к. программа станет тяжело читаться. Старайтесь продумывать алгоритм так, чтобы обойтись простыми циклами (не только for-do, но и while-do и repeat-until) и условиями. Надо вырабатывать свой стиль сразу. Иначе потом поздно будет.
Чем лучше заменить метки goto?Чтоб и самому легче было.А то я сам в программе потерялся.
пользуйся циклами (for to do, while do, repeat until).
и условиями if then else
так же советую пользоваться оператором выбора case of.
ты курсовую что-ли взялся сам писать?
Хоть не в асамблере :) А мне больше с++ нравиться.
Остается к этому добавить оператор немедленного выхода из цикла break. И тогда решается любая задача.
Люди все кто может помогите плиизззззззззззз написать задачку!: Найдите сумму всех целых чисел больше (-50) и меньше 200, которые кратны 5 и 8 и заканчиваються на 5 или 0! Заранее спасибо
чтобы использовалось ()and()
()or()
А что тут сложного? Задаешь Х:=-50 и делаешь цикл, где в У будут суммироваться числа подходящие условию. Шаг +5:)))
пожалуйста напиши от uses crt; до end.
срочно надо
да и еще если можна!№1 вывести все числа от 1 до 100!№2 найти наименьший общий делитель (а и в)
Странное условие если число кратно 5 значит оно однозначно заканчивается на 0 или 5 поэтому or сразу отпадает.
Тогда получается что то тип этого:
var
summ, i : integer;
begin
summ:=0;
for i:= -50 to 200 do
begin
if (i mod(5)=0)and(i mod(8)=0)then
summ := summ+i;
end;
СППППППППППППАААААААААССССССССИБО:)
ТОК ОНА НЕ РАБОТАЕТ:(
Ну наверное потому, что результат не выводится на экран... и нету end. в конце
var
summ, i : integer;
begin
summ:=0;
for i:= -50 to 200 do
if (i mod(5)=0)and(i mod(8)=0)then
summ := summ+i;
write(i);
readln;
end.