Turbo Pascal

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Turbo Pascal Является ли строка целым числом и удовлетворяет следующим критериям https://www.cyberforum.ru/ turbo-pascal/ thread611545.html Незнаю че делать, чтобы программа работала правильно Для данной строки S. удостовериться, является ли строка целым числом и удовлетворяет следующим критериям: a) Либо строка содержит один символ - это символ от 0 до 9 б) Либо строка содержит N символов (N>1). Первый символ с строке - это символ от 1 до 9. Последующие символы строке - это символы от 0 до 9. в)Либо строка содержит N символов...	Turbo Pascal Составьте прайс-лист магазина "Обувь" Составьте прайс-лист магазина "Обувь", включающий в себя наименования товара, страну- производитель, его цену, материал изготовления, размер, рекомендации для использования. Информацию о каждом виде товара оформите в программе в виде записи. Совокупность записей объедините в массив. Составьте программу, которая обеспечивает ввод полученной информации, вывод ее в виде таблицы. Выведите на экран...
Turbo Pascal Множества. Найти наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу https://www.cyberforum.ru/ turbo-pascal/ thread611509.html Даны две таблицы по 10 элементов в каждой. Найдите наименьшее среди тех чисел первой таблицы, которые не входят во вторую таблицу (считая, что хотя бы одно такое число есть). решите пожалуйста. срочо надо!!!!!!!!	Turbo Pascal Вычислить среднее арифметическое отрицательных чисел массива Дан массив целых чисел А. Отсортировать их методом «пузырька» в порядке возрастания. Вычислить среднее арифметическое отрицательных чисел. Вывести на экран отсортированный массив и вычисленное значение. Программа ниже uses crt; var a: array of integer; i,j,n: integer; t,sum,kolich: integer; srArf: real; https://www.cyberforum.ru/ turbo-pascal/ thread611504.html
Массивы. Вычислить сумму четных элементов массива Turbo Pascal Создайте массив из n элементов, вводя значения элементов с клавиатуры.Вычислите сумму четных элементов массива.	Turbo Pascal Массивы.Создайте массив пяти элементов, используя список Создайте массив пяти элементов,используя список. Отрицательные элементы массива замените нулями и выведите элементы массива на экран. Мой вариант. program a1; const a:array of integer=(1,5,3,4,-3); var i:integer; begin for 1:=1 to n do begin if (a<0) then a:=0; https://www.cyberforum.ru/ turbo-pascal/ thread611464.html
Turbo Pascal Массивы. Создайте массив из n элементов и найдите сумму всех его элементов Создайте массив из n элементов и найдите сумму всех его элементов.Элементы массива вводятся генератором случайных велечин. https://www.cyberforum.ru/ turbo-pascal/ thread611462.html	Создать блок-схему по программе : Сколько делителей имеет заданное число (сделана и внутри) Turbo Pascal function prov(x:integer):integer; var i,j:byte; begin j:=1; for i:=1 to x div 2 do if x mod i = 0 then inc(j); prov:=j; end; var x:integer; begin
Turbo Pascal Разработать модуль, содержащий основные функции и процедуры по работе с одномерными массивами Разработать модуль, содержащий основные функции и процедуры по работе: с одномерными массивами, функцию определяющую кол-во отрицательных элементов в массиве и процедуру вычисляющую произведение нечётных элементов (способ формирования случайным образом) Написать программу, использующую этот модуль и содержащую меню по реализации всех подпрограмм, содержащихся в модуле. https://www.cyberforum.ru/ turbo-pascal/ thread611422.html	Turbo Pascal Если последовательность упорядочена по не убыванию, то оставить ее без изменения https://www.cyberforum.ru/ turbo-pascal/ thread611415.html Дано натуральное число n,действительные числа а1,...,аn (n>2). если последовательность а1,...,аn упорядочена по не убыванию, то оставить ее без изменения. Иначе получить последовательность аn,...,а1.
Проверить правописание слов по правилу "у", "ю" после шипящих Turbo Pascal Проверить правописание слов по правилу "у", "ю" после шипящих	Turbo Pascal Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв https://www.cyberforum.ru/ turbo-pascal/ thread611365.html Вывести в две колонки все слова текстового файла, содержащие не менее 4 букв.

CodeR

Фрилансер

3418 / 2815 / 3000

Регистрация: 08.02.2012

Сообщений: 8,603

Записей в блоге: 1

22.06.2012, 11:20

Определить, является ли данный работник пенсионером - Turbo Pascal - Ответ 3195907

22.06.2012, 11:20. Показов 1456. Ответов 2

Метки (Все метки)

Сообщение было отмечено как решение

Решение

Pascal

Const g=2012;
Var f:string;
    pl:char;
    gd:integer;
Begin
    write('Введите Ф.И.О: ');readln(f);
    write('Введите год рождения: ');readln(gd);
    write('Введите пол (м/ж): ');readln(pl);
    if ((g-gd)>=60)and(pl='м') then writeln('Пенсионер ')
     else if ((g-gd)>=55)and(pl='ж') then writeln('Пенсионер ')
      else writeln('Не пенсионер');
    readln;
End.

Вернуться к обсуждению:
Определить, является ли данный работник пенсионером Turbo Pascal

Следующий ответ

Заказать работу у эксперта

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

22.06.2012, 11:20

Готовые ответы и решения:

Выполнить проект, который определяет, является ли человек пенсионером
Задание 3 Выполнить проект, который определяет, является ли человек пенсионером. В России пенсия...

Определить, является ли данный текст палиндромом
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...

Определить, является ли данный текст палиндромом
Дана строка символов содержащая некоторый текст. разработать программ которая определяет является...

Определить, является ли данный четырехугольник параллелограммом.
"Даны координаты вершин четырехугольника. Определить, является ли данный четырехугольник...

	22.06.2012, 11:20

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

22.06.2012, 11:20

Помогаю со студенческими работами здесь

Определить, является ли данный четырехугольник параллелограммом
Даны координаты вершин четырехугольника. Определить, является ли данный четырехугольник...

Определить, является ли данный текст палиндромом
Дана строка символов, содержащая некоторый текст. Разработать программу, которая определяет,...

Определить, является ли данный четырехугольник параллелограммом
Написать алгоритм и программу проверки, является ли данный четырехугольник параллелограммом.

Определить, является ли данный предикат тождественно истинным
Здравствуйте) Пропустила тему, запуталась.... ЗАДАНИЕ Определить, является ли данный предикат:...

Требуется определить, является ли данный год високосным.
Требуется определить, является ли данный год високосным. (Напомним, что год является високосным,...

Определить, является ли данный массив магическим квадратом
{Дан прямоугольный целочисленний массив размером N*N.Опред. яв-ся ли данный массив магическим...

Новые блоги и статьи
Как работает async/await в C#. Асинхронное программирование в .NET bytestream 23.01.2025 Введение в асинхронное программирование Асинхронное программирование представляет собой важнейшую концепцию современной разработки программного обеспечения, особенно в контексте создания. . .	КуМир: полное руководство bytestream 23.01.2025 Введение в КуМир: история создания и назначение КуМир (Комплект Учебных МИров) представляет собой образовательную среду программирования, которая была создана для обучения основам алгоритмизации и. . .	Что такое OLAP. Где и как использовать многомерный анализ данных bytestream 23.01.2025 Введение в OLAP-технологии В современном мире бизнес-аналитика и обработка больших массивов данных играют ключевую роль в принятии стратегических решений. Организации накапливают огромные объемы. . .	MongoDB: что это, для чего нужна и как использовать bytestream 23.01.2025 Введение в MongoDB: современная документоориентированная СУБД В современном мире разработки программного обеспечения выбор правильной системы управления базами данных является критически важным. . .	Как использовать закрытый ключ шифрования в Git. Шифрование в Git bytestream 23.01.2025 Установка и настройка закрытых ключей в Git предоставляет дополнительный уровень безопасности для работы с репозиториями. Для начала необходимо создать пару ключей, обычно это осуществляется с. . .	Как клонировать все ветки (branch) в Git bytestream 23.01.2025 Система контроля версий Git является ключевым инструментом, позволяющим командам разрабатывать проект в более организованной и упорядоченной форме. Одной из основных концепций Git являются ветки,. . .
Работа со временем в JavaScript. Как получить отметку времени bytestream 23.01.2025 В JavaScript объект Date представляет собой встроенный инструмент для работы с датами и временем, предоставляющий широкий спектр возможностей для манипуляций с временными данными. При создании нового. . .	Как отменить слияние (merge) в Git bytestream 23.01.2025 В процессе разработки программного обеспечения часто возникают ситуации, когда необходимо отменить слияние веток в системе контроля версий https:/ / www. cyberforum. ru/ git/ "]Git. Эта операция может. . .	Как узнать какой процесс блокирует файл или каталог в Windows bt_guru 23.01.2025 При работе с операционной системой Windows пользователи нередко сталкиваются с ситуацией, когда система отказывается выполнять определенные действия с файлами или каталогами, сообщая, что они. . .	Как в curl узнать код статуса HTTP запроса. Коды состояния HTTP bt_guru 23.01.2025 Коды состояния HTTP играют значимую роль в обеспечении эффективного взаимодействия между клиентами и серверами. При работе с веб-сервисами важно не только отправлять запросы, но и правильно. . .	Как сортировать вывод команды ls в Linux bt_guru 23.01.2025 В операционной системе Linux команда ls является одним из наиболее часто используемых инструментов для просмотра содержимого директорий. При работе с файловой системой пользователи регулярно. . .	Как сделать POST запрос с помощью curl bt_guru 23.01.2025 curl - это мощный инструмент командной строки позволяет отправлять и получать данные через различные протоколы, включая HTTP, HTTPS, FTP и множество других. Особенно полезным curl становится при. . .

Наверх