М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
boosoosv
boosoosv
29.10.2021 13:15 •  Информатика

Выручайте, написать программу в паскале: " даны два целых числа: d (день) и m (месяц), определяющие правильную дату не високосного года. вывести значения d и m для даты, предшествующей указанной." используя команду case.

👇
Ответ:
sevtour
sevtour
29.10.2021
Program a;
var D,M: integer;
begin 
readln (D,M); //DD MM
if (D<>1) then Writeln (D-1,' ',M) 
else
case M of
01 : Writeln('31 12');
02 : Writeln('31 01');
03 : Writeln('28 02');
04 : Writeln('31 03');
05 : Writeln('30 04');
06 : Writeln('31 05');
07 : Writeln('30 06');
08 : Writeln('31 07');
09 : Writeln('31 08');
10 : Writeln('30 09');
11 : Writeln('31 10');
12 : Writeln('30 11');
end;
end.
4,5(59 оценок)
Открыть все ответы
Ответ:
Levix322
Levix322
29.10.2021
Используя графический растровый редактор Paint создайте (ешь) рисунок:
размер 200х200 пикселей; формат 24-разрядный рисунок (*.bmp). Внешний вид рисунка показан ниже. jpeg В тетради создаете таблицу: 24 разряда bmpjpgtifpng16 цветов bmp Определите размер рисунка в Кбайтах и занесите результат в таблицу. Введите размер рисунка в Кбайтах

1. Создаешь новый документ в параметрах выставляешь размер
2. вставляешь свой рисунок (копи-паст), - трансформируешь (подгоняешь размер)
3. берешь тетрадь и дальше по параметрам.
4. теперь при сохранении - бмп - 16 цветный бмп
5. сохраняешь.
6. находишь сохраненное - смотришь скока весит кбайт - вносишь в таблицу
4,5(80 оценок)
Ответ:
ritailicheva0
ritailicheva0
29.10.2021
Объем прямоугольного параллелепипеда с длиной а, шириной b и высотой h  может быть найден, как произведение площади основания ab на высоту, т.е. Vп=abh.
Из этого объема нужно вычесть объемы четырех цилиндров. Объем цилиндра с диаметром основания D и высотой h находится по формуле Vц=πD²h/4.
Окончательно V = Vп-4Vц = h(ab-πD²).
Масса такой фигуры пли заданной плотности ρ может быть найдена по формуле m=ρV

В программе будем считать, что значения a,b,h,D,ρ заданы в ячейках листа рабочей книги MS Excel, Туда же будут выведены результаты. Для второго примера a,b будем вводить в диалоге, а ответ выдадим в окне сообщений. Это проиллюстрирует часть различных возможностей ввода и вывода данных в VBA.

Файл с рабочей книгой MS Excel 2003 дан во вложении.
На всякий случай ниже приводятся коды, прописанные в кнопках.

Private Sub CommandButton1_Click()
    ' ввод
    a = Cells(1, 2).Value
    b = Cells(2, 2).Value
    h = Cells(3, 2).Value
    D = Cells(4, 2).Value
    rho = Cells(5, 2).Value
    'расчет
    V = h * (a * b + Pi * D ^ 2)
    m = rho * V
    ' вывод
    Cells(7, 2) = V
    Cells(8, 2) = m
End Sub

Private Sub CommandButton2_Click()
    a = CDbl(InputBox("Введите значение a"))
    b = CDbl(InputBox("Введите значение b"))
    x = Atn(a + b)
    y = Sin(a * b - 2)
    u = Log(x ^ 2 + y ^ 2 + 1)
    MsgBox "y=" + CStr(u)
End Sub
4,4(98 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ