---
title: "Pascal!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/programmering/119332-pascal"
topic: "Programmering"
topic_url: "https://www.webforum.nu/amne/programmering"
author: "DennisHolmboe"
published: "2005-01-05T11:42:56.000Z"
updated: "2005-01-10T18:49:30.000Z"
replies: 3
views: 468
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/programmering/119332-pascal"
---

# Pascal!

## #1 — DennisHolmboe, 2005-01-05T11:42Z

Hej!

För att avsluta programmet skriver jag "sluta", men hur ska jag göra för att "sluta" inte ska sparas i arrayen?

```
Program listor; 

type namnlisttyp = array[1..20] of string; 

     listtyp =  record
     antal  :   byte;
     namn   :   namnlisttyp;
end;

var lista:listtyp; 
i :integer;
begin 

i:=1;
repeat
  writeln('Ange namn :');
    readln(lista.namn[i]);
      lista.antal:=i;
    inc(i);
until ((i=20) or (lista.namn[i-1]='sluta'));

for i:=1 to lista.antal do
    begin
    writeln(lista.namn[i]);
    end;

    readln;

end.
```

Permalänk: https://www.webforum.nu/p/119332

## #2 — Viktor, 2005-01-05T12:00Z

Tråd flyttad från "Programmering - Övrigt".

/Viktor

Permalänk: https://www.webforum.nu/p/1518993

## #3 — akkeakker, 2005-01-08T11:33Z

Såhär kanske

```
program listor;

{$APPTYPE CONSOLE}

type namnlisttyp = array[1..20] of string;

     listtyp =  record
     antal  :   byte;
     namn   :   namnlisttyp;
end;

var lista:listtyp;
    i: integer;
    s: string;

begin
  i:=1;
  repeat
    writeln('Ange namn :');
    readln(s);
    if s <> 'sluta' then begin
      lista.namn[i] := s;
      lista.antal:=i;
      inc(i);
    end;
  until ((i=20) or (s='sluta'));

  for i:=1 to lista.antal do begin
    writeln(lista.namn[i]);
  end;

  readln;

end.
```

Permalänk: https://www.webforum.nu/p/1523508

## #4 — DennisHolmboe, 2005-01-10T18:49Z

tack ! !  :e

Permalänk: https://www.webforum.nu/p/1524856

---

Tråden på webben: https://www.webforum.nu/amne/programmering/119332-pascal