сервис вопросов и ответовсоставить програму которая в зависимости от порядкого номера дня месяца ( 1, 2..12) выводит на екран его название (январь, февраль...декабрь)
10-11 класс|
|
Zvezdakot
24 мая 2013 г., 15:54:24 (10 лет назад)
AlinaWheat
24 мая 2013 г., 16:38:02 (10 лет назад)
program z1;
var
x:integer;
begin
writeln('Введите номер месяца ');
readln(x);
Case x of
1:writeln('Январь');
2:writeln('Февраль');
3:writeln('Март');
4:writeln('Апрель');
5:writeln('Май');
6:writeln('Июнь');
7:writeln('Июль');
8:writeln('Август');
9:writeln('Сентябрь');
10:writeln('Октябрь');
11:writeln('Ноябрь');
12:writeln('Декабрь');
end;
end.
Ответить
Другие вопросы из категории
помогите написать программы на паскале 1.вычислить произведение 3-х вводимых чисел которые меньше 20. 2. вывести на экран
количество четных и количество нечетных чисел в диапазоне от Х до У.
СРОЧНО.Вот код.Это программа не вся ,здесь даны формулы для вычисления массивов, которые и нужно найти.Написал функцию, вроде бы всё нормально, но не могу
понять как присвоить вычисляемые значения массиву.Массивы Y(8), Z(10) , W(15) .Если что, то потом необходимо еще подсчитать общее количество в этих массивах.
program pr_10;
const b1 = 4;
b2 = 6;
c1 = 8;
c2 = 3;
d1 = 5;
d2 = 12;
var i,m:integer ; y,z,w:real;
function fY(i:integer):real;
begin
Y:=b1*sin(2*i)+exp((i-5)*ln(b2));
end;
function FZ(i:integer):real;
begin
Z:=c1*(i-4)+c2*sqr(sin(1.5*i));
end;
function FW(i:integer):real;
begin W:=d1*ln(0.1*i)+d2*exp((3)*ln(i-2.5));
end;
begin
for i:=1 to 8 do
begin
Ym[i]:= Y(i);
writeln('Y = ',y);
end;
end.
Почему не используют Odd?
Во всех программах этого сайта на Паскале, когда нужно определить четность числа, используют MOD, хотя для этого есть специальная функция Odd. Эта функция не изучается на начальных этапах изучения Паскаля или есть другие причины?
Отдаю все свои баллы, т.к. меня из-за ника скоро выгонят с сайта, уже получил предупреждение.
Желаю всем успехов!
Помогите с PascalABC.net Есть программа, которая во вкладке и ессть word-файл, помоге с word-файлом - а именно укажите там длину, ширину фигуры и
площадь чего находит паскаль? (жёлтой или чёрной фигур)
Читайте также
составить программу,которая в зависимости от порядкового номера месяца выводит на экран количество дней в этом месяце.Рассмотреть два случая: 1.год
високосный.
2.год не является високосным
помогите решить задачки по Паскалю "4": Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее
использования. Пример: Введите число: 100 сумма = 5050
"5":
Составить функцию, которая определяет, сколько зерен попросил положить на N-ую клетку изобретатель шахмат (на 1-ую – 1 зерно, на 2-ую – 2 зерна, на 3-ю – 4 зерна, …) Пример: Введите номер клетки: 28 На 28-ой клетке 134217728 зерен.
1 В зависимости от того что вводится с компьютера программа должна посчитать площадь треугольника по одной из двух формул S=1/2 основания на h либо по форм
уле Герона
2 В зависимости от номера класса введенного с клавиатуры вывести на экран что это начальная, средняя, старшая или выпускное звено. Выпускное звено 9 и 11 классы.
1) Составить функцию, которая определяет наибольшее из трех чисел и привести пример ее использования. Пример: Введите три числа:
28 15 10
Наибольшее число: 28
2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.
Пример:
Введите число:
100
Сумма = 500
Буду очень признателен за помощь.
Вы находитесь на странице вопроса "составить програму которая в зависимости от порядкого номера дня месяца ( 1, 2..12) выводит на екран его название (январь, февраль...декабрь)", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.