Находка для тех, чьи девушки и супруги работают в сфере услуг: маникюр, брови, ресницы и так далее...
🤔 Вы же наверняка задумывались, как помочь своей половинке зарабатывать больше? Но что делать, если во всех этих маркетингах и процедурах не разбираешься от слова «совсем»?
Мы нашли выход — это сервис VisitTime
Чат-бот для мастеров и специалистов, который упрощает ведение записей:
— Сам записывает клиентов и напоминает им о визите
— Персонализирует скидки, чаевые, кешбек и предоплаты
— Увеличивает доходимость и помогает больше зарабатывать
А еще там первый месяц бесплатно, поэтому лучшее, что вы можете сделать сейчас — установить или показать его своей принцессе
Всё интуитивно понятно и просто, достаточно нажать на этот текст и запустить чат-бота
Помогите пожайлуста написать программу на 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,что бы компьютер сам заполнял,не в ручную
RSS: