Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Помогите решить задачу. Массивы.
Помогите пожалуйста, очень нужно. Дано число n, вывести на экран обратное ему число, например дано число 987, вывести нужно 789, реальзовать эту задачу с помощью массива. Я никак не пойму как это сделать, я решила эту задачу так:
program task_5;
uses crt;
var i,j:integer; n:longint; k,m:string;
BEGIN clrscr;
write ('n=');
readln(n);
str(n,k);
str(n,m);
j:=length(k);
for i:=1 to j do begin
m[i]:=k[j];
j:=j-q;
end; writeln ('massiv: ', m);
readln END.
Только это нужно реализовать через массив. ПОЖАЛУЙСТА, НИПИШИТЕ ТЕКСТ ПРОГРАММЫ.


Миром правят числа и их соотношения...
1 | Автор: Aeternitas | 2008-12-11, 20:36   |  Репутация: [ + 0 ]
Что значит через массив - число то одно. Поясните для чего массив. Вообще-то это делают так: формируют новую строку - пустую (присваивают s:=''). Число преобразуют в строку, а потом цикл убывающий от последнего к первому и поэлементно добавляют к s, то что считывается. Полученную строку опять в число преобразуют.
2 | Автор: admin | 2008-12-11, 21:14   |  Репутация: [ + 22 ]
2 | Автор: admin | 2008-12-11, 21:14   |  Репутация: [ + 22 ]
помогите решить задачу по прогромированию найти периметр равнобедренного треугольника если известна его боковая сторона и высота опущенная к основанию
3 | Автор: stail | 2008-12-12, 10:51   --------->
Тебе нужна только одна формула для вычисления периметра. Пусть боковая сторона равна "а", а высота равна "h". Тогда третья сторона (основание) может быть вычислена по теореме пифагора
Вот твоя Програмка на Паскале.
==========================================
var A,H,P:real;
begin
write('A= ');read(A);
write('H= ');read(H);
P:=2*A+2*sqrt(A*A-H*H);
writeln('P=',P);
end.
4 | Автор: admin | 2008-12-12, 14:50   |  Репутация: [ + 22 ]
ludi pomogite reshit6 zadachu ochen6 nado
Даны натуральное число n, символы s1,....,sn.Определить число вхождений в последовательность s1,...,sn группы букв:
aba wink [color=yellow]
5 | Автор: rocket | 2009-01-02, 17:16   --------->
5 | Автор: rocket | 2009-01-02, 17:16   --------->
  • Страница 1 из 1
  • 1
Поиск: