найти сумму целых положительных чисел

@AK88 · Регистрация: 06.01.2012

Студворк — интернет-сервис помощи студентам

1. Найти сумму целых положительных чисел, кратных 4 и меньших 100.
2. Дано действительное число х. Получить целую часть х; затем число х, округлённое до ближайшего целого; затем число без дробных цифр.

@it-m-aks · 06.01.2012, 19:52

№1

Pascal
1
2
3
4
5
6
7
var i: integer;
    sum: integer;
begin
  for i:=4 to 99 do
    if i mod 4=0 then sum:=sum+i;
  writeln('Сумма: ',sum);
end.

Добавлено через 5 минут

Сообщение от AK88

Получить целую часть х;

Сообщение от AK88

затем число без дробных цифр.

Это разве не одно и тоже???

@AK88 · 06.01.2012, 19:56 **[ТС]**

я так понимаю одно и тоже...

@Hrobak · 06.01.2012, 19:59

2:

Pascal
1
2
3
4
5
6
7
8
9
10
var x,c:real;
begin
writeln('Vvedite x');
readln(x);
if x>0 then c:=trunc(x)
else c:=trunc(x)-1;
writeln('Celaya chast: ',c:0:0);
writeln('Okruglennoe x: ',round(x));
writeln('Chislo bez drobnyh cifr: ',int(x):0:0);
end.

Сообщение от it-m-aks

Это разве не одно и тоже???

Нет, целая часть числа - это округление числа до ближайшего целого в меньшую сторону. Пример:
[-2.5]=-3, а -2.5 без дробных цифр - это -2.

@it-m-aks · 06.01.2012, 20:01

№2

Pascal
1
2
3
4
5
6
7
8
var x: real;
begin
  writeln('Введите x: ');
  readln(x);
  writeln('Целая часть: ',int(x));
  writeln('Округлённое: ',round(x));
  writeln('Целая часть, без дробных чисел: ',trunc(x));
end.

Там нужно использовать две разные функции!

Добавлено через 1 минуту

Сообщение от Hrobak

Нет, целая часть числа - это округление числа до ближайшего целого в меньшую сторону. Пример:
[-2.5]=-3, а -2.5 без дробных цифр - это -2.

ну я уже понял!

@Hrobak · 06.01.2012, 20:03

it-m-aks, так ваша программа неправильно работает при x=-2.5. Целая часть -3, а не -2, потому что -2>-3

@it-m-aks · 06.01.2012, 20:11

Сообщение от Hrobak

it-m-aks, так ваша программа неправильно работает при x=-2.5. Целая часть -3, а не -2, потому что -2>-3

Прости, но программа работает правильно!
Автор не указал в какую сторону нам нужно округлять!
В моей происходит округление к большему!
при отрицательно и положительном значении x!
А вы рассуждаете когда x<0, то округляете к меньшему, а когда x>0 округляете к большему!
Так что спорный вопрос

Спасибо, за замечание по правде даже не учёл!

@Hrobak · 06.01.2012, 20:17

it-m-aks, вы не поняли. Моя программа округляет в меньшую сторону в любом случае. Целая часть числа - понятие в математике: целая часть на википедии. Показываю работу своей программы на двух примерах:
1) при 2,5 - целая часть числа 2 (2<2,5)
2) при -2,5 - целая часть числа -3(-3<-2,5)

@it-m-aks · 06.01.2012, 20:23

хм, спасибо, надо разобраться...

Странно
1.5 ->2
2.5 ->2
3.5 ->4
4.5 ->4

объясните, а то я совсем уже запутался!
при округлении!

@Hrobak · 06.01.2012, 20:36

Ах, да, еще поправка к коду:

Pascal
1
2
3
4
5
6
7
8
9
10
11
var x,c:real;
begin
writeln('Vvedite x');
readln(x);
if (x>0) and (frac(x)<>0) then c:=trunc(x)
else if frac(x)<>0 then c:=trunc(x)-1
else c:=x;
writeln('Celaya chast: ',c:0:0);
writeln('Okruglennoe x: ',round(x));
writeln('Chislo bez drobnyh cifr: ',int(x):0:0);
end.

Добавлено через 2 минуты
it-m-aks,
Целая часть обозначается квадратными скобками:
[1,5]=1 [-1,5]=-2
[2,5]=2 [-2,5]=-3
[3,5]=3 [-3,5]=-4
[4,5]=4 [-4,5]=-5

@it-m-aks · 06.01.2012, 21:43

Спасибо, разобрался!
Такие округления выдаёт abc.net! Надо его снести!

И поставить старый добрый tp!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@AK88 0 / 0 / 0 Регистрация: 06.01.2012 Сообщений: 7

	найти сумму целых положительных чисел 06.01.2012, 19:31. Показов 1970. Ответов 10 Метки нет (Все метки) 1. Найти сумму целых положительных чисел, кратных 4 и меньших 100. 2. Дано действительное число х. Получить целую часть х; затем число х, округлённое до ближайшего целого; затем число без дробных цифр. 0

@AK88 0 / 0 / 0 Регистрация: 06.01.2012 Сообщений: 7
	06.01.2012, 19:56 [ТС]
	я так понимаю одно и тоже... 0

@Hrobak 292 / 172 / 47 Регистрация: 22.03.2010 Сообщений: 488
	06.01.2012, 20:03
	it-m-aks, так ваша программа неправильно работает при x=-2.5. Целая часть -3, а не -2, потому что -2>-3 1

@Hrobak 292 / 172 / 47 Регистрация: 22.03.2010 Сообщений: 488
	06.01.2012, 20:17
	it-m-aks, вы не поняли. Моя программа округляет в меньшую сторону в любом случае. Целая часть числа - понятие в математике: целая часть на википедии. Показываю работу своей программы на двух примерах: 1) при 2,5 - целая часть числа 2 (2<2,5) 2) при -2,5 - целая часть числа -3(-3<-2,5) 1

@it-m-aks 17 / 17 / 7 Регистрация: 04.01.2012 Сообщений: 28
	06.01.2012, 20:23
	хм, спасибо, надо разобраться... Странно 1.5 ->2 2.5 ->2 3.5 ->4 4.5 ->4 объясните, а то я совсем уже запутался! при округлении! 0

@it-m-aks 17 / 17 / 7 Регистрация: 04.01.2012 Сообщений: 28
	06.01.2012, 21:43
	Спасибо, разобрался! Такие округления выдаёт abc.net! Надо его снести! И поставить старый добрый tp! 0

Опции темы