Вопросы и ответы
Топ за год Облако тегов  

Задача, Pascal

компьютеры математика обучение pascal паскаль

Kandasoft, 115 просмотров
0
Здравствуйте.
Вот решил все-таки изучить паскаль.
Итак, постановка вопроса:
Дано дробное число, например 13.455 или 3.134, после запятой 3 символа.
Требуется определить, есть ли среди этих 3-х символов хотя бы один ноль.

Мой вариант, написанный на скорую руку, не проходит.

begin
read(n);
a:=(n-trunc(n))*1000;
b:=a;

n1:= b div 100;
x:= b - x*100;
n2:= x div 10;
n3:= x - z*10;

if (n1=0)or(n2=0)or(n3=0) then ...Действие....
else ....Действие....;

end.

У меня вся проблема заключается типе переменных, так как число у нас вещественнное, а остальные должны быть целыми, то тут никак не могу сообразить, как сделать.

Операция: b:=a; не проходит, так как переменная "а" вещественное, а переменная "в" - целое.





Примечание:
Все, разобрался. Что-то я... Нужно идти чинить мозг. Раньше был кодером под php, так там не особо о типе данных задумывался, а добрался до Pascal'я, так теперь началось.
В общем, я попрежнему жду от вас интересных решений, какими еще способами можно решить эту задачу.
Ответы:
Thinker
операция b:=a пройдет, если записать вот так: b:=round(a);
Артёмка
var s: string;
    i: integer;
    b, zero: boolean;
begin
 readln(s);
 b := false;
 zero := false;
 for i := 1 to length(s) do begin
   if s[i] = '.' then b := true;
   if b and s[i]='0' then begin
     zero := true;
     break;
   end;
 end;
 if zero then ...Действие....
 else ....Действие....;
end.
Иван Левашев
b := round(frac(n) * 1000);


15 лет назад

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.