Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 4

объяснить чего это такое

23.11.2009, 09:47. Показов 1004. Ответов 6
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Всем привет!
Паскаль начала изучать только недавно. Нашла тут один примерчик под своё задание, хотела использовать. Всё работает, только не знаю что вот это вот такое Объясните пожалуйста что это вообще за команды, для чего это нужно:
if sPrice<cPrice then sPrice:=cPrice;
Pascal
1
2
3
4
5
6
7
8
9
10
     str(round(sPrice),bs1);
     str(round((sPrice-trunc(sPrice))*100),bs2);
     if bs2<>'0' then bs1:=bs1+','+bs2 else bs1:=bs1+',00';
     while length(bs1)<8 do bs1:=' '+bs1;
     str(round(cPrice),bs2);
     while length(bs2)<4 do bs2:='0'+bs2;
     s:=copy(manName,1,8)+
     copy(iName,1,16)+
     copy(bs1,1,8)+
     copy(bs2,1,4);
writeln(outputFile,s);

Вот именно про эти bs я не пойму зачем они нужны, чего они делают, что такое round, для чего он нужен? )) Это типа размер даты в файле указывает?
Заранее благодарю!
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
23.11.2009, 09:47
Ответы с готовыми решениями:

может кто нибудь объяснить что это за цифры
дана программа может кто нибудь объяснить что это за цифры s:5:3 program proga7; uses crt; var x:array of integer; i,j,n,b,l:...

Обьясните что это такое
Собственно программа на паскале с массивами. Непойму что обозначает abc перед (mas). Обьясните пожалуйста. В учебнике смотрел, обьяснение...

Что это такое (<=) на Pascal ABC?
что это такое (&lt;=) на Pascal ABC ?

6
Эксперт по компьютерным сетямЭксперт Pascal/Delphi
 Аватар для TAVulator
4191 / 1292 / 237
Регистрация: 27.07.2009
Сообщений: 3,962
23.11.2009, 09:56
Цитата Сообщение от Widunder Посмотреть сообщение
Вот именно про эти bs я не пойму зачем они нужны, чего они делают, что такое round, для чего он нужен?
в этой программе bs - это строковые перменные, а Round - округление.
1
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 4
23.11.2009, 10:46  [ТС]
А не проще было бы использовать :0:2 вместо всех этих операций? Или я так ничего и не пойму?
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
23.11.2009, 14:37
Цитата Сообщение от Widunder Посмотреть сообщение
:0:2
Это просто форматирует вывод вещественного числа на экран с двумя знаками после запятой, а roun() преобразует вещественное число в целое, округляя его при этом.
1
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 4
23.11.2009, 21:21  [ТС]
А, благодарю, а bs что именно делает? то что это стринг - это я и так вижу. А функцию какую в данном случае выполняет? Типо возвращает номер, как стринг?
0
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
23.11.2009, 21:32
bs это просто название переменной, можете назвать ее sb, ничего не изменится. А хранит она в себе запись полученного числа в строковом виде.
Если было число 21,36 , то будет строка '21'
1
0 / 0 / 0
Регистрация: 23.11.2009
Сообщений: 4
23.11.2009, 22:39  [ТС]
Всё, поняла теперь. Спасибо огромное!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
23.11.2009, 22:39
Помогаю со студенческими работами здесь

Объяснить работу программы(написать для чего каждая строка)
Задача: Перепечатывайте задание на форум! Код программы: uses crt; var s:real; x,f,st,n,i:integer; BEGIN clrscr;

Объяснить работу программы(написать для чего каждая строка)
Задача:Обработать матрицу, элементами которой являются случайные значения функции F(X). Вывести на экран исходную матрицу и полученные...

Объяснить работу программы(написать для чего каждая строка)
Задача: Дана строка. Вывести на экран все слова строки и указать их количество. Код программы: uses crt; const m=; var...

Объяснить работу программы(написать для чего каждая строка)
Задача:Дан массив целых чисел.Найти максимальный элемент среди отрицательных Код программы: const n = 10; var a : array of...

Объяснить работу программы(написать для чего каждая строка)
Задача: Дана строка,состоящая из нескольких предложений,заканчивающихся точкой,восклицательным,вопросительным знаками.Определить,сколько...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Новые блоги и статьи
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru