Pascal - pytanie

12.02.2011

22:24

[1]

Fraps [ Generaďż˝ ]

Pascal - pytanie

Zad 2. Napisz program który wyświetli piramidę nr 2 z zad1 po podaniu jej wysokości.
czyli podstawa = *** środek=** i czubek=*

uses crt;
var a,b,i:byte;

begin
write('Podaj Podstawe trojkata :');readln(a);
b:=0;
repeat
b:=b+1;
for i:=1 to b do write('*');
writeln;
until b=a;

readln;
end

treść zadania jest i mam pytanie czy nie zrobiłem błędów w kodzie?
a jak przerobić go by obliczał po podaniu wysokości? w miejsca "b" wstawić "a" a w miejsca "a" wstawić "b" ?

12.02.2011

22:27

[2]

Siepet [ Generaďż˝ ]

I gdzie jest to pytanie?

12.02.2011

23:39

[3]

Fraps [ Generaďż˝ ]

ok tamto zrobiłem :)

zostało mi ostatnie a to mój kod lecz wymaga wielu poprawek

uses crt;
var x,y:integer;

clrscr;
begin
xxxxxx
xxxxxx
xxxx
xxxx
if x=5, y=8 then
writeln('@@@@');
writeln('$$$$');
writeln('####');
if x=5 then
writeln('@@@@');
if y=8 then
writeln(' $$$$');
writeln('&&&&');
if x<>5, y<>8 then
writeln('####');
writeln('$$$$');
writeln('%%%%');
end;
readln;
end.

a zadanie brzmi:

Zad 6. Napisz program, który pobierze dwie liczby całkowie z klawiatury i wyświetli na ekranie odpowiednio:
a)dla x= 5 i y =8

@@@@@
$$$$$
#####

b)dla x=5

@@@@@

c)dla y=8

$$$$$
&&&&&

d)dla x <>5 i y<>8

#####
$$$$$
%%%%%

13.02.2011

00:59

[5]

tomazzi [ Flash YD ]

IF x=5 then
begin
writeln('@@@@');
if y=8 then
begin
writeln(' $$$$');
writeln('####');
end;
end;
else if y=8 then
begin
writeln(' $$$$');
writeln('&&&&');
end;
else
begin
writeln('####');
writeln('$$$$');
writeln('%%%%');
end;
end;

Popraw co trzeba, czyli składnię i domknięcia bloków. Powinno działać.

13.02.2011

13:15

[6]

Fraps [ Generaďż˝ ]

IF x=5 then
begin
writeln('@@@@');
if y=8 then
begin
writeln(' $$$$');
writeln('####');
end;
end; tutaj nie powinno być też end. z kropka ;>?
else if y=8 then
begin
writeln(' $$$$');
writeln('&&&&');
end;
else
begin
writeln('####');
writeln('$$$$');
writeln('%%%%');
end;
end; tu nie powinno być end. z kropka;>?

14.02.2011

16:22

[8]

Przemo_888 [ Legend ]

End z kropką stawiasz wyłącznie na końcu programu głównego, podprogramy i instrukcje złożone kończysz endem ze średnikiem.