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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

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

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

Код:
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
По умолчанию

Не понимаю как работает программа. Написала в Паскаль оно не работает. Ошибку выдают. Помогите..раскажмте...
Цитата:
Сообщение от 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
Заблокирован
 
Регистрация: 12.01.2011
Сообщений: 19,504
По умолчанию



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

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

Ошибка на 5 строчки не читает ее
Катя Стреканова вне форума Ответить с цитированием
Старый 13.10.2016, 11:19   #6
Alex11223
Заблокирован
 
Регистрация: 12.01.2011
Сообщений: 19,504
По умолчанию

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

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

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

Да я не понимаю паскаль т. к. эту тему я не прослушала по причине болезни. вот сейчас догоняю всех.
Изображения
Тип файла: jpg Безымянный.jpg (90.5 Кб, 127 просмотров)
Катя Стреканова вне форума Ответить с цитированием
Старый 13.10.2016, 15:33   #9
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,260
По умолчанию

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

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Дано натуральное число X и целое n. вычислить сумму первых x элементов. maxwelln1 Паскаль, Turbo Pascal, PascalABC.NET 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


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS