Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/25: Рейтинг темы: голосов - 25, средняя оценка - 4.96
2 / 2 / 0
Регистрация: 07.10.2012
Сообщений: 89
1

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

07.10.2012, 20:53. Показов 4807. Ответов 10
Метки нет (Все метки)

создать программу, которая выводила бы первую, вторую и четвертую цифры пятизначного числа
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
07.10.2012, 20:53
Ответы с готовыми решениями:

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

Написать функцию, которая в каждом значении массива меняет первую и вторую цифры местами
Здравствуйте! Помогите пожалуйста решить. Дан одномерный массив размера N, заполненный...

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

Напишите функции, вычисляющие первую и вторую цифры заданного двузначного числа
Напишите функции, вычисляющие первую и вторую цифры заданного двузначного числа. Создайте форму с...

__________________
10
Эксперт Pascal/Delphi
4668 / 2655 / 832
Регистрация: 04.10.2012
Сообщений: 9,674
08.10.2012, 00:13 2
Применяя операции целочисленного деления и деления с остатком, выделяем отдельно каждую цифру числа. Затем выводим цифры согласно условию задачи.
Вот

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
var
n, a, b, c, d, e:integer;
begin
Write('Введите 5-значное число');
Readln(n);
a:=n div 10000; // 1-я цифра
b:=(n mod 10000) div 1000; // 2-я цифра
c:=(n mod 1000) div 100; // 3-я цифра
d:=(n mod 100) div 10; // 4-я цифра
e:=n mod 10;//5-я цифра
Writeln('Первая цифра - ', a);
Writeln('Вторая цифра - ', b);
Writeln('Четвертая цифра - ',d);
readln;
end;
Добавлено через 2 часа 41 минуту
после end должна быть точка, а не ;
0
1 / 1 / 0
Регистрация: 18.07.2013
Сообщений: 19
21.07.2013, 21:57 3
Ну вы просто... капец, ребят, все проще некуда:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses crt;
var i:integer;
s,s1:string;
label 1;
writeln('Введите пятизначное число:');
readln(i);  //Просим ввести число
clrscr;  //стираем весь экран, чтобы сеова написать, для этого нам нужен был модуль crt
1: if (i<10000) or (i>99999) then begin //если знаков не 5, пишем неправильно и переходим на метку 1 (сюда же)
writeln('Число не пятизначное, введите заново:');
readln(i);  //опять просим ввести число
goto 1;  //идем проверять
end
else begin //если все же знаков 5:
val(s,i,0);  //переводим тип integer в string
s1:=s[1];  //переменную вывода присваиваем первому знаку переведенной i, см. выше
s1:=s1+s[2];  //добавляем сюда же второй символ
s1:=s1+s[4]; //и четвертый
writeln('1,2,4 символы: ',s); //выводим переменную
end;
end.
Вот и все, не усложняйте жизнь... ;-)
0
Эксперт Pascal/Delphi
4668 / 2655 / 832
Регистрация: 04.10.2012
Сообщений: 9,674
22.07.2013, 00:03 4

Не по теме:

forum-newb, сначала прочитайте дату поста


По-вашему этот вариант для ТС был бы проще?
0
1 / 1 / 0
Регистрация: 18.07.2013
Сообщений: 19
22.07.2013, 10:49 5
Мой старый код содержал ошибку, простите,
я пытался сделать проверку числа, но если вы хотите ваш случай, то вот проще:
Pascal
1
2
3
4
5
6
var s:string;
begin
writeln('Введите пятизначное число:');
readln(s);
writeln('Ваши цифры: ',s[1],s[2],s[4]);
end.
Вот и все...
0
Модератор
1623 / 1078 / 485
Регистрация: 17.07.2012
Сообщений: 5,308
22.07.2013, 14:19 6
forum-newb, да,но очевидно суть задания уметь пользоваться div/mod,а не строками.
0
1 / 1 / 0
Регистрация: 18.07.2013
Сообщений: 19
22.07.2013, 21:49 7
Тогда в следующий раз пусть пишут про div и mod, вообще то проще выделять символы из строки... то что div-целое частное а mod-остаток - знают не все, а вот про [i] все проще, да и понять ,и запомнить - легче...
0
Модератор
1623 / 1078 / 485
Регистрация: 17.07.2012
Сообщений: 5,308
22.07.2013, 22:40 8
Но ведь это и так ясно.
0
Эксперт Pascal/Delphi
4668 / 2655 / 832
Регистрация: 04.10.2012
Сообщений: 9,674
22.07.2013, 22:56 9
Цитата Сообщение от Amely312 Посмотреть сообщение
цифры пятизначного числа
forum-newb, с числами все же лучше оперировать как с числами, а не как со строками.
У каждого свой вариант удобный для него. Спорить не буду.
0
Модератор
1623 / 1078 / 485
Регистрация: 17.07.2012
Сообщений: 5,308
22.07.2013, 23:01 10
Цитата Сообщение от droider Посмотреть сообщение
forum-newb, с числами все же лучше оперировать как с числами, а не как со строками.
Если с длинными то без строк не обойтись.Но как правило такие задания дают на операторы div/mod.
0
1 / 1 / 0
Регистрация: 18.07.2013
Сообщений: 19
22.07.2013, 23:35 11
Ок, ок, спорить ни с кем не буду, каждому удобно по своему, в принципе коды есть и тему моожно закрывать...
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.07.2013, 23:35

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

Получить вторую последовательность, переставив в элементах исходной первую и вторую цифры
При помощи датчика случайных чисел вводится последовательность {ai}, состоящая из N (случайное...

Написать программу, которая определяет произведение второй и четвертой цифр пятизначного числа А;
вот еще несколько задач. если вам несложно,то напишите пожалуйста программы 1)Написать программу,...

Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и четвертую, пятую и шестую,., буквы
Дано слово, состоящее из четного количества букв. Поменять местами первую и вторую, третью и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
11
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.