Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль) > Pascal ABC
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Pascal ABC Вывести на экран таблицу стоимости этого продукта в следующем виде: 8. Стоимость 1 кг. некоторого продукта = x руб. Вывести на экран таблицу стоимости этого продукта в следующем виде: 50 гр. - … руб. 100 гр. - … руб. 600 гр. - … руб. https://www.cyberforum.ru/ pascalabc/ thread2377766.html Начав тренировки, спортсмен в первый день пробежал x км Pascal ABC
7. Начав тренировки, спортсмен в первый день пробежал x км. Каждый следующий день он увеличивал дневную норму на 5% от нормы предыдущего дня. Вывести на экран таблицу преодоленных расстояний в течение 10 дней в следующем виде: 1 день - … км. 2 день - … км. 10 день - … км.
Pascal ABC Вывести на экран таблицу связи ДОЛЛАР – РУБЛЬ в следующем виде Цикл с параметром "ДЛЯ" 6. Известно, что 1 доллар = n руб. Вывести на экран таблицу связи ДОЛЛАР – РУБЛЬ в следующем виде: 5 дол. = … руб. 10 дол. = ... руб. 50 дол. = ... руб. https://www.cyberforum.ru/ pascalabc/ thread2377764.html Pascal ABC Вывести на экран один из столбцов таблицы умножения https://www.cyberforum.ru/ pascalabc/ thread2377763.html
Цикл с параметром "ДЛЯ" 5. Вывести на экран один из столбцов таблицы умножения.
Pascal ABC На данный момент школу посещают N человек
Цикл с параметром "ДЛЯ" 4. На данный момент школу посещают N человек. Определить, сколько детей будет посещать школу через 10 дней, если число посещающих школьников каждый день уменьшается на 8% от предыдущего дня. 		Pascal ABC В школе на данный момент болеют гриппом M человек https://www.cyberforum.ru/ pascalabc/ thread2377761.html
Цикл с параметром "ДЛЯ" 3. В школе на данный момент болеют гриппом M человек. Определить, сколько детей будет болеть через 7 дней, если каждый день число больных увеличивается на 10% от заболевших.
Pascal ABC Численность населения в некотором городе каждый год увеличивается на 2% по отношению к предыдущему году Цикл с параметром "ДЛЯ" 2. Численность населения в некотором городе каждый год увеличивается на 2% по отношению к предыдущему году. На данный момент в городе проживает F человек. Какова будет численность населения города через 5 лет. https://www.cyberforum.ru/ pascalabc/ thread2377760.html Из полностью наполненной цистерны, ёмкостью S литров, начинает выливаться вода Pascal ABC
Цикл с параметром "ДЛЯ" 1. Из полностью наполненной цистерны, ёмкостью S литров, начинает выливаться вода. В каждую секунду из бочки выливается 6% находящейся в бочке воды. Сколько литров воды останется в бочке через 20 секунд.
Pascal ABC Численность населения в некотором городе каждый год увеличивается на 1% по отношению к предыдущему году Цикл "ПОКА" 4.Численность населения в некотором городе каждый год увеличивается на 1% по отношению к предыдущему году. На данный момент в городе проживает F человек. Через сколько лет численность населения города составит более 45000 человек. https://www.cyberforum.ru/ pascalabc/ thread2377758.html Pascal ABC Из 500 учащихся школы на данный момент болеют гриппом M человек https://www.cyberforum.ru/ pascalabc/ thread2377757.html
Цикл "ПОКА" 3. Из 500 учащихся школы на данный момент болеют гриппом M человек. Определить, через сколько дней будет болеть более половины учеников школы, если каждый день число больных увеличивается на 15% от заболевших.
Pascal ABC Из полностью наполненной цистерны, ёмкостью S литров, начинает выливаться вода
Цикл "ПОКА" 2. Из полностью наполненной цистерны, ёмкостью S литров, начинает выливаться вода. В каждую секунду из бочки выливается 5% находящейся в бочке воды. Через сколько секунд в бочке останется менее 1 литра воды. 		Pascal ABC Из 800 учащихся школы на данный момент посещают школу N человек https://www.cyberforum.ru/ pascalabc/ thread2377755.html
Цикл "ПОКА" 1. Из 800 учащихся школы на данный момент посещают школу N человек. Определить, через сколько дней число посещающих школу составит менее половины учащихся школы, если число не больных школьников каждый день уменьшается на 10% от предыдущего дня.
0 / 0 / 0
Регистрация: 08.10.2018
Сообщений: 14
0

Класс: Создать класс "Время" - Pascal ABC - Ответ 13182296

22.12.2018, 06:18. Показов 916. Ответов 0
Метки (Все метки)
Author24 — интернет-сервис помощи студентам
хелп, затрудняюсь написать программу. заранее огромное спасибо<З

класс-> время
члены класса-> часы, минуты, секунды
методы-> Конструктор, деструктор, метод вывода времени и составляющей суток (до 6 - ночь, до 12 - утро, до 18 - день, до 24 - вечер).

Добавлено через 10 часов 41 минуту
смогла решить.
решение, если кому пригодится:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37

type
TTime = class
  private   
    h,m,s:real;
  public
    constructor Create(h,m,s:real);
    destructor Destroy(); //abstruct;
    begin end;
    procedure getTime(h,m,s:real);
    function howTime(h:real):string;
end;
var time:TTime;
constructor TTime.Create(h,m,s:real);
begin
  h:=0;
  m:=0;
  s:=0;
end;
procedure TTime.getTime(h,m,s:real);
begin
  writeln('Сейчас '+h+' часов '+m+' минут '+s+' секунд.');
  end;
function TTime.howTime(h:real):string;
  begin
  if ((h<=0) or (h<=24)) and (h<=6) then howTime:='Ночь';
  if (h>=6) and (h<=12) then howTime:='утро';
  if (h>=12) and (h<=18) then howTime:='день';
  if (h>=18) and ((h<=0) or (h<=24)) then howTime:='вечер';
 end; 
 begin
   time:=TTime.create();
   readln(time.h);
   readln(time.m);
   readln(time.s);
   time.getTime(time.h,time.m,time.s);
   writeln(time.howTime(time.h));
 end.


Вернуться к обсуждению:
Класс: Создать класс "Время" Pascal ABC
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.12.2018, 06:18
Готовые ответы и решения:

Создать класс Point
Создать класс Point, разработав следующие элементы класса: a. Поля: • int x, y;...

Создать класс треугольник.
задание.Согласно своему варианту задания написать программу на языке ObjectPascal. создать...

Создать класс - равносторонний треугольник
Создать класс – равносторонний треугольник, предусмотреть в классе проверку, является ли...

Класс: Добавить в класс "Строка" индексатор, позволяющий по индексу обращаться к соответствующему символу строки.
Добавить в класс для работы сo строками: a. Индексатор, позволяющий по индексу обращаться к...

0
22.12.2018, 06:18
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 22.12.2018, 06:18
Помогаю со студенческими работами здесь

Создать класс квадрат, члены класса - длина стороны
Создать класс квадрат,члены класса- длина стороны.Предусмотреть в классе методы вычисления и вывода...

Создать класс треугольник, члены класса - длины 3-х сторон
Создать класс треугольник, члены класса - длины 3-х сторон. Предусмотреть в классе методы проверки...

Пользователь вводит фамилию и класс, программа должна вывести сообщение «Фамилия … - класс …»
Написать программу для решения задачи. Пользователь вводит фамилию и класс, программа должна...

Создать абстрактный класс
Добрый день! Нужна помощь в Турбо Паскаль Нужно создать абстрактный класс, содержащий абстрактные...

Создать класс треугольник
Создать класс треугольник, члены класса – длины 3-х сторон. Предусмотреть в классе методы проверки...

Создать класс Location
1 Создать класс Location, имеющий два свойства X,Y:integer; процедуру Init(IntX, IntY); две функции...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru