Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое раписание,
но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
Для новых пользователей первый месяц бесплатно.
Чат-бот для мастеров и специалистов, который упрощает ведение записей:
— Сам записывает клиентов и напоминает им о визите;
— Персонализирует скидки, чаевые, кешбек и предоплаты;
— Увеличивает доходимость и помогает больше зарабатывать;
Вы создали или только планируете создать свой сайт, но не знаете, как продвигать?
Продвижение сайта – это не просто процесс, а целый комплекс мероприятий,
направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
Ускорение продвижения
Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст,
она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней.
Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
Помогите пожайлуста написать программу на free pascal
Напишите программу для решения уравнения ax = b относительно х в целых числах. Учтите, что a может принимать любые значения, в том числе и 0.
На вход программе подаются целые числа a, b, по модулю не превосходящие 30000. Требуется вывести целый корень уравнения, если он существует и единственный. Если уравнение не имеет корней, то вывести no solution. Если уравнение имеет больше одного целого корня, то вывести many solutions
в этой сказали много ошибок Оо
program horosho; var a,b:integer; begin write('a b ? '); readln(a,b); if a=0 then if b=0 then writeln('many solutions') else if b mod a<>0 then writeln('no solution) else writeln(b div a); readln end.
Не правильно. Если а <> 0 то вообще никакого ответа не будет.Посмотри на отформатированный код:
Code
program horosho; var a,b:integer; begin write('a b ? '); readln(a,b); if a=0 then if b=0 then writeln('many solutions') else if b mod a<>0 then writeln('no solution') else writeln(b div a); readln; end.
else соответствует ближайшему if. подумай как можно исправить. Там всё легко.Сама сможешь =))
только точек с запятой нет. но ведь к этому не придираются? Вы же не в тетради сдаете?
Точек с запятой там нужное количество, хотя после последнего readln можно поставить, но необязательно.Перед else ; не ставится. Кстати, к этому-то и надо придираться, и в тетрадях код сдавать. Это очень приучает писать сразу без ошибок. Обучение программированию
Сообщение отредактировал KaDeaT - Понедельник, 2011-10-24, 2:30 PM
Точек с запятой там нужное количество, хотя после последнего readln можно поставить, но необязательно.Перед else ; не ставится. Кстати, к этому-то и надо придираться, и в тетрадях код сдавать. Это очень приучает писать сразу без ошибок.
да
зы. да неотформатированый код труднее читать, если использовать такие сложные конструкции. имхо я бы сократил количество else и elseif Егэ 2012: М: 92 Ф: 90
Сообщение отредактировал Hellko - Воскресенье, 2011-10-23, 11:48 PM
Добавлено (2011-10-24, 0:00 Am) --------------------------------------------- На этом форуме, даже форматированный код, неудобно читать. Отступы очень маленькие.
bonduelle, ошибок немного. Пропустила ветку, когда а<>0. Два варианта когда есть решение и когда его нет.
Сократить if не получится, если не использовать составные условия. Количество else я наоборот увеличила.
три проверки, а=0, b=0, a mod b=0 и три полных ветвления, поэтому три else Как можно исправить:
исходная программа, добавилась только одна ветка, которая пропущена.
Code
program horosho; var a,b:integer; begin write('a b ? '); readln(a,b); if a=0 then if b=0 then writeln('many solutions') else writeln('no solution') else if b mod a<>0 then writeln ('no solution') else writeln(b div a);
end.
Второй вариант применение составного условия, в этом случае количество if можно сократить:
Code
if (a<>0) and (b mod a=0) then writeln(b div a) else if (a=0) and (b=0) then writeln('many solutions') else writeln('no solution')
И наконец самый простой способ, в которой есть лишние проверки, но без вложенных ветвлений, совсем без else. Хорош тем, что работает правильно, ошибиться сложно, плохо то, что все данные проверяются по три раза. :
Code
if (a<>0) and (b mod a=0) then writeln(b div a); if (a=0) and (b=0) then writeln('many solutions'); if (a=0) and (b<>0) or (a<>0)and(b mod a<>0) then writeln('no solution') ;
...чтобы оставаться на одном месте нужно все время двигаться вперед...
Сообщение отредактировал prm2008 - Понедельник, 2011-10-24, 2:34 PM
1)Заполнить массив A[12] числами от 1 до 12,что бы компьютер сам заполнял,не в ручную 2)Заполнить массив A[12] числами от 12 до 1,что бы компьютер сам заполнял,не в ручную