Модераторы: Poseidon

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> [Pascal] Замена break, 2 вопроса, не задачи, теория 
:(
    Опции темы
N2N
  Дата 2.7.2007, 08:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
1. Чем можно заменить word ? (Integer???)

2. Чем можно заменить break ?


Это сообщение отредактировал(а) Rodman - 2.7.2007, 12:44
PM MAIL   Вверх
Rodman
Дата 2.7.2007, 09:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Цитата(N2N @  2.7.2007,  07:43 Найти цитируемый пост)
1. Чем можно заменить word ? (Integer???)

можно и так... смотря для каких целей!!!
Цитата(N2N @  2.7.2007,  07:43 Найти цитируемый пост)
2. Чем можно заменить break ? 

тоже самое не совсем понятно для чего...
break - выход из цикла
может подойдет
exit - но эта команда выкидывает из процедуры!
halt - из проги!

Это сообщение отредактировал(а) Rodman - 2.7.2007, 15:31


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
Дата 2.7.2007, 09:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
2. Мне нужно этот кусок кода:

Код

If j > T then break;


переделать так, чтобы не использовались ни break ни exit.
Может дополнительную переменную завести или что-то в этом роде?
PM MAIL   Вверх
Rodman
Дата 2.7.2007, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
что вооще ты хочешь добиться???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
  Дата 2.7.2007, 15:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Программа должна быть упрошена, не использовать break , exit
PM MAIL   Вверх
Rodman
Дата 2.7.2007, 16:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Цитата(N2N @  2.7.2007,  14:45 Найти цитируемый пост)
Программа должна быть упрошена, не использовать break , exit 

тонкое замечание!!!

но какая программа???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
  Дата 2.7.2007, 17:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Код

var
M: integer;
arr : array [1..10000] of integer;
i,j,k : integer;
item : integer;
begin
read(M);
for i := 1 to M do
read(arr[i]);
for i := 1 to M - 1 do begin
if i > (M - 1) then break;
item := arr[i];
for j := i + 1 to M do begin
if j > M then break;
if item = arr[j] then begin
for k := j to M - 1 do
arr[k] := arr[k + 1];
M := M - 1;
end;
end;
end;
write(M);
end.
PM MAIL   Вверх
likehood
Дата 2.7.2007, 17:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


666
**


Профиль
Группа: Участник
Сообщений: 536
Регистрация: 21.12.2005

Репутация: 12
Всего: 24
Код

var
M: integer;
arr : array [1..10000] of integer;
i,j,k : integer;
item : integer;
begin
    read(M);
    for i := 1 to M do
    read(arr[i]);
    i:=1;
    //for i := 1 to M - 1 do begin
    while i <= M-1 do begin
        //if i > (M - 1) then break;
        item := arr[i];
        j:=i+1;
        //for j := i + 1 to M do begin
        while j <= M do begin
            //if j > M then break;
            if item = arr[j] then begin
                for k := j to M - 1 do
                    arr[k] := arr[k + 1];
                M := M - 1;
            end;
            j:=j+1;
        end;
        i:=i+1;
    end;
write(M);
end.
PM MAIL   Вверх
N2N
  Дата 2.7.2007, 21:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Цитата(likehood @ 2.7.2007,  17:47)
Код

var
M: integer;
arr : array [1..10000] of integer;
i,j,k : integer;
item : integer;
begin
    read(M);
    for i := 1 to M do
    read(arr[i]);
    i:=1;
    //for i := 1 to M - 1 do begin
    while i <= M-1 do begin
        //if i > (M - 1) then break;
        item := arr[i];
        j:=i+1;
        //for j := i + 1 to M do begin
        while j <= M do begin
            //if j > M then break;
            if item = arr[j] then begin
                for k := j to M - 1 do
                    arr[k] := arr[k + 1];
                M := M - 1;
            end;
            j:=j+1;
        end;
        i:=i+1;
    end;
write(M);
end.

Строчки выделенные синим курсивом нужно вырезать?
PM MAIL   Вверх
Rodman
Дата 3.7.2007, 08:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Цитата(N2N @  2.7.2007,  20:10 Найти цитируемый пост)
Строчки выделенные синим курсивом нужно вырезать? 

да...это коментарии!!!


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
  Дата 3.7.2007, 09:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Цитата(Rodman @ 3.7.2007,  08:15)
Цитата(N2N @  2.7.2007,  20:10 Найти цитируемый пост)
Строчки выделенные синим курсивом нужно вырезать? 

да...это коментарии!!!

Спасибо за пояснения

Добавлено @ 09:37
Спасибо огромное за помощь.

А здесь как избавиться от BREAK?

Код

Var
a,b,q,j,k: Integer;
Begin
readln(a,b);
for q := a to b do
Begin
k :=0
for j := 2 to sqrt(q) do
Begin
If q Mod j = 0 then
Begin
k := 1;
break;
End;
End;
If k = 0 then
write(q, ', ');
End;
End.


Это сообщение отредактировал(а) N2N - 3.7.2007, 11:22
PM MAIL   Вверх
Rodman
Дата 3.7.2007, 10:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
ты вооще пробовал компилить???


что такое i???


--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
  Дата 3.7.2007, 11:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Цитата(Rodman @ 3.7.2007,  10:41)
ты вооще пробовал компилить???


что такое i???

Это не i , это q. Я ошибся когда перепечатывал.
Да, компилил - работает, нужно только break заменить.
ПОмогите пожалуйста
PM MAIL   Вверх
Rodman
Дата 3.7.2007, 11:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


CIO
****


Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 26
Всего: 122
Код

Var
a,b,q,j,k: Integer;
Begin
readln(a,b);
for q := a to b do
Begin
k :=0;
j := 2;
while ((j<=sqrt(q))and(q Mod j <> 0))do
  k := 1;
If k = 0 then
  write(q, ', ');
End;
End.



--------------------

Лотереи мира
PM MAIL WWW Skype GTalk YIM MSN   Вверх
N2N
Дата 22.8.2007, 18:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.5.2007

Репутация: -1
Всего: нет
Цитата(Rodman @ 3.7.2007,  11:42)
Код

Var
a,b,q,j,k: Integer;
Begin
readln(a,b);
for q := a to b do
Begin
k :=0;
j := 2;
while ((j<=sqrt(q))and(q Mod j <> 0))do
  k := 1;
If k = 0 then
  write(q, ', ');
End;
End.

ошибка type mismatch

Это сообщение отредактировал(а) N2N - 22.8.2007, 18:46
PM MAIL   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Центр помощи"

ВНИМАНИЕ! Прежде чем создавать темы, или писать сообщения в данный раздел, ознакомьтесь, пожалуйста, с Правилами форума и конкретно этого раздела.
Несоблюдение правил может повлечь за собой самые строгие меры от закрытия/удаления темы до бана пользователя!


  • Название темы должно отражать её суть! (Не следует добавлять туда слова "помогите", "срочно" и т.п.)
  • При создании темы, первым делом в квадратных скобках укажите область, из которой исходит вопрос (язык, дисциплина, диплом). Пример: [C++].
  • В названии темы не нужно указывать происхождение задачи (например "школьная задача", "задача из учебника" и т.п.), не нужно указывать ее сложность ("простая задача", "легкий вопрос" и т.п.). Все это можно писать в тексте самой задачи.
  • Если Вы ошиблись при вводе названия темы, отправьте письмо любому из модераторов раздела (через личные сообщения или report).
  • Для подсветки кода пользуйтесь тегами [code][/code] (выделяйте код и нажимаете на кнопку "Код"). Не забывайте выбирать при этом соответствующий язык.
  • Помните: один топик - один вопрос!
  • В данном разделе запрещено поднимать темы, т.е. при отсутствии ответов на Ваш вопрос добавлять новые ответы к теме, тем самым поднимая тему на верх списка.
  • Если вы хотите, чтобы вашу проблему решили при помощи определенного алгоритма, то не забудьте описать его!
  • Если вопрос решён, то воспользуйтесь ссылкой "Пометить как решённый", которая находится под кнопками создания темы или специальным флажком при ответе.

Более подробно с правилами данного раздела Вы можете ознакомится в этой теме.

Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Poseidon, Rodman
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Центр помощи | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1306 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.