Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Паскаль
Регистрация

Восстановить пароль
Повторная активизация e-mail


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 13.10.2016, 08:47   #1
Катя Стреканова
Новичок
Джуниор
 
Регистрация: 13.10.2016
Сообщений: 12
Репутация: 10
По умолчанию Помогите Кате... Дано вещественное неотрицательное число, найдите сумму первых после десятичной точки трех цифр числа

В вещественной переменной Y записано некоторое неотрицательное число, не превосходящее 30000. запишите в переменную S сумму первых после десятичной точки трех цифр числа Y можно использовать дополнительные переменные любых типов но нужно указать тип для каждой доп. переменной. на паскале задачу написать нужно....
Катя Стреканова вне форума   Ответить с цитированием
Старый 13.10.2016, 09:14   #2
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,857
Репутация: 5617
По умолчанию

Код:
var y : double;
  n, sum : integer;
begin
   ReadLn(y);
   n := trunc(frac(y)*1000);
   sum :=0;
   while n>0 do begin
     sum := sum + n mod 10;
     n := n div 10
   end;
   WriteLn('Сумма первых после десятичной точки трех цифр числа Y = ', sum)
end.

Последний раз редактировалось Serge_Bliznykov; 13.10.2016 в 09:17.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 13.10.2016, 10:29   #3
Катя Стреканова
Новичок
Джуниор
 
Регистрация: 13.10.2016
Сообщений: 12
Репутация: 10
По умолчанию

Не понимаю как работает программа. Написала в Паскаль оно не работает. Ошибку выдают. Помогите..раскажмте...
Цитата:
Сообщение от Serge_Bliznykov Посмотреть сообщение
Код:
var y : double;
  n, sum : integer;
begin
   ReadLn(y);
   n := trunc(frac(y)*1000);
   sum :=0;
   while n>0 do begin
     sum := sum + n mod 10;
     n := n div 10
   end;
   WriteLn('Сумма первых после десятичной точки трех цифр числа Y = ', sum)
end.
Катя Стреканова вне форума   Ответить с цитированием
Старый 13.10.2016, 10:34   #4
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,022
Репутация: 3738

icq: 512-765
skype: alexp.frl
По умолчанию



Какая ошибка-то?

И Паскаль разный бывает.
Alex11223 вне форума   Ответить с цитированием
Старый 13.10.2016, 11:14   #5
Катя Стреканова
Новичок
Джуниор
 
Регистрация: 13.10.2016
Сообщений: 12
Репутация: 10
По умолчанию

Ошибка на 5 строчки не читает ее
Катя Стреканова вне форума   Ответить с цитированием
Старый 13.10.2016, 11:19   #6
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,022
Репутация: 3738

icq: 512-765
skype: alexp.frl
По умолчанию

Прям так и говорит, "не могу прочитать"?

Или вы о своем неумении читать текст ошибки?
Alex11223 вне форума   Ответить с цитированием
Старый 13.10.2016, 11:46   #7
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,857
Репутация: 5617
По умолчанию

хотя бы скриншот с ошибкой выложите.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 13.10.2016, 15:25   #8
Катя Стреканова
Новичок
Джуниор
 
Регистрация: 13.10.2016
Сообщений: 12
Репутация: 10
По умолчанию

Да я не понимаю паскаль т. к. эту тему я не прослушала по причине болезни. вот сейчас догоняю всех.
Миниатюры
Нажмите на изображение для увеличения
Название: Безымянный.jpg
Просмотров: 58
Размер:	90.5 Кб
ID:	83859  
Катя Стреканова вне форума   Ответить с цитированием
Старый 13.10.2016, 15:33   #9
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 25,857
Репутация: 5617
По умолчанию

а теперь возьмите строчку, которая у Вас выделена красным и сравните с той строчкой, которая в моём коде.
только, чур, внимательно сравнивать!
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 13.10.2016, 15:41   #10
Alex11223
Модератор
Заслуженный модератор
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,022
Репутация: 3738

icq: 512-765
skype: alexp.frl
По умолчанию

Цитата:
Сообщение от Катя Стреканова Посмотреть сообщение
Да я не понимаю паскаль
Чтобы прочитать ошибку не надо знать Паскаль, надо только уметь читать (причем даже на русском в вашем случае, а не на английском)

А если непонятно, что означает ошибка, то можно скопировать ее сначала в гугл, потом (если гугл не помог) на форум, а не просто говорить всякие бессмысленные вещи типа "помогите, не работает!".
Alex11223 вне форума   Ответить с цитированием
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано натуральное число X и целое n. вычислить сумму первых x элементов. maxwelln1 Паскаль 3 07.10.2016 23:29
Найдите сумму: а)квадратов целых чисел от 10 до 20,б)чисел, обратных квадратам первых 100 натуральных. 10.найдите сумму в первых ч макс789 Помощь студентам 1 29.05.2016 18:42
Дано короткое целое неотрицательное число. Выполнить инверсию двоичного представления входящих в его состав четных 8-чных цифр Ilai Общие вопросы C/C++ 2 20.04.2015 21:01
Помогите составить программу (Lazarus): Дано натуральное число п. Поменять порядок цифр числа на обратный. Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 8 15.04.2014 13:46
Задача на использования оператор цикла for C++. Дано вещественное число A и целое число N (> 0). Используя один цикл, найти сумму /Crow/ Помощь студентам 0 19.12.2013 12:02


02:45.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.