Вопрос № 120889: Здраствуйте експерты,у меня детский вопрос :) который неможет ждать :)
Вообщем есть программка сортирующая масив,но вот задачка я ввобщу даные в масив целми нормальными числами(1,3,5,...) а когда масив отсортируеться получаю ккакието 000000000Ex ...Вопрос № 120914: УВАЖАЕМЫЕ ЭКСПЕРТЫ!!!!!!!!!!!!!
пожалуста помогите решить в PASCAL задачку, она несложная, но сделать надо уже завтра((((
Используя процедуру ЗАМЕНА ну типа
{procedure zamena (a,b:integer);
var t:integer;
t:=a;
a:=b<...Вопрос № 120925: Нужен код, определяющий, является число "перевёртышем" или нет. "Перевёртыш" - это если все цифры переставить в обратном порядке, то получится то же самое число.
З.Ы. У меня Borland Paskal....
Вопрос № 120.889
Здраствуйте експерты,у меня детский вопрос :) который неможет ждать :)
Вообщем есть программка сортирующая масив,но вот задачка я ввобщу даные в масив целми нормальными числами(1,3,5,...) а когда масив отсортируеться получаю ккакието 000000000Ex + 0000 ,как такое исправить?...
Приложение:
Отправлен: 30.01.2008, 18:15
Вопрос задал: Melixion (статус: 1-ый класс)
Всего ответов: 3 Мини-форум вопроса >>> (сообщений: 1)
Отвечает: Зенченко Константин Николаевич
Здравствуйте, Melixion!
Есть два варианта:
1)обьявить массив целых чисел:
var a:array [1..n] of integer;
2)выводить с указанием формата вывода
writeln(a[i]:6:0);
Удачи!
--------- И только наступив на грабли мы приобретаем драгоценный опыт!
Ответ отправил: Зенченко Константин Николаевич (статус: Профессионал) Украина, Киев Тел.: +380958380164 Адрес: Украина г.Киев ---- Ответ отправлен: 30.01.2008, 18:30 Оценка за ответ: 5 Комментарий оценки: Супер! Второй вариант подошел.Если можно прокоментируйте,почему так выходит? что эти магические числа делают ?:)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Melixion!
В программе Вы используете массив вещественных чисел, поэтому и выводятся числа в таком виде.
Предлагаю следующие варианты решения:
1. использовать массив целых чисел
2. использовать модуль strings.pas из приложения. В нем находятся функции преобразования строки в число (целое/вещественное) и числа (целого/вещественного) в строку.
Отвечает: sergesus
Здравствуйте, Melixion!
program E17;
{$APPTYPE CONSOLE}
const n=7;
var a:array [1..n] of double;
i,j:integer;
c:double;
begin
for i:=1 to n do
begin
write ('a[',i,']=');
readln(a[i])
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i] > a[j] then
begin
c:=a[i];
a[i]:=a[j];
a[j]:=c
end;
writeln ('uporadkovanuy za zrostannyam masiv ');
for i:=1 to n do
writeln(a[i]:4:3);
readln;
end.
Приложение:
Ответ отправил: sergesus (статус: 2-ой класс)
Ответ отправлен: 30.01.2008, 20:36
Вопрос № 120.914
УВАЖАЕМЫЕ ЭКСПЕРТЫ!!!!!!!!!!!!!
пожалуста помогите решить в PASCAL задачку, она несложная, но сделать надо уже завтра((((
Используя процедуру ЗАМЕНА ну типа
{procedure zamena (a,b:integer);
var t:integer;
t:=a;
a:=b
b:=t; }
поменять местами 4 числа, введенных пользователем и расположить и х в порядке возрастания
ПОЖААЛУСТААААААА!!!!!!!!!!!
Отправлен: 30.01.2008, 20:21
Вопрос задал: ksana09 (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, ksana09!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 30.01.2008, 20:30 Оценка за ответ: 5 Комментарий оценки: Николай Владимирович!
Спасибо Вам огромное, за помощь)))))
Вопрос № 120.925
Нужен код, определяющий, является число "перевёртышем" или нет. "Перевёртыш" - это если все цифры переставить в обратном порядке, то получится то же самое число.
З.Ы. У меня Borland Paskal.
Отвечает: Николай Владимирович / Н.В.
Здравствуйте, Екатерина Ходеева!
Программа в приложении.
Удачи!
Приложение:
Ответ отправил: Николай Владимирович / Н.В. (статус: Специалист)
Ответ отправлен: 30.01.2008, 21:43 Оценка за ответ: 5 Комментарий оценки: Спасибо за рабочий и оперативный ответ! Не знаю, что бы я без вас делала!