Skocz do zawartości
  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • Pełny dostęp do działów i ukrytych treści
    • Możliwość pisania i odpowiadania w tematach
    • System prywatnych wiadomości
    • Zbieranie reputacji i rozwijanie swojego profilu
    • Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Program Dev-pascal


Rekomendowane odpowiedzi

Opublikowano

Witam. 
Potrzebuję pomocy przy zadaniu na informatykę :( 
"utwórz program który w tablicy 10 elementowej wpisanej z klawiatury wymieni wszystkie liczby na liczbę od nich większą o 2" 
Ktoś coś ?

 

Opublikowano

Jestem totalnie zielony w tym temacie, zmieniałem profil niedawno i wskoczyła rozszerzona informatyka. 

kumpel podesłał mi coś takiego jako gotowy program, problem z tym że wrzucając to do dev-pascal program mi nie rusza :( wiem że kawał pracy przedemna zeby nadrobić materiał, niestety nauczyciele nie mogą na mnie zaczekać i z bierzącym materiałem tez musze leciec a to zadanie mam na piątek.

#include<iostream>

using namespace std;

int main()
{
   int T[10],i;
   for(i=0;i<10;i++)
     cin>>T;
   cout<<"Tablica  przed zamian:\n";
   for(i=0;i<10;i++)
   {
     cout<<T<<" ";
     T+=2;
   }
   cout<<"\nTablica  po zamianie:\n";
   for(i=0;i<10;i++)
     cout<<T<<" ";
   return 0;
}

Opublikowano

Proszę, oto pełny kod dla Pascala :

 


Program zmieniaj;
var a :array[1..10] of integer;
var i :integer;

BEGIN

writeln('Podaj kolejno 10 liczb');
writeln;

 for i:=1 to 10 do
  begin
  writeln('Podaj ',i,' liczbe: ');
  readln(a[i]);
  end;

writeln;
writeln('Tablica przed zmianiami');
writeln;

 for i:=1 to 10 do
  begin
  write(a[i]:5);
 end;

writeln;
writeln('Tablica po zmianach');
writeln;

 for i:=1 to 10 do
  begin
  write(((a[i])+2):5);
 end;

readln;
readln;

end.

W razie gdybyś czegoś nie rozumiał, pisz śmiało to wyjaśnię :)

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

×
×
  • Dodaj nową pozycję...