Question

Turbo Pascal.
Program ma pobrać wyraz i sprawdzić jego długość jeśli jest < lub = 10 to wpisać każdą literkę do kolejnego elementu tablicy.

Answer 1

PROGRAM programTablica;

VAR Imie: String;
VAR Tablica: Array[1..10] of String;
VAR i: Integer;

BEGIN

Readln(Imie);
If (length(Imie)<=10) Then

For i := 1 to Length(Imie) Do
Begin
Tablica[i] := Copy(Imie,i,1);
End;

END.

 

 

O mój Boże, ale ten Pascal jest okropny :>

Answer 2

program tekst_tab;
uses crt;
var
tekst:string;
znaki:array[1..10]of char;
dlugosc:byte;
i:byte;
begin
writeln('Podaj wyraz: ');
readln(tekst);
dlugosc:=length(tekst);
if dlugosc <= 10 then
  begin
   for i:=1 to dlugosc do
     znaki[i]:=tekst[i];
  end
else
  writeln('Za dulgi wyraz.');
  readln;
end.