Определить ранг хищений. - Pascal

  1. Написать программу на языке паскаль: запрашивает у пользователя размер хищений (р.), определяет и выводит на экран масштаб в соответствии с принятой классификацией (например, если размер хищений меньше 1000 р. – «мелкий», от 1000 до 10 000 – «крупный», свыше 100 000 – «особо крупный»);

textual

Код:

  if x<1000 then WriteLn('мелкий')
  else if x<=10000 then WriteLn('крупный')
  else if x>100000 then WriteLn('особо крупный');

Похожие ответы
  1. Добрый день.Скажите ,пожалуйста, как заполнить 2у мерный массив (матрица 4х4) рандомно буквами A,B,C,D?Спасибо.

  1. Среди всех двузначных чисел вывести на экран те, которые делятся на 11 без остатка. Нужны: цикл с параметром, цикл с предусловием, цикл с постусловием.

  1. Помогите пожалуйста решить задачку в Паскале. Напишите плиз прогу. Буду очень благодарен! Дана целочисленная прямоугольная матрица. Определить: 1. Сумму элементов в тех строках, которые содержат хотя бы один отрицательный элемент. 2. Номера строк и столбцов всех седловых точек матрицы. Матрица А имеет седловую точку Аij, если Аij является минимальным элементом в i-ой строке и максимальным в j-ом столбце.

  1. Лаб 6. Вид функции x(в степени 1/3)умноженное на (1-x)в степени 2/3.Вид экстремума .Грубое значение экстремума Максимум 0,3333 .Диапозон изменения аргумента [0.1;0.6].Шага h=0.1.Точность экстремума .10 в минус 5 степени. Лаб 4.Подинтегральная функция f(x)Cosx.Метод численного решения трапеций.Число отрезков n=60. Интервал интегрирования [0;pi/2].Требуемая точность E=10 минус в 4 степени. Лабороторная 3. Найти меньший угол треугольника с данными углами если один из углов a=60 градусов. Лаб3.2 В массиве из 25 вещественных чисел найти наименьший элемент и поменять его местами с 1-ым.

  1. Ребят! Помогите пожалуйста. В Паскале я пока что чайник, поэтому до меня просто не доходит, как можно решить данную задачу: Нужно вывести на экран с помощью оператора цикла с параметром for символы английского алфавита от a до z и номера этих символов Заранее благодарю)))

  1. Помогите мне пл сделать расчетку и 9лаб! Расчетка 1. 1.26 1.7 [-7;7] 2.10 3.10 [-13;3] 4.4 1.26. Заданы два вещественных массива и . Сформировать массив , в который включить из массива элементы, превышающие среднее арифметическое значение массива , а из массива - элементы, превышающие среднее арифметическое значение массива . 1.7. В начале массива X расположить в исходном относительном порядке все положительные, затем - все нулевые, а потом - все отрицательные элементы массива. 2.10. Нулевые элементы каждого столбца прямоугольной матрицы переместить в начало этого же столбца, сохранив без изменения последовательность расположения остальных его элемен-тов. 3.10. Создать процеду¬ру, которая заменяет нулевые диагональные элементы единицами. Вы¬вести на экран исходные и результирующие матрицы. 4.4. Для записи слов используются только большие буквы латинского алфавита. Преобразовать строку, заменив каждую букву ее двухзначным номером в алфавите. Для пробела использовать значение '00'. Например, для строки 'HTREK ESAB UYTR' получим '0820180511000005190102000021252018' .

  1. Дан двумерный массив случайных чисел от -5 до 14 из 5-ти строк и 5-ти столбцов. Вывести на экран первоначальные значения элементов массива в виде матрицы. Поменять местами первый и четвертый столбец. Вывести на экран новые значения элементов массива в виде матрицы.

  1. найдите сумму 100 синусов от аргумента в диапазоне от 0 до 2*pi.

  1. собсно задание: Дан файл, компоненты которого являются целыми числами, не равными нулю. Преобразовать файл таким образом, чтобы соседние компоненты имели разные знаки. Если количество положительных и отрицательных чисел разные, то оставшиеся числа одного знака удалить из файла. ну для начала я написал подобную программу для массива:


Нашли ошибку?
Развитие проекта
Яндекс.Метрика