Математика


 Правила(обновени на 11.05.2008)   Търсене   Потребители   Потребителски групи   Регистрирайте сеРегистрирайте се 
 ПрофилПрофил   Влезте, за да видите съобщенията сиВлезте, за да видите съобщенията си   ВходВход 


Не е нужно да се регистрирате!

Програма за масиви на паскал


 
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal)
Предишната тема :: Следващата тема  
Автор Съобщение
paul_vitti



Регистриран на: 17 Oct 2007
Мнения: 1


МнениеПуснато на: Wed Oct 17, 2007 5:20 pm    Заглавие: Програма за масиви на паскал Отговорете с цитат

Има ли все още някой на който му се разправя с Паскал да ми помогне за една програма на паскал. Програма е следната: Да свият масивите А,В,С посредством изклиу4ване на нулевите елементи и елементите по-малки от 5,5.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Реклама







Пуснато на:     Заглавие:

Върнете се в началото
b1ck0



Регистриран на: 13 Nov 2006
Мнения: 3


МнениеПуснато на: Sun Oct 21, 2007 1:07 am    Заглавие: Отговорете с цитат

Код:

var a:array[1..n] of real;
      n,x:integer;
    begin
        // vhod na masiv
        for i:=1 to n do
            begin
                if ( (a[i] < 0) || (a[i] < 5,5) ) then do
                    begin
                        a[i] = a[i+1];
                        i:= i+1;
                        n=n-1;
                    end;
            end;
        // izghod na masiv
    end.

Да се надяваме че работи ... Smile
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Irrefutable



Регистриран на: 15 Jul 2007
Мнения: 123
Местожителство: София

МнениеПуснато на: Sun Oct 21, 2007 10:01 am    Заглавие: Отговорете с цитат

Това е грешно
При 10 11 12 2 3 4 10 2 какво става
10 11 12 3 10
Wink
a[i] = a[i+1]; трябва да е a[i] = a[n];

А ако искаме елементите да са в същия ред. Тоест операцията да е стабилна. То подхода е съвсем различенWink
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение Посетете сайта на потребителя ICQ Номер
cub



Регистриран на: 20 Feb 2007
Мнения: 1


МнениеПуснато на: Tue Oct 23, 2007 3:46 pm    Заглавие: Отговорете с цитат

До колкото мога да схвана задачата...
Използвай друг масив, на който да пренаписваш тези елементи които да отговарят на условието... нещо такова:

J:=1
for I:=1 to N do
begin
If A[I]>5,5 then do
begin
B[J]:=A[I];
J:=J+1;
end;
else proceed;
end;.....

нямам време да я компилирам, така че нз дали става, но като цяло мисля, че това е идеята.
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение ICQ Номер
мария



Регистриран на: 18 Mar 2011
Мнения: 1


МнениеПуснато на: Fri Mar 18, 2011 9:55 pm    Заглавие: Отговорете с цитат

добър вечер.утре имам изпит по информатика.ако може някой да ми реши задачата :
масивът а е със n елемента а(n), където n<=50.да се състави програма за създаване на нов масив съдържащ положителните елементи на масива а . моля за помощ отчаяна съм помогнете чакам... Question
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
limonchetyyy



Регистриран на: 09 May 2011
Мнения: 1


МнениеПуснато на: Mon May 09, 2011 11:11 pm    Заглавие: :) Отговорете с цитат

Здравейте .. бихте ли ми помогнали с тази програма .. мерси предварително Smile

масивът C e c ,,n" целочислени елементи.Да се състави програма за намиране на елемента с най-голяма четна стойност Smile
Върнете се в началото
Вижте профила на потребителя Изпратете лично съобщение
Гост







МнениеПуснато на: Wed Nov 28, 2012 9:09 pm    Заглавие: Помощ Отговорете с цитат

Здравейте, имам нужда от помощ, не разбирам изобщо от масиви, а имам да правя курсова работа. Та условието на задачата ми е :
Нека а0=1; аk=k*ak-1 + 1/k, k=1,2,3 ..., а n е естествено число. Да се състави блок-схема и програма на Pascal за изчисляване на аn.
Върнете се в началото
Покажи мнения от преди:   
Създайте нова тема   Напишете отговор    Информатика Форуми -> Delphi(Pascal) Часовете са според зоната GMT + 2 Часа
Страница 1 от 1

 
Идете на:  
Можете да пускате нови теми
Можете да отговаряте на темите
Не Можете да променяте съобщенията си
Не Можете да изтривате съобщенията си
Не Можете да гласувате в анкети
You cannot attach files in this forum
Може да сваляте файлове от този форум
Copyright © 2007-2013 math10.com.   изработка на сайт