Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Pascal ABC Алгоритм сортировки включения Помогите пожалуйста решить Теорию алгоритма Записать алгоритм сортировки в таблице чисел А методом включений.Определить сложность построенного алгоритма. Написать в ПаскалеАВС https://www.cyberforum.ru/ pascalabc/ thread1869646.html Вывести на экран имя самого высокого человека Pascal ABC
Составить программу, которая запросит 5 имён, 5 ростов и выведет на экран имя самого высокого
Pascal ABC Подсчитать количество чисел, принадлежащих промежутку [X,Y] и лежащих выше главной диагонали https://www.cyberforum.ru/ pascalabc/ thread1869545.html
Подсчитать количество чисел, принадлежащих промежутку и лежащих выше главной диагонали. Как вывести ответ из промежутка? Не дописал. Был бы рад помощи. Program avangard; const m = 4; {строки} n = 4; {столбцы} var matrix : array of integer; i, j, k, X, Y : integer; begin write('Введите границы интервала ');
Pascal ABC Найти корень уравнения Всем привет!) Дали нубу сегодня вот такую задачу. Поможете решить? Найти корень уравнения f(x)=ctg-x^2=0 в интервале x1=0,895_206_045 https://www.cyberforum.ru/ pascalabc/ thread1869510.html
Pascal ABC Расположить элементы массива в обратном порядке
Напишите программу преобразования порядка следования элементов массива В(10) на обратный (переписать элементы массива В(10) в обратном порядке).
Pascal ABC Образовать новый массив, упорядоченный по возрастанию, состоящий из элементов двух исходных массивов Добрый вечер! Помогите, пожалуйста Даны два массива элементы, которых упорядочены по возрастанию. Образовать новый массив, упорядоченный по возрастанию, состоящий из элементов двух исходных массивов. https://www.cyberforum.ru/ pascalabc/ thread1869452.html
Pascal ABC Определить номера тех студентов, которые провалили хотя бы один экзамен https://www.cyberforum.ru/ pascalabc/ thread1869417.html
Даны оценки, полученные на 5 экзаменах во время сессии студентами одной группы, по 10 бальной системе. Определить номера тех студентов, которые провалили хотя бы один экзамен. В паскале пожалуйста)
Найти количество различных элементов массива Pascal ABC
Добрый вечер! Помогите,пожалуйста Дан массив элементы, которого упорядочены по возрастанию. Найти количество различных элементов.
Pascal ABC Определить номера строк таблицы, начинающихся с одинаковых чисел, и подсчитать сумму элементов в этих строках https://www.cyberforum.ru/ pascalabc/ thread1869347.html
Дана прямоугольная таблица чисел А. Составить алгоритм, который определял бы номера строк таблицы, начинающихся с одинаковых чисел и подсчитывал бы сумму элементов в этих строках.
Pascal ABC Сплайн https://www.cyberforum.ru/ pascalabc/ thread1869325.html
Функция y=f(x) задана таблицей: xk|1.00|1.08|1.20|1.27|1.31|1.38 yk|1.17520|1.30254|1.50946|1.21730|1.22361|1.23470 Пользуясь интерполяционной схемой Эйткена, вычислить с точностью до 10-5 значение f(x*), где x*=1.175
Pascal ABC треугольник Серпинского
Помогите пожалуйста написвть программу построения треугольника Серпинского с подробным описанием каждого действия
Pascal ABC Напечатать все элементы массива, индексы которых являются числами Фибоначчи Напечатать все элементы массива s, индексы которых являются числами Фибоначчи (1, 2, 3, 5, 8, 13, …). https://www.cyberforum.ru/ pascalabc/ thread1869226.html
0 / 0 / 0
Регистрация: 01.12.2016
Сообщений: 1
0

Ввод числа прописью до 1000000 - Pascal ABC - Ответ 9859004

06.12.2016, 07:01. Показов 2022. Ответов 1
Метки (Все метки)

Студворк — интернет-сервис помощи студентам
Нашел тут программу с прописью чисел до 3000, как её дополнить до 1000000?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
uses Crt;
type nazw = array[0..9] of String[15];
const
ed : nazw = ('',' один',' два',' три',' четыре',' пять',' шесть',' семь',
              ' восемь',' девять');
des: nazw = ('',' десять',' двадцать',' тридцать',' сорок',' пятьдесят',
             ' шестьдесят',' семьдесят',' восемьдесят ',' девяносто');
sot: nazw = ('',' сто',' двести',' триста',' четыреста',' пятьсот',' шестьсот',
             ' семьсот',' восемьсот',' девятьсот');
dd : nazw = ('',' одинадцать',' двенадцать',' тринадцать',' четырнадцать',
             ' пятнадцать',' шестнадцать',' семнадцать',' восемьнадцать',
             ' девятнадцать');
tys: array[1..3] of string[15]=('одна тысяча','две тысячи','три тысячи');
var t,s,d,e,x : Integer;
    st      : String;
Begin
repeat
Write('Введите число [0..3000] :');
Readln(x);
until (x>=0)and(x<=3000);
if x=0 then
 begin
  writeln('ноль');
  exit
 end;
st:='';
t:=x div 1000;
if t>0 then st:=st+tys[t];
s:=x div 100 mod 10;
st:=st+sot[s];
x:=x mod 100;
d:=x div 10;
e:=x mod 10;
if (d=1) and (e<>0) then st:=st+dd[e]
else st:=st+des[d]+ed[e];
writeln(st);
End.


Вернуться к обсуждению:
Ввод числа прописью до 1000000 Pascal ABC
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2016, 07:01
Готовые ответы и решения:

Программа пишет прописью числа, помогите доделать ввод числа с клавиатуры
Программа пишет прописью числа, помогите доделать ввод числа с клавиатуры. using System; using...

Вывести простые числа от 1 до 1000000 с помощью решета Эратосфена
Вывести список простых чисел от 1 ого до млн.(1000000) с помощью решета иратосфена. Помогите...

Выписаны все натуральные числа от 1 до 1000000. Сколько раз выписана цифра 1
Выписаны все натуральные числа от 1 до 1000000. Сколько раз выписана цифра 1.

В возростающем порядке напечатать все целые числа из диапазона от 1 до 1000000 которые отображаються в виде k=n^2+m^2,m>0,n>0
В возростающем порядке напечатать все целые числа из диапазона от 1 до 1000000 которые...

1
06.12.2016, 07:01
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.12.2016, 07:01
Помогаю со студенческими работами здесь

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

Числа прописью
В программе Ексел создать такую формулу невозможно, т.к там идет арифметический посчет. Мне нужно...

Числа прописью
Добрый день! Как можно сделать в аксесс при вормировании запроса число прописью? (да и вообще как...

Числа прописью
Всем привет. Помогите пожалуйста с программой. Задача - Ввести число от 0 до 999. Вывести его...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru