Skocz do zawartości

Witamy w Nieoficjalnym polskim support'cie AMX Mod X

Witamy w Nieoficjalnym polskim support'cie AMX Mod X, jak w większości społeczności internetowych musisz się zarejestrować aby móc odpowiadać lub zakładać nowe tematy, ale nie bój się to jest prosty proces w którym wymagamy minimalnych informacji.
  • Rozpoczynaj nowe tematy i odpowiedaj na inne
  • Zapisz się do tematów i for, aby otrzymywać automatyczne uaktualnienia
  • Dodawaj wydarzenia do kalendarza społecznościowego
  • Stwórz swój własny profil i zdobywaj nowych znajomych
  • Zdobywaj nowe doświadczenia

Dołączona grafika Dołączona grafika

Guest Message by DevFuse
 

Zdjęcie
Pascal

[ROZWIĄZANE] Copy, delete, insert nie działa mi w kompilatorze

Pascal pascal

  • Zamknięty Temat jest zamknięty
5 odpowiedzi w tym temacie

#1 Kusek

    z Wikipedii

  • Power User

Reputacja: 446
Wszechobecny

  • Postów:1 655
  • Imię:Krystian
Offline

Napisano 05.01.2012 20:50

Siemka, profesor kazał nam napisać program z wykorzystaniem copy delete insert, lecz głupi kompilator nie wygrywa mi poleceń delete i insert.

zrobiłem takie coś, lecz czy to w ogóle jest dobrze?

program slowa;
uses crt;
var a,b,c,d,e:string;
begin
write('podaj pierwsze slowo: '); readln(a);
write('podaj drugie slowo: '); readln(B);
c:=copy(a,2,2);
d:=delete(b,1,2);
e:=insert(c,d);
writeln('powstale slowo to: ',e);
end.


że o to chodzi?
Spoiler


jak na razie używam online kompilatora

Użytkownik Kusek edytował ten post 05.01.2012 21:54

  • +
  • -
  • 0

#2 G[o]Q

    I'm G[o]Q

  • Przyjaciel

Reputacja: 1 344
Godlike

  • Postów:3 563
  • Steam:steam
  • Imię:Krzysiek
  • Lokalizacja:C: / program Files / Valve / Cstrike / G[o]Q.dem
Offline

Napisano 05.01.2012 22:03

dodaj tekst z debuggera

te teksty od debuggera są po to zeby je czytać zle uzywasz funkcji insert

dodatkowo insert i delete to procedury a nie funkcje kod powinien wygladac tak

program slowa;
uses crt;
var a,b,c,d,e:string;
begin
write('podaj pierwsze slowo: '); readln(a);
write('podaj drugie slowo: '); readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
c:=copy(a,2,2);
delete(b,1,2);
insert(c,d,1);
writeln('powstale slowo to: ',e);
end.

nie powiedziales o co dokladnie chodzi to zrobilem przyklad program usuwa z drugiego slowa 2 pierwsze litery a potem wstawia do zmiennej d tekst ze zmiennej c zaczynając od początku oczywiscie program nic nie wypisze by wypisujesz zmienna e jakbys powiedzial co dokladnie chcesz zrobić to było by latwiej
  • +
  • -
  • 1
Manual ponad wszystko, konsola ponad manual :D :&

Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka

GG:6022845 (nie pomagam za free osobom ponizej rangi MoD) :D

#3 Kusek

    z Wikipedii

  • Autor tematu
  • Power User

Reputacja: 446
Wszechobecny

  • Postów:1 655
  • Imię:Krystian
Offline

Napisano 05.01.2012 22:07

użytkownik ma podać dwa słowa, z którego coś zostanie skopiowane i usunięte, a potem te dwa słowa po zmianach mają się połaczyć ;P
  • +
  • -
  • 0

#4 G[o]Q

    I'm G[o]Q

  • Przyjaciel

Reputacja: 1 344
Godlike

  • Postów:3 563
  • Steam:steam
  • Imię:Krzysiek
  • Lokalizacja:C: / program Files / Valve / Cstrike / G[o]Q.dem
Offline

Napisano 05.01.2012 22:09

zamien insert na
insert(a,d,1);
insert(b,d,1);

i tego write'a ostatniego zamien z e na d i sprobuj czy dziala

EDIT

masz caly kod

program slowa;
uses crt;
var a,b,c,d,e:string;
begin
write('podaj pierwsze slowo: '); readln(a);
write('podaj drugie slowo: '); readln(<img src='https://amxx.pl/public/style_emoticons/<#EMO_DIR#>/cool.png' class='bbc_emoticon' alt='B)' />;
c:=copy(a,2,2);
delete(b,1,2);
insert(a,d,1);
insert(b,d,1);
writeln('powstale slowo to: ',d);
readln;
end.

Użytkownik G[o]Q edytował ten post 05.01.2012 22:22

  • +
  • -
  • 1
Manual ponad wszystko, konsola ponad manual :D :&

Chcesz wysłać do mnie PW ? użyj nazwy GoQ zamiast G[o]Q
Chcesz Kupić moduł płatności via Pukawka,Tserwery, Gamesol, Zabijaka do mojego sklepu? napisz PW cena to tylko 10 zł/sztuka

GG:6022845 (nie pomagam za free osobom ponizej rangi MoD) :D

#5 Kusek

    z Wikipedii

  • Autor tematu
  • Power User

Reputacja: 446
Wszechobecny

  • Postów:1 655
  • Imię:Krystian
Offline

Napisano 05.01.2012 22:30

dzięki działa, można zamknąć :)
  • +
  • -
  • 0

#6 Goliath

    Godlike

  • Przyjaciel

Reputacja: 1 237
Godlike

  • Postów:2 334
  • GG:
  • Steam:steam
  • Imię:Maciej
  • Lokalizacja:Mońki
Offline

Napisano 05.01.2012 22:39

Wiadomość wygenerowana automatycznie


Ten temat został zamknięty przez moderatora.

Powód: Pomoc udzielona

Jeśli się z tym nie zgadzasz, Dołączona grafika raportuj ten post, a moderator lub administrator rozpatrzy go ponownie.


Z pozdrowieniami,
Zespół AMXX.PL
  • +
  • -
  • 0





Również z jednym lub większą ilością słów kluczowych: Pascal, pascal

Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych