FoxWeb

софт для студентов
Искать здесь

Простейшие программы

Раздел: Turbo Pascal Автор: http://pascal.dax.ru/
E-mail: спаму - нет! Www: http://pascal.dax.ru/
Просмотров: 9555 Дата: 15.07.2005
Арифмитеские выражения. Простейшие программы. Задания для самостоятельного решения.

Арифмитеские выражения. Простейшие программы

  • Дана сторона квадрата. Найти его периметр.
  • Дан радиус окружности. Найти ее диаметр.
  • Дана длина ребра куба. Найти объем куба и площадь его боковой поверхности.
  • Дан радиус окружности. Найти длину окружности и площадь круга.
  • Даны два числа. Найти их среднее арифмитическое и среднее геометрическое.
  • Известны объем и масса тела. Определить плотность материала этого тела.
  • Составить программу для решения линейного уравнения ax+b=0 (a<>0).
  • Даны катеты прямоугольного треугольника. Найти его гипотенузу.
  • Найти площадь кольца по заданным внешнему и внутреннему радиусами.
  • Даны катеты прямоугольного треугольника. Найти его периметр.
  • Даны основания и высота равнобедренной трапеции. Найти ее периметр.
  • Даны два числа. Найти среднее арифмитическое и среднее геометрическое их модулей.
  • Даны два числа. Найти их произведение, сумму, разность, а также частное от деления первого числа на второе.

Целочисленная арифметика

  • Дано расстояние в сантиметрах. Найти число полных метров в нем.
  • Дана масса в килограммах. Найти число полных центнеров в ней.
  • Дана масса в килограммах. найти число полных тонн в ней.
  • Дано расстояние в метрах. Найти число полных километров в нем.
  • Дано трехзначное число. Найти число, полученное при прочтении его цифр справа налево.
  • Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.
  • Дано трехзначное число. Найти число, полученное при перестановке первой и второй цифр заданного числа.
  • Дано трехзначное число. Найти число, полученное при перестановке второй и третьей цифр заданного числа.
  • Дано целое число, большее 99. Найти третью от конца его цифру.
  • Дано натуральное число n (n>9). Найти число единиц в нем.
  • Дано натуральное число n (n>99). Найти число десятков в нем.
  • Дано натуральное число n (n>99). Найти число сотен в нем.
  • Дано натуральное число n (n>999). Найти число тысяч в нем.
  • Условный переход, Циклы Условный оператор. Оператор цикла с условием.
  • Даны два различных вещ. числа. Какое из них больше ?
  • Даны два различных вещ. числа. Какое из них меньше ?
  • Даны целое число. Является ли оно четным ?
  • Даны целое число. Оканчивается ли оно цифрой 7 ?
  • Даны целое число. Оканчивается ли оно четной цифрой ?
  • Дано 2-ое число. Какая из его цифр меньше, первая или вторая ?
  • Даны 2-ое число. Какая из его цифр больше, первая или вторая ?
  • Даны два действительных числа. Найти среднее арифметическое этих чисел, и среднее геометрическое их модулей.
  • Даны числа А, В, С. Удвоить эти числа если А>B>=C. И заменить их абсолютными значениями если это не так.
  • Даны два действительных числа заменить первое на 0 если оно меньше или равно второму и оставить числа без изменений в противном случае.
  • Даны x, y, x<>y. Меньшее из этих двух чисел заменить на (x+y)/2 а большее на 2*y.
  • Даны три числа возвести в квадрат те из них значения которых неотрицательны.
  • Даны х и у. Если х<0 и у<0 то каждое значение заменить модулем, если отрицательное только одно из них, то оба значения увеличить на 0,5, если оба не отрицательны и не одно из них не принадлежит интервалу (0,5; 2), то оба значения уменьшить в 10 раз. В остальных случаях х и у без изменений

Массивы

  • Задано натуральное число. Определить все его делители и осуществить проверку данных при вводе.
  • Даны действительные числа c[1],.., c[p], d[1],.., d[q] ( c[1]<=c[2]<=..<=c[p], d[1]<=d[2]<=..<=d[q] ). Внести единую упорядоченность в c[1],.., c[p], d[1],.., d[q], получив f[1], f[2],.., f[p+q] такие, что f[1]<=f[2]<=..<=f[p+q]. Число сравнений не должно превосходить p+q.
  • Расчитывает функцию в заданном диапазоне. Сохраняет в файл LA-BA.TAB значение 24 точек
  • Реализовать программу, которая для массива из N действительных чисел, вводимых с клавиатуры, определяет, является ли введенная последовательность арифметической или геометрической прогрессией, и в случае, если последовательность является прогрессией, то выводит ее показатель на экран.
  • Для последовательности целых чисел определите количество элементов самой длинной неубывающей подпоследовательности.
  • В массиве целых чисел найти число, сумма цифр которого была бы наибольшей. Если таких чисел несколько, вывести на экран все эти числа.
  • Написать программу, которая вводит с клавиатуры одномерный массив из 5 целых чисел и выводит количество ненулевых элементов.Перед вводом каждого элемента на экране должна появляться подсказка с его номером.
  • Написать программу, которая выводит минимальный элемент введенного с клавиатуры массива целых чисел.
  • Написать программу, которая вычисляет среднее арифмитическое ненулевых элементов введенного с клавиатуры массива целых чисел.
  • Написать программу, которая вычисляет среднюю (за неделю) температуру воздуха. Исходные данные должны вводиться с клавиатуры.
  • Написать программу, которая проверяет, находится ли в массиве введенное с клавиатуры число. Массив должен вводится во время работы программы.
  • Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива возрастающую последовательность.
  • Написать программу, которая проверяет, представляют ли элементы введенного с клавиатуры массива неубывающую последовательность.
  • Написать программу, которая проверяет, сколько раз введенное с клавиатуры число встречается в массиве.

Строки символов

  • Даны две фамилии. Определить, какая из них длиннее.
  • Даны две фамилии. Определить, какая из них короче.
  • Даны названия трех городов. Вывести на экран самое длинное и короткое название.
  • Дано слово. Вывести на экран его третий символ и дважды его последний символ.
  • Дано слово. Вывести на экран его k-элемент.
  • Дано слово. Получить его часть, образованную второй, третьей и четвертой буквами.
  • Дано слово. Правда ли, что она начинается и оканчивается на одну букву ?

Файлы

  • Число компонент файла f, компонентами которого являются целые числа, кратно 10. Переписать компоненты файла f в файл g, изменяя порядок чисел в каждой десятке так, чтобы в начале шли числа, делящиеся на 3, затем числа, дающие при делении на 3 остаток 1, затем числа, дающие при делении на 3 остаток 2. Порядок самих десяток должен быть сохранен.
  • Исходный текст содержит список целых десятичных чисел. Сгруппировать в выходном файле вначале числа, начинающиеся с цифры 1, затем с цифры 2, 3, 4 и т.д., причем относительная последовательность чисел в каждой группе должна быть такой же, как и в исходном тексте. Если какое-либо из исходных чисел содержит незначащие нули, то такие нули должны быть удалены. Если в исходном списке число 0, то это число должно быть первым в выходном файле.
  • Даны два файла упорядоченых, типа real. Слить в один третий файл упорядоченый. (Сортировка методом фон Неймана).
  • Расчитывает функцию в заданном диапазоне. Сохраняет в файл LA-BA.TAB значение 24 точек.

Комментарии

Gr4m 03.02.2008 17:58:01 #
первый нах!
G-U.N.I.T 12.02.2008 10:12:10 #
Второй бля!
SaHa 05.08.2008 09:25:15 #
Третий ёпть!

Оставить комментарий

Ваше имя

Ваш комментарий

Код   Защитный код. Если вы не видите здесь рисунок - обновите страницу.
Оценка   

Заметки по этой теме