Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Массив Доброго времени суток, помогите с задачами плиз. Желательно с пояснением 1. Известна численность каждого из 40 классов. Верно ли, что в самом многочиленном классе учится на 10 учеников больше, чем в самом мало численом? (одномерный массив) 2. В двумерном массиве хранится информ о кол-ве учеников в том или инном классе каждой паралели школы с первой по одиннадцатую ( в первой строке -... https://www.cyberforum.ru/ pascal/ thread195716.html	В массиве из 10 целых чисел найти наименьший элемент и поменять его местами с последним элементом. Pascal В массиве из 10 целых чисел найти наименьший элемент и поменять его местами с последним элементом.Код программы и блок схему.Спасибо большое заранее!!!!
Pascal Обнулить элементы https://www.cyberforum.ru/ pascal/ thread195709.html Обнулить элементы главной и побочной диагоналей матрицы D	Pascal Двумерные массивы Выручите плиз.Помогите написать программу на паскале 1) Дана целочисленная прямоугольная матрица.Определить номер первого из столбцов, содержащих хотя бы один нулевой элемент(оформить в виде функции). 2)Характеристикой строки целочисленной матрицы назовем сумму ее отрицательных четных элементов.Переставляя строки заданной матрицы,расположить их в соответствии с убывание характеристик(оформить... https://www.cyberforum.ru/ pascal/ thread195700.html
Найти сумму элементов каждой строки матрицы Pascal Дан двумерный массив . Найти: а) сумму элементов каждой строки б) сумму элементов каждого столбца	Pascal массив Дан вещественный массив из 5 строк и 3 столбцов. Строку, содержащую наименьший элемент, поменять местами с последней строкой.. https://www.cyberforum.ru/ pascal/ thread195686.html
Pascal простые числа https://www.cyberforum.ru/ pascal/ thread195669.html подсчитать количество чисел в матрице B (размерность которой 5) целая часть которых является простым числом	Pascal пользовательские процедуры и функции 1. Составить функцию, вычисляющую в целом N нет одинаковых цифр. (при помощи логической функции Boolean, которая выводила бы значение fale, true). 2. Составить процедуру для вычисления количества точек внутри окружности с заданным центром с целоисленными координатами. 3. В массивах X и Y находятся координат точек на плоскости. Определить наименьшую длину отрезка 2-х точек. 4. В квадратной...
Pascal Верно ли, что вес самого тяжелого человека группы превышает массу самого легкого более чем в 2 раза https://www.cyberforum.ru/ pascal/ thread195663.html известен вес каждого человека из группы . верно ли , что вес самого тяжелого из них превышает массу самого легкого более чем в 2 раза ?	Pascal про матрицу. 1) дана матрица MxN. Перед первым стобцом, содержащий только положительные элементы, вставить стоблец из единиц. Если требуемых столбцов нет, то вывести матрицу без изменений. 2) Дана матрица MxN. Удалить из нее все строки с четной суммой элементов. https://www.cyberforum.ru/ pascal/ thread195652.html
Массив Pascal Здравствуйте! Помогите пожалуйста сделать задачу. Заранее благодарен. Известен рост каждого ученика класса.Рост мальчиков условно задан отрицательными числами. Верно ли, что рост мальчиков превышает средний рост девочек более чем на 10 см	Pascal Найти количество неравных нулю элементов в 1, 3, и 5-м столбцах матрицы Составить блок-схему алгоритма и текст программы для решения следующих задач. 1. Дан одномерный массив M, состоящий из 10 целых чисел: (10, 12, 0, 15, -5, 4, -15, 3, 0, 11) - Найти сумму элементов значение которых больше 2; - Найти кол-во отрицательных элементов массива; - Найти среднее значение положительных элементов; - Найти среднее значение четных элементов; - Найти сумму и кол-во... https://www.cyberforum.ru/ pascal/ thread195640.html

soonshoo

238 / 5 / 9

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

Сообщений: 56

23.11.2010, 14:32

перевода из римских в обычные - Pascal - Ответ 1134751

23.11.2010, 14:32. Показов 744. Ответов 1

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

Ответ

Вот так можно, должно работать:

Pascal

program rimskii;
 const
   b=['X','V','I','D','M','C','L'];
 var
  a:string;
 
procedure vvod;
var i,j:integer;
 begin
  repeat
   j:=0;
   Writeln ('Vvedite stroky');
   Readln(a);
   for i:=1 to length(a) do
   begin
    if a[i] in b then
    inc(j);
   end;
  until (a<>'')and (j=length(a)) ;
end;
 
 
procedure resh;
var
    s:array[1..255] of integer;
    i,p:integer;
 
 Begin
   for i:=1 to length(a) do
    case Upcase(a[i]) of
     'I':s[i]:=1;
     'V':s[i]:=5;
     'X':s[i]:=10;
     'L':s[i]:=50;
     'C':s[i]:=100;
     'D':s[i]:=500;
     'M':s[i]:=1000;
    end;
  p:=s[1];
  for i:=2 to length(a) do
   begin
    p:=p+s[i];
    if s[i-1]<s[i] then p:=p-2*s[i-1];
   end;
 writeln(p);
 readln;
 end;
 
 begin
  clrscr;
  vvod;
  resh;
 end.

Вернуться к обсуждению:
перевода из римских в обычные Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

Сообщений: 116,782

23.11.2010, 14:32

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

Программа для перевода римских цифр С++
Написать программу для перевода римских цифр в арабские. тесты и результаты 1) CMXLVIII - 948 2)...

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

Разработать прогу для перевода римских цифр
Записать исходные данные и результаты в текстовый файл. (L-50, C-100, D-500, M-1000)

Разность римских чисел без перевода в десятичную систему
Добрый день! Мне в университете задали РГЗ на разность двух римских чисел. Казалось бы, это сделать...

	23.11.2010, 14:32

IT_Exp

Эксперт

87844 / 49110 / 22898

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

Сообщений: 92,604

23.11.2010, 14:32

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

Составить подпрограмму перевода римских цифр в десятичную систему счисления
Составить подпрограмму преобраз-я натур-х чисел,записанных в римской нумерации в десятичную систему...

написать программу для перевода из инвесрных чисел в обычные
написать программу для перевода из инвесрных чисел в обычные

Написать программу удаления из текстового файла символов перевода строки ‘\n’ и перевода каретки ‘\r’
Здравствуйте,помогите написать программу на подобии этой,только не подсчета,а удаления.Заранее...

написание римских цифр
народ, помогите написать прогу - "Определить написание заданной десятичной цифры римскими цифрами"...

Наверх