Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC интерполяция ф-ции, не работает https://www.cyberforum.ru/ pascalabc/ thread200109.html
никак не могу переделать под свой вариант, помогите пожалуйста. у=x^3 + sin(pi*x) промежуток -5, 5 ничего не сходится с ручными расчетами program lr6; uses crt; var
программа на оператор if Pascal ABC
Юзер загадал один из 12 месяцев. Программа должна угадать этот месяц задав юзеру максимум 4 вопроса. Схему составил.В программный код это записать не могу. Пример: 1в:это или зима или весна?...
Параллельность векторов Pascal ABC
Помогите с задачой: При каком значении x векторы а(х,2) и b(1,х) параллельны?
Pascal ABC Описать функцию DegToRad (D) вещественного типа, находящую величину угла в радианах Описать функцию DegToRad (D) вещественного типа,находящую величину угла в радианах, если дана его величина D в градусах(D-вещественное число,0<D<360). Воспользоваться следующим соотношением:180=П... https://www.cyberforum.ru/ pascalabc/ thread200002.html
Pascal ABC Решение квадратных уравнений https://www.cyberforum.ru/ pascalabc/ thread199998.html
. x в квадрате-5; х<=0 y= фигурная скобка . квадратный корень из х-2х; х>0 Составьте пожалуйста программу.:-[ Ну не расположен...
Pascal ABC Линейные алгоритмы. Определить суммы, необходимые для покупки отдельных товаров и общую сумму
помогите пожалусто решить в паскале не фига не врубаюсь и не понимаю: Ресторан закупает ежедневно Z1 кг масла по 8,50 гр/кг, Z2 кг сметаны по 5 гр/кг, Z3 кг сливок по 4,50 гр/кг. Цена товара...
Pascal ABC Оператор while. Найти наименьшее целое положительное число K квадрат которого превосходит N
дано целое вещественное число N(>0).Найти наименьшее целое положительное число K квадрат которого превосходит N:K^2>N.функцию извлечения квадратного корня не использовать.
Pascal ABC Оператор function есть функция function fw(x:real):real; begin Esin:=1/exp(sin(x)); fw:=1+(4*x)-(Esin*cos(x)) end; вопрос как можно описать с помощью var, параметр x и что от этого изменится??? для чего нужны... https://www.cyberforum.ru/ pascalabc/ thread199931.html
Pascal ABC Описать процедуру, вычисляющую вторую, третью и четвертую степень числа А и возвращающую эти степени https://www.cyberforum.ru/ pascalabc/ thread199921.html
Описать процедуру Power A234 (A,B,C,D) вычисляющую вторую,третью и четвертую степень числа А и возвращающую эти степени соответственно в переменных В,С и D (А-входной, В,С,D-выходные параметры; все...
Pascal ABC Описать функцию Calc (A,B,Op) вещественного типа, выполняющую над ненулевыми вещественными числами А и В одну из арифметических операций Описать функцию Calc (A,B,Op) вещественного типа выполняющую над нулевыми числами А и В одну из арифметических операций и возвращающую ее результат. Вид операций определяется целым параметром Ор:... https://www.cyberforum.ru/ pascalabc/ thread199882.html
Модератор
60153 / 45303 / 31264
Регистрация: 18.05.2008
Сообщений: 108,813
29.11.2010, 21:54 0

Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае

29.11.2010, 21:54. Просмотров 2304. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Toshi как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
function IsLeapYear(y:word):boolean;
begin
IsLeapYear:=((y mod 100<>0)and(y mod 4=0))or(y mod 400=0);
end;
var i:byte;
    y:word;
begin
writeln('Введите 5 значений года для проверки на високоность:');
for i:=1 to 5 do
 begin
  write('Год=');
  read(y);
  writeln(IsLeapYear(y));
 end;
end.


Вернуться к обсуждению:
Описать функцию IsLeapYear(Y) логического типа, которая возвращает True, если год являеятся високосным, и False в противном случае
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.11.2010, 21:54

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Написать функцию которая возвращает значение true, если целое число n является чётным в противном случае false
Ребят напишите функцию в паскале...

Разработать функцию, которая возвращает True, если полученные значения могут быть сторонами треугольника, False – в противном случае
Разработайте функцию, которая получает три вещественных параметра, возвращает в качестве своего...

Описать функцию IsSquare (K) логического типа, возвращает True, если целый параметр K (> 0) является квадратом некоторого целого числа, и False в прот
Описать функцию IsSquare (K) логического типа, возвращает True, если целый параметр K (&gt; 0)...

Функция, которая возвращает true, если строка состоит только из символов “*”, и false - в противном случае
Напишите функцию isStars(), который возвращает true, если строка состоит только из символов “*”, и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.