Question

TURBO PASCAL: Kto mógłby wskazać, gdzie tu jest błąd:

program kalkulator4;

uses crt;

var znak:char;

x,y: real;

begin

clrscr;

writeln('prosty kalkulator');

writeln('+ dodawanie');

writeln('- odejmowanie');

writeln('* mnożenie');

writeln('/ dzielenie');

readln(znak);

case znak of '+'

writeln('podaj liczbę 'x');

writeln('podaj liczbę 'y');

writeln('suma 'x i y=', 'x+y');

readln

end.

I czy mógłby mi ktoś dokładnie wytłumaczyć ten program:

program prostokąt;

uses crt;

var

a,b:byte;

begin

clrscr;

writeln('Nazywam się ...');

for a:=1 to 5 do

begin

for b:=1 to 10 do write('*');

writeln;

end;

end.

Z góry dzięki.

Answer 1

ZAD. 2)

 

Program ma za zadanie wyprowadzic na ekran prostokąt o szerokosci 10 gwiazdek i wysokosci 5.

 

Działa on na zasadzie 2 pętli, która jedna jest tzw. "zagnieżdżona".

 

W tym przypadku program w ciągu 5 cyklów pierwszej pętli (tej zewnętrznej):

1) wypisuje linię składającą się z 10 "*" (pętla wewnbętrzna, zagnieżdżona)

2) Przechodzi do następnej linii

 

ZAD. 1)

 

program kalkulator4;
uses crt;
var znak:char;
x,y: real;

 

begin
clrscr;

writeln('prosty kalkulator');
writeln('+ dodawanie');
writeln('- odejmowanie');
writeln('* mnozenie');
writeln('/ dzielenie');

Write(' Wybor: '); read(znak);

case znak of

'+':

  begin

    write('podaj liczbe x: '); Read(x);
    write('podaj liczbe y: '); Read(y);

    write('suma "x i y= "',x+y);

  end;

end; {zamyka instrukcje CASE OF}

repeat until KeyPressed;

end.

 

Blędy na jakie sie natknąłem:

1) nie wolno używać wewnątrz instrunkcji Write/Writeln pomędzy ' i ' jeszcze kilku innych apostrofów. Zamiast nich stosujemy cudzysłowia, czyli:

jak jest źle: write('suma 'x i y= ' ',x+y);

a jak powinno być: write('suma "x i y= " ',x+y);

 

2) instrukcję CASE OF nie zaczynamy instrukcją begin, ale ją zamykamy instrunkcję end;

 

3) kilka brakujących cudzysłowiów kończących instrukcje:

zamiast: readln

powinno być: readln;

 

UWAGA: polecałbym stosowanie prostej instrukcji Repeat Until KeyPressed; zamiast oklepanego readln; które nie zawsze działa

 

4) W instrunkci CASE OF po " : " mozemy bezkarnie napisać tylko jedną instrukcje. Jeżeli więcej to musimy je ując w begin i end;