Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 03.07.2008, 21:41   #11
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

ух ты! тока я не понимаю вот это: 10*i1+i2 - зачем нам надо умножать на 10??


и ещё один вопрос а как сделать что бы выводилась сумма положительных нечётных чисел , меньших 100??
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 21:58   #12
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

двухзначное число состоит из десятков и единиц, например 21=2*10+1

Код:
uses crt;
var n,i,sum:integer;
    a:array[1..100]of integer;//массив
begin
clrscr;
write('Razmernost massiva n=');
readln(n);
randomize;//генератор случайных чисел
sum:=0;  //сумма=0
for i:=1 to n do
   begin
    a[i]:=random(200)-50;//случайные числа из инт. [-50,149]
    write(a[i],' ');
    if (a[i]>0)and(a[i] mod 2<>0)and(a[i]<100)//выполняем три условия
    then sum:=sum+a[i];//считаем сумму
   end;
writeln;
writeln('Summa=',sum);
readln
end.

Последний раз редактировалось puporev; 03.07.2008 в 22:08.
puporev вне форума
Старый 03.07.2008, 22:06   #13
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

а как сделать что бы выводилась сумма положительных нечётных чисел , меньших 100??
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 22:10   #14
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Уже написал, ты сильно торопишься, я так быстро, как ты, программы писать не умею.
puporev вне форума
Старый 03.07.2008, 22:15   #15
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Пожалуй на сегодня хватит, у меня первый час ночи и я устал, пойду отдыхать. Глаза устали от компа.
puporev вне форума
Старый 03.07.2008, 22:20   #16
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

слушай реши ещё одну... пожалуйста..

10 Ввести строку. Отсортировать буквы в строке в порядке возрастания.
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 22:22   #17
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Какие буквы, русские, латинские, строчные, прописные?
puporev вне форума
Старый 03.07.2008, 22:26   #18
sting
Форумчанин
 
Аватар для sting
 
Регистрация: 03.07.2008
Сообщений: 114
По умолчанию

не сказано! сделай как проще!
а ты в каком городе живёшь?
Люди гибнут за МЕТАЛ!!!
sting вне форума
Старый 03.07.2008, 22:31   #19
zetrix
Delphi/C++/C#
Участник клуба
 
Аватар для zetrix
 
Регистрация: 29.10.2006
Сообщений: 1,972
По умолчанию

у меня тож первый час. имейте совесть, у нас не круглосуточная скорая программерская помощь!))

Цитата:
Отсортировать буквы в строке в порядке возрастания.
не сказано как, значит по наименьшему сопротивлению - по аски коду.
Получение буквы из строки s: S[i] (i - счётчик). Получение кода аски из буквы: ord(S[i]) ну и всё. Остальное - сортировка массива (строка - это массив символов).
zetrix вне форума
Старый 03.07.2008, 22:32   #20
puporev
Старожил
 
Регистрация: 13.10.2007
Сообщений: 2,740
По умолчанию

Живу я в Пермском крае, г. Красновишерск.
Вот сделал для букв хоть русского, хоть латинского алфавита, но только или маленькие, или только большие.
Код:
uses crt;
var s:string;
    i,j:integer;
    x:char; //буфер типа символ при обмене(сортировке)
begin
clrscr;
write('s: ');readln(s); //строка
for i:=1 to length(s)-1 do
for j:=1 to length(s)-1 do
if s[j]>s[j+1] then   //сортировка по возрастанию(алфавиту) методом "пузырька"
  begin
    x:=s[j];
    s[j]:=s[j+1];
    s[j+1]:=x;
  end;
writeln;
write(s);
readln
end.
puporev вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите, пожалуйста с задачками по Паскалю Космонавт Помощь студентам 20 13.06.2008 00:14
помогите с задачками SYL@R Помощь студентам 9 09.06.2008 18:49
Помогите с задачками OlgaMiller Общие вопросы C/C++ 25 25.10.2007 21:05
Помогите пожалуйста с 2-мя задачками Shatyn Помощь студентам 1 13.06.2007 15:42
Выручте пожалуйста с тремя задачками ByteMan Помощь студентам 8 07.06.2007 23:39