Napisałem grę tekstową we Free Pascalu(pod win XP). Jest dość rozbudowana.Zajęło mi to 2 lata. Jeśli ktoś ma win XP proszę o testowanie. Pod win 10 nie chodzi najlepiej.Nie mam pojęcia jak pod innymi windowsami(prosze o info).

Gra jest bardzo ciekawa. Polecam.Wszelkie pytania można kierować : wielcy_ludzie@wp.pl

gra do ściągnięcia z :

www.mediafire.com/file/ysf7l83i7vk57q/WielcyLudzie.exe

Pozdro.

W pliku rekordowym o nazwie 'dane.dat' umieszczono ciąg liczb całkowitych których wartości w założeniach miały być kolejno: większe i mniejsze od zera (równe zeru potraktować jak mniejsze). Napisać procedure lub funkcję z których:

a) pierwsza, sprawdzi czy rzeczywiście tak jest,

b) druga, przepisze do n elementowej tablicy A liczby dodatnie (n należy podać jako argument, proces przerwać po znalezieniu n-tego elementu).

Napisałem coś takiego i procedura z podpunktu b działa ale z funkcją z podpunktu a mam problem. A mianowicie funkcja działa dobrze jeśli wprowadzam parzystą ilość liczb, a dla nieparzystej ilości nie chce działać. Pisałem ten program w Lazarusie IDE v1.6.

Funkcja nazywa się Sprawdź. Pomoże ktoś??

program zestaw1_poprawka3;
uses Crt;
type Tplik=file of integer;
    Ttab=array[1..100] of integer;
var p:Tplik;
A:Ttab;
n:byte;
{...........}
procedure Wprowadz(var p:Tplik; n:integer);
var x:integer;
i:integer;
begin
Rewrite(p);
if n>=100 then exit;
for i:=1 to n do
begin
write(i,' liczba: '); readln(x);
write(p,x);
end;
Close(p);
end;
{............}
function Sprawdz(var p:Tplik):boolean;
var x,y:integer;
begin
Reset(p);
if not eof(p) then
read(p,x);
while not eof(p) do
begin
read(p,y);
if ((x>0) and (y<=0)) or ((x<=0) and (y>0)) then
Sprawdz:=True
else
Sprawdz:=False;
end;
Close(p);
end;
{..........}
procedure Wyswietl(var p:Tplik);
var x:integer;
begin
Reset(p);
while not eof(p) do
begin
    read(p,x);
    writeln(x:3);
    end;
Close(p);
end;
{................}
procedure Przepisz(var p:Tplik; var A:Ttab; var n:byte);
var x:integer;
begin
Reset(p);
n:=0;
while not eof(p) do
begin
if n>=100 then break;
read(p,x);
if x>0 then
begin
n:=n+1;
A[n]:=x;
end;
end;
Close(p);
end;
{................}
procedure Wyswietl_tab(var n:byte; var A:Ttab);
var i:integer;
begin
for i:=1 to n do
write(A[i]:5,' ');
end;
{...........}
begin
 ClrScr;
 write('Ile bedzie liczb: '); readln(n);
 Assign(p,'dane.dat');
 Wprowadz(p,n);
 writeln;
 Sprawdz(p);
 writeln(Sprawdz(p));
 Wyswietl(p);
 writeln;
 Przepisz(p,A,n);
 writeln('Przepisana tablica: ');
 Wyswietl_tab(n,A);
 Readkey;
end.

Program wygląda tak:

program czystki;

uses crt;

var aa : Array[1..5] of string;

bb : Array[1..3] of string;

x,y: byte;

begin

clrscr;

x:=1;

y:=1;

aa[1]:='abc';

aa[2]:='acv';

aa[3]:='wkw';

aa[4]:='klq';

aa[5]:='olq';

bb[1]:='abc';

bb[2]:='wkw';

bb[3]:='olq';

for x:=1 to 5 do

repeat

if aa[x] = bb[y] then aa[x]:=0;

y:=y+1;

until y=3;

writeln(aa[1]);

writeln(aa[2]);

writeln(aa[3]);

writeln(aa[4]);

writeln(aa[5]);

readln;

end.

Mniejsza o sens programu. Kiedy go kompiluję, wyskakuje mi Error 26: Type mismatch. w pętli for a mianowicie na końcu linii if aa[x] = bb[y] then aa[x]:=0; jak usuwam ; to znak ten pojawia się na początku następnej linii. Co robię nie tak ?

Mam problem a mianowicie pisze kółko i krzyżyk 20x20 do zwycięstwa potrzebne jest aby 5 krzyżyków bądź kółek było obok siebie. Do stworzenia planszy użyłem stringgrida i proceurą "TForm1.StringGrid1Selection" wpisuje krzyżyki i kółka. Wszystko spoko tylko nie wiem w jaki sposób mogę sie odwołać do współrzędnych tegoż stringgrida zeby sprawdzić warunek wygranej.

Mam plik w którym cyklicznie potarza się schemat

String1

String2

integer integer

Jak odczytać liczby oddzielone spacją?Wiem,że potem musze je dopiero przerobić na liczby,ale jak odczytać je jako pojedyncze słowa?

Potrzebuję pomocy w lekkim (taką mam nadzieję) doszlifowaniu kodu.

Mam coś takiego:

program liczeniedzialajace;
USES CRT;

VAR
t:file of char;
a:char;
krop,wykrz,pyt,licz,dwuz,uo,uz:longint;

BEGIN
clrscr;
krop:=0;
wykrz:=0;
pyt:=0;
licz:=0;
dwuz:=0;
uo:=0;
uz:=0;
assign(t, 'plik.txt');
reset(t);

  			while not eof(t) do
  			begin;
  			read(t,a);
  			if (a=chr(46))                  	then krop:=krop+1;
  			if (a=chr(33))                  	then wykrz:=wykrz+1;
  			if (a=chr(63))                  	then pyt:=pyt+1;
  			if (a>=chr(48)) and (a<=chr(57))	then licz:=licz+1;
  			if (a=chr(85)) or (a=chr(117))  	then uo:=uo+1;
  			if (a=chr(162)) or (a=chr(224)) 	then uz:=uz+1;
  			end;

writeln('W pliku jest ' ,krop, ' zdan zakonczonych kropka, ' ,wykrz,' zdan zakonczonych wykrzyknikiem, '
                 	,pyt, ' pytan i ' ,licz, ' liczb, a stosunek u do ' ,chr(162), ' wynosi ' ,uo,':',uz);
close(t);

readkey;
END.

Moim zadaniem było (cytuję dosłownie)

"Napisz program oraz funkcję która policzy ile zdań nie lub kończy się kropką. funkcję która policzy ile zdań kończy się kropką, ile jest zdań bez cyfr. -ile jest liczb w pliku; Zapis i odczyt tekstu z pliku, zapis wyników do pliku. Funkcje która policzy stosunek 'ó' do 'u'."

Upraszczając: muszę napisać program, który wczyta plik i będzie zawierał funkcje liczące:

-zdania kończące się kropkami,

-zdania kończące się innymi znakami,

-zdania kończące się dwuznakiem '?!',

-zdania bez liczb,

-liczby w pliku,

-ilość 'u' oraz 'ó' i ich stosunek.

Znalazłem podobny kod do tego (dodałem swoje zmienne), ale mój problem polega na tym, że gdy program znajdzie cyfrę nie potrafię odwołać się do kolejnej pozycji (aby sprawdzić, czy kolejny znak również jest cyfrą); to samo w przypadku dwuznaku '?!'. Próbowałem robić coś na zasadzie a+1, jednak prawdopodobne problemy ze składnią uniemożliwiają kompilację.

Gdzieś w internetach wyczytałem, żeby kombinować coś z true/false, jednak nie wiem co i jak, bo nie potrafię odwołać się do kolejnej pozycji.

Kolejnym problemem jest to, że Pascal nie wyświetla 'ó', nawet jeśli wstawiam go jako znak ASCII.

Myślałem też, żeby zrobić to w trochę inny sposób, coś na zasadzie wczytania tekstu z pliku do zmiennej (lub zabawy z tablicą) typu string bez limitu znaków (gdzieś o takim cudzie wyczytałem), wtedy poszłoby już raczej bez problemów.

Wstawienie tego wszystkiego do funkcji również nie powinno sprawić mi problemów pod warunkiem, że będę miał już gotowy, działający program.

Jeśli ktoś byłby w stanie udzielić mi jakichś wskazówek (w końcu muszę nauczyć się tego sam), to byłbym wdzięczny

Na sam początek zapytam się czy to jakiś problem, że tak co chwilę otwieram nowy temat?

Mam takie coś.. Dwa memo, w jednym liczba w drugim jej dzielniki (od 1 do 11) i chcę to wszystko zapisać do pliku posortowane względem ilości dzielników.

Pomyślałem o tym żeby najpierw posortować to wszystko do tablicy i dopiero do pliku

var
 i, j, liczbaDziel, dl_memo1 : integer;
 Tablica :  array of array of String;
 tekst : string;
begin
dl_memo1 := Memo1.Lines.Count - 1;
SetLength(Tablica, 2, dl_memo1);
j:=0;
for liczbaDziel:=10 downto 0 do
	begin
         	for i:=0 to dl_memo1 do
             	begin
               	tekst := Memo2.Lines[i];
               	if ((length(tekst) div 2) + 1 = liczbaDziel) then	// (length(tekst) div 2) + 1 mówi mi o ilosci dzielnikow
               	begin                                                 	// wszystkich dzielnikow jest 11 ale zadna liczba nie bedzie miala
        				Tablica[0,j] := Memo1.Lines[i];                      // wszystkich dlatego od liczbaDziel = 10 (chociaz i tak zadna nie
        				Tablica[1,j] := Memo2.Lines[i];                      // bedzie miala chyba 10 w takim przedziale)
        				j:=j+1;
               	end;
             	end;
	end;

Niestety coś to nie działa.. Ktoś pomoże z tym?

I drugie od razu pytanie.

Jak zapisać taką Tablicę do pliku za pomocą OpenDialog?

Przyciskam przycisk 'Zapisz' tworzy mi tę tablice sortuje wszystko i tylko wybieram miejsce i nazwę pliku do zapisu.

Z góry bardzo dziękuję za odpowiedź!

Czy jest taka możliwość żeby dana czynność wykonała się po jakimś określonym czasie?

Dla przykładu aplikacja się uruchamia od razu mamy jakiś obrazek i po 5 sekundach ten obrazek znika.

Czy da się coś takiego zrobić?

Mam pewnie problem z procedurą KeyUp.

Chcę zablokować wpisywanie niedozwolonych znaków.

Kawałek kodu:

if not (Key in ['0'..'9']) then
 Key := #0
 else
 begin  (kod działający poprawnie) end

Program ma za zadanie wczytywać w TMemo1 jakąś cyfrę (string) i wypisywać w TMemo2 jej dzielniki od 1 do 11.

Program się wysypywał jeśli wpisałem coś innego jak cyfrę, gdy dodałem ten kawałek kodu to przestał się wysypywać, ale nadal jestem w stanie wpisywać litery.

Jak mogę to zablokować? Jeśli jest coś innego jak cyfra to żeby mi zablokowało klawiaturę.

KeyDown i KeyPress nie wchodzi niestety w grę, bo gdy wpiszę dla przykładu cyfrę '2' to nic mi nie wypisze, a gdy dopiszę jeszcze '0' to wyświetla mi dzielniki dla '2' a nie dla '20'.

Da się tak zablokować klawiature na KeyUp?

Z góry przepraszam, ale to mój pierwszy post gdyby było coś nie tak.

Mam takie zadanie:

Napisz program, w którym zdefiniowaną tablicę dwuwymiarową o rozmiarach NxN (maksymalnie 10x10) wypełniamy elementami losowymi z zakresu <-10,10>. Program ma wyświetlić tablicę na ekranie (każdy element na 3 polach), a następnie obliczyć sumę przekątnych tej tablicy.

Zostało przeze mnie stworzone coś takiego, ale z błędem...

program zadanie3;

uses

Math;

var

i, j, k, x: byte;

tab:array[1..10,1..10] of integer;

suma, suma1, suma2: integer;

begin

repeat

writeln('Podaj liczbe kolumn i wierszy: ');

readln(k);

until (k<=10);

randomize;

for i:= 1 to k do

begin

for j:= 1 to k do

begin

tab[i,j]:= random(21) - 10;

write(tab[i,j]:3);

end;

writeln;

end;

suma1:= 0;

suma2:= 0;

for i:= 1 to k do

begin

suma1:= suma1 + tab[i,i];

end;

x:= k;

for i:= 1 to k do

begin

if k mod 2 = 1 then

begin

if (i<>ceil(k/2)) and (x<>ceil(k/2)) then

suma2:= suma2 + tab[i,x];

x:= x - 1;

end

else if k mod 2 = 0 then

suma2:= suma2 + tab[i,x];

x:= x - 1;

end;

suma:= suma1 + suma2;

writeln('Suma elementow przekatnych: ', suma1);

writeln('Suma elementow przekatnych: ', suma2);

writeln('Suma elementow przekatnych: ', suma);

readln;

end.

Mianowicie przy podaniu nieparzystego k, sumę drugiej przekątnej liczy tylko z elementów znajdujących się nad elementem środkowym. Co zmienić, aby zostały dodawane również elementy znajdujące się na przekątnej, ale poniżej elementu środkowego?

Z góry bardzo dziękuję za pomoc.

Dane jest zadanie (ciąg znaków zakończony znakiem .). Napisać program wyznaczający liczbę wystąpień liter ch.

Zrobiłem tak żeby pokazywało liczbę wystąpień jednej litery ale nie mogę ogarnąć tak żeby

liczyło te ch. Zadanie zrobiłem w programie Free Pascal IDE. Wiem że pewnie dla większości to zadanie wydaje się banalne ale ja nie mogę tego ogarnąć. Pomoże ktoś?

program znaki;

uses crt;

var z:char; k:word;

begin

k:=0;

writeln('Wprowadzaj znaki. Kropka-koniec.');

z:=readkey; write(z);

while z<>'.' do

begin

if z='a' then k:=k+1;

z:=readkey; write(z);

end;

writeln;

writeln('Liczba wystapien litery a= ',k);

readln;

end.

proszę pomóżcie.

Otóż mój problem wygląda następująco:

Napisałem program, który oblicza powiększenie obrazu przechodzącego przez 5 soczewek.

Wartości pierwszych 2 soczewek są obliczane dobrze, natomiast problem pojawia się przy parametrze "Y" soczewki 3 (w programie zmienna "p3". Później jak wiadomo część rzeczy sypie się tylko i wyłącznie przez złe obliczenie "p3".

Poniżej zdjęcie problemu, a jeszcze niżej kod.

Przyznaję się bez bicia - nie programuję zbyt wiele, ale ten problem wydaje mi się być trochę z dupy xdd

unit Unit1;
{$mode objfpc}{$H+}
interface
uses
 Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
 ExtCtrls, ComCtrls, Buttons;
var wielkosc,y,z,zs1,zs2,zs3,zs4,zs5,f,f2,f3,f4,f5,d,g,opos,o,o2,o3,o4,o5,l,l2,l3,l4,l5: real;
t: real;
type
 { TForm1 }
 TForm1 = class(TForm)
answer: TButton;
Image1: TImage;
inf: TButton;
inst: TButton;
clear: TButton;
exxit: TButton;
Label1: TLabel;
Label10: TLabel;
Label11: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Label16: TLabel;
Label17: TLabel;
Label18: TLabel;
Label19: TLabel;
Label2: TLabel;
Label20: TLabel;
Label4: TLabel;
Label6: TLabel;
Labelf1: TLabel;
Labelf2: TLabel;
Labelf3: TLabel;
Labelf4: TLabel;
Labelf5: TLabel;
Labelp1: TLabel;
Labelp2: TLabel;
Labelp3: TLabel;
Labelp4: TLabel;
Labelp5: TLabel;
Labelx1: TLabel;
Labelx2: TLabel;
Labelx3: TLabel;
Labelx4: TLabel;
Labelx5: TLabel;
Labely1: TLabel;
Labely2: TLabel;
Labely3: TLabel;
Labely4: TLabel;
Labely5: TLabel;
line10: TLabel;
line11: TLabel;
line12: TLabel;
line13: TLabel;
line14: TLabel;
line15: TLabel;
line5: TLabel;
line6: TLabel;
line7: TLabel;
line8: TLabel;
line9: TLabel;
wynik: TLabel;
LabelPow5: TLabel;
LabelPow4: TLabel;
LabelPow3: TLabel;
LabelPow2: TLabel;
LabelPow1: TLabel;
line4: TLabel;
p: TLabel;
line: TLabel;
Label3: TLabel;
Label5: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
line1: TLabel;
line2: TLabel;
line3: TLabel;
opos: TEdit;
wielkosc: TEdit;
zs1: TEdit;
zs2: TEdit;
zs3: TEdit;
zs4: TEdit;
zs5: TEdit;
zzzz: TLabel;
procedure answerClick(Sender: TObject);
procedure Image1Click(Sender: TObject);
procedure infClick(Sender: TObject);
procedure instClick(Sender: TObject);
procedure clearClick(Sender: TObject);
procedure exxitClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Label6Click(Sender: TObject);
procedure LabelPow1Click(Sender: TObject);
procedure line1Click(Sender: TObject);
procedure oposChange(Sender: TObject);
procedure oposKeyPress(Sender: TObject; var Key: char);
procedure wielkoscChange(Sender: TObject);
procedure wielkoscKeyPress(Sender: TObject; var Key: char);
procedure zs1KeyPress(Sender: TObject; var Key: char);
procedure zs2KeyPress(Sender: TObject; var Key: char);
procedure zs3KeyPress(Sender: TObject; var Key: char);
procedure zs4KeyPress(Sender: TObject; var Key: char);
procedure zs5KeyPress(Sender: TObject; var Key: char);
 private
{ private declarations }
 public
{ public declarations }
 end;
var
 Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.answerClick(Sender: TObject);
var
 z, z2, z3, z4, z5, f, f2, f3, f4, f5, w, q, q2, q3, q4, q5, p1, p2, p3, p4, p5, odl, odl2, odl3, odl4 ,odl5 : single;
 MaxFF: Integer;
begin
 z:=StrToFloat (zs1.Text);
 z2:=StrToFloat (zs2.Text);
 z3:=StrToFloat (zs3.Text);
 z4:=StrToFloat (zs4.Text);
 z5:=StrToFloat (zs5.Text);
 odl:=StrToFloat (opos.Text);
 w:=StrToFloat (wielkosc.Text);
 f:=100*(1/z);
 f2:=100*(1/z2);
 f3:=100*(1/z3);
 f4:=100*(1/z4);
 f5:=100*(1/z5);
 p1:= (f*odl) / (odl-f);
 odl2:=p1;
 p2:= (f2*odl2) / (odl2-f2);
 odl3:=p2;
 p3:= (f3*odl3) / (odl3-f3);
 odl4:=p3;
 p4:= (f4*odl4) / (odl4-f4);
 odl5:=p4;
 p5:= (f5*odl5) / (odl5-f5);
 q:=(Abs(p1) / odl)*w;
 q2:=(Abs(p2) / odl2)*w;
 q3:=(Abs(p3) / odl3)*w;
 q4:=(Abs(p4) / odl4)*w;
 q5:=(Abs(p5) / odl5)*w;

 if
 odl < f = true then
 ShowMessage('Odleglosc przedmiotu od soczewki mniejsza od ogniskowej SOCZEWKI 1. Obraz nie powstanie! ! !')
 else
 if w<=0 = true then
 ShowMessage('Wielkosc przedmiotu musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if z<=0 = true then
 ShowMessage('Zdolnosc skupiajaca "SOCZEWKI 1" musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if odl<=0 = true then
 ShowMessage('Odleglosc przedmiotu od soczewki musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if z2<=0 = true then
 ShowMessage('Zdolnosc skupiajaca "SOCZEWKI 2" musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if z3<=0 = true then
 ShowMessage('Zdolnosc skupiajaca musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if z4<=0 = true then
 ShowMessage('Zdolnosc skupiajaca musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else
 if z5<=0 = true then
 ShowMessage('Zdolnosc skupiajaca musi byc wieksza niz 0. Popraw dane i wcisnij "Oblicz" w lewym dolnym rogu programu.')
 else

 Labelx1.Caption := FloatToStrF(odl,ffFixed,10,2);
 Labelx2.Caption := FloatToStrF(odl2,ffFixed,10,2);
 Labelx3.Caption := FloatToStrF(odl3,ffFixed,10,2);
 Labelx4.Caption := FloatToStrF(odl4,ffFixed,10,2);
 Labelx5.Caption := FloatToStrF(odl5,ffFixed,10,2);
 Labelf1.Caption := FloatToStrF(f,ffFixed,10,2);
 Labelf2.Caption := FloatToStrF(f2,ffFixed,10,2);
 Labelf3.Caption := FloatToStrF(f3,ffFixed,10,2);
 Labelf4.Caption := FloatToStrF(f4,ffFixed,10,2);
 Labelf5.Caption := FloatToStrF(f5,ffFixed,10,2);
 Labely1.Caption := FloatToStrF(p1,ffFixed,10,2);
 Labely2.Caption := FloatToStrF(p2,ffFixed,10,2);
 Labely3.Caption := FloatToStrF(p3,ffFixed,10,2);
 Labely4.Caption := FloatToStrF(p4,ffFixed,10,2);
 Labely5.Caption := FloatToStrF(p5,ffFixed,10,2);
 Labelp1.Caption := FloatToStrF(q,ffFixed,10,2);
 Labelp2.Caption := FloatToStrF(q2,ffFixed,10,2);
 Labelp3.Caption := FloatToStrF(q3,ffFixed,10,2);
 Labelp4.Caption := FloatToStrF(q4,ffFixed,10,2);
 Labelp5.Caption := FloatToStrF(q5,ffFixed,10,2);
 LabelPow1.Caption := FloatToStrF(q,ffFixed,10,2);
 LabelPow2.Caption := FloatToStrF(q2,ffFixed,10,2);
 LabelPow3.Caption := FloatToStrF(q3,ffFixed,10,2);
 LabelPow4.Caption := FloatToStrF(q4,ffFixed,10,2);
 LabelPow5.Caption := FloatToStrF(q5,ffFixed,10,2);
 wynik.Caption := FloatToStrF(q*(Abs(p2) / odl2)*(Abs(p3) / odl3)*(Abs(p4) / odl4)*(Abs(p5) / odl5),ffFixed,10,2);

end;
procedure TForm1.Image1Click(Sender: TObject);
begin
end;
procedure TForm1.infClick(Sender: TObject);
begin
 ShowMessage('Program obliczajacy wartosc powiekszenia obrazu przez 5 soczewek skupiajacych. Produced By Oskar Dolowy ®2016');
end;
procedure TForm1.instClick(Sender: TObject);
begin
 ShowMessage('INSTRUKCJE:  '#10'1. Do liczb dziesietnych uzywaj PRZECINKA.'#10'2. Po obliczeniu mozesz wyczyscic okienka do wprowadzania danych przyciskiem "Wyczysc" w lewym dolnym rogu aplikacji.'#10'3. Informacje na temat programu znajdziesz w prawym gornym rogu aplikacji.'#10'4. Po zakonczeniu obliczen mozesz wyjsc z programu za pomoca przycisku "Wyjdz" w prawym dolnym rogu aplikacji.');
end;

procedure TForm1.clearClick(Sender: TObject);
begin
 wielkosc.clear;
 zs1.clear;
 zs2.clear;
 zs3.clear;
 zs4.clear;
 zs5.clear;
 opos.clear;
 wielkosc.SetFocus;
end;
procedure TForm1.exxitClick(Sender: TObject);
begin
 Application.Terminate;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
end;
procedure TForm1.Label6Click(Sender: TObject);
begin
end;
procedure TForm1.LabelPow1Click(Sender: TObject);
begin
end;
procedure TForm1.line1Click(Sender: TObject);
begin
end;
procedure TForm1.oposChange(Sender: TObject);
begin
end;
procedure TForm1.oposKeyPress(Sender: TObject; var Key: char);
begin
 	if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles odleglosc przedmiotu od soczewki lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.wielkoscChange(Sender: TObject);
begin
end;
procedure TForm1.wielkoscKeyPress(Sender: TObject; var Key: char);
begin
 if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles Wielkosc Obiektu lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.zs1KeyPress(Sender: TObject; var Key: char);
begin
if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles wartosc Zdolnosci Skupiajacej SOCZEWKI1 lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.zs2KeyPress(Sender: TObject; var Key: char);
begin
 	if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles wartosc Zdolnosci Skupiajacej SOCZEWKI2 lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.zs3KeyPress(Sender: TObject; var Key: char);
begin
 	if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles wartosc Zdolnosci Skupiajacej SOCZEWKI3 lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.zs4KeyPress(Sender: TObject; var Key: char);
begin
 	if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles wartosc Zdolnosci Skupiajacej SOCZEWKI4 lub zajrzyj do Instrukcji.');
end;
end;
procedure TForm1.zs5KeyPress(Sender: TObject; var Key: char);
begin
 	if not (key in ['0'..'9',#8{backspace},#9{tab},',']) then
begin
 Key := #0;
 ShowMessage('Sprawdz czy poprawnie wprowadziles wartosc Zdolnosci Skupiajacej SOCZEWKI5 lub zajrzyj do Instrukcji.');
end;
end;
end.

Liczę na pomoc jeżeli ktoś ma jakikolwiek pomysł co tutaj może być nie tak.

zad 1. W oznaczonych { ... } miejscach programu wpisz, jakie wartości będą

miały zmienne x, y, z.

program egzamin;
var x,y,z : Word;  
koniec : Boolean;

function jeden(a:Word; var b:Word):Word; var c:Word;
begin
  a:=a+b;
  c:=b+1;
  b:=c+a;
  jeden:=b-c;
end;

procedure dwa(var a,b,c:Word);
begin
  while c>a do
  begin
   	a:=a-1;
   	b:=a-b;
   	c:=c-b;
  end;
end;

procedure trzy(var a,b,c:Word);
begin
Repeat
   	koniec:=a>c;
   	a:=a+1;
   	c:=c-1;
   	b:=c+a;
until koniec;
end;

begin
 x:=4;y:=2; z:=1; { x = ... y = ... z = ...}
 x:=jeden(y,z);
 x:=10; y:=8; z:=15; { x = ... y = ... z = ...}
 dwa(x,y,z);
 x:=2; y:=7; z:=3; { x = ... y = ... z = ...}
 trzy(x,y,z);
end.

Mam na zaliczenie zrobić program w pascalu do liczenia pól figur. Napisałam coś takiego:

PROGRAM Pola_i_objetosci;

uses crt;

CONST pi=3.14;

VAR

r, h, a, pole : real;

c : byte;

PROCEDURE Kolo;

BEGIN

ClrScr;

writeln('Podaj dlugosc promienia');

readln®;

pole := pi*r*r;

writeln('pole = ' , pole:0:2);

end;

PROCEDURE Trojkat;

BEGIN

ClrScr;

writeln('Podaj wysokosc trojkata');

readln(h);

writeln('Podaj dlugosc podstawy');

readln(a);

pole := 0.5*h*a;

writeln('pole = ' , pole:0:2);

end;

PROCEDURE Kwadrat;

BEGIN

ClrScr;

writeln('Podaj dlugosc boku');

readln(a);

pole := a*a;

writeln('pole = ' , pole:0:2);

end;

BEGIN

REPEAT

writeln('Pole jakiej figury chcesz policzyc?');

writeln('1. Kolo');

writeln('2. Trojkat');

writeln('3. Kwadrat');

writeln;

writeln('Zeby dokonac wyboru nacisnij cyfre 1-3 i enter');

readln©;

if c = 1 then Kolo else

begin;

if c = 2 then Trojkat else

begin;

if c = 3 then Kwadrat;

end

end;

readln;

END.

I wyskakuje mi błąd "113 error in statement". Rozumiem z tego, że mam jakiś błąd w kodzie, ale nie mam pojęcia gdzie. Może mi ktoś coś podpowiedzieć?

http://pastebin.com/NwKQQm1w

z góry dzięki

osoba 1: dane które wpisała wcześniej

osoba 2:

osoba 3:

Nauczyciel uparł się że na być to zrobione pętla for, co jest zrozumiałe jako iż ilość osób jest wskazana w tym przypadku 3

mój program wygląda następująco:

program ankieta;

var

i: integer;

wiek: integer;

wzrost: integer;

waga: integer;

adres: string;

imie: string;

nazwisko: string;

begin

for i:=1 to 3 do

begin;

writeln('Podaj swój wiek, wzrost, wagę,adres, imię, nazwisko');

readln(wiek);

readln(wzrost);

readln(waga);

readln(adres);

readln(imie);

readln(nazwisko);

writeln(wiek, wzrost, waga, adres, imie ,nazwisko) //To jest tak surowo napisane dla sprawdzenia

end;

readln;

end

I teraz jest problem że po wpisaniu danych od razu je wyświetla. Zacząłem Pascala w szkole tydzień temu i nie mam pojęcia jak to rozwiązać. Szukałem w google lecz nic nie znalazłem

https://zadania.oig.edu.pl/OIG/stored_files/download/16569335

Na napisanie tego konkursu ma się 90 min do tego zadanie jest jeszcze zadanie z Excela i z Worda lub grafiki.

Jestem zdziwiony ponieważ rok temu na finale trzeba było napisać program Lotto z użyciem tablic, który był banalny z porównaniem do tego co zobaczyłem dzisiaj.

Wszyscy moi koledzy na szczęście przeszli pierwszy etap ale chciałbym się dowiedzieć jak można rozwiązać to zadanie. :)

Przepraszam za słaby Polski ale mieszkałem w Anglii od 7 lat i dopiero wróciłem 3 lata temu .

Pseudo kod wstawiania elementu na liste.

type
 alista = ^lista;
 lista = record
next : alista;
end;  
procedure wstaw_poczatek(var head : alista);
var
 tmp : lista;
begin
 new(tmp);
 if head = nil then
tmp^.next := nil
 else
tmp^.next := head;
 head := tmp;
end;

Jestem własnie w trakcie pisania malutkiego programiku w ramach którego dwie zmienne (a, b) przyjmują wartości losowe z zakresu 0-12. Po wylosowaniu procedura ma do zmiennej typu string zapisywać odpowiedni wyraz w zależności od wylosowanej liczby. Procedura wygląda następująco:

Procedure Karta(x:Integer; y:String);

Begin

Case x of

0: y:='dwojka';

1: y:='trojka';

2: y:='czworka';

3: y:='piatka';

4: y:='szostka';

5: y:='siodemka';

6: y:='osemka';

7: y:='dziewiatka';

8: y:='dziesiatka';

9: y:='walet';

10: y:='dama';

11: y:='krol';

12: y:='as';

End;

End;

Po przerobieniu przez program procedury na ekranie ma się wyświetlać wyraz który został przypisany do wylosowanej liczby. Wywołanie procedury wygląda następująco:

Karta(a, c);

a to zmiena Integer, c to zmienna String.

Niestety po poleceniu WriteLn©; nic się nie wyświetla, zmienna "c" jest pusta.

Co jest nie tak? Jak to zrobić?

Pozdrawiam!

Był sobie pantofelek. Jak wiadomo, pantofelki rozmnażają się przez podział komórki. Aby pantofelek mógł się rozmnożyć (stworzyć drugiego pantofelka), musi minąć 1 dzień. Po jednym dniu dojrzewania, w każdym kolejnym dniu, pantofelek dzieli się i powstają z niego dwa pantofelki (jeden dojrzały, jeden niedojrzały).

Pierwszego dnia jest tylko jeden pantofelek. Drugiego dnia będzie też tylko jeden, gdyż pierwszego dnia był niedojrzały i nie mógł się rozmnożyć. Trzeciego dnia będą już istniały dwa pantofelki (jeden dojrzały i jeden niedojrzały), gdyż ten pierwszy się rozmnoży. Po czwartym dniu będą istnieć 3 pantofelki, po piątym 5, itd.

Zakładając, że pantofelki nigdy nie umierają, oblicz, ile będzie pantofelków po upłynięciu n dni.

Wejście

W pierwszej linii wejścia znajduje się jedna liczba całkowita d (1 <= d <= 100), która oznacza liczbę zestawów danych.

Każdy zestaw składa się z jednej liczby całkowitej n (1 <= n <= 45), oznaczającej liczbę dni, które upłynęły.

Wyjście

Na wyjściu należy dla każdego zestawu danych wypisać liczbę pantofelków po upłynięciu odpowiedniej liczby dni.

Przykład

Wejście:

4

5

6

7

8

Wyjście:

5

8

13

21

program Project1;

var d,n:longint;
function Fib(n:integer):longint;
begin
 if n=1 or n=2 then
Fib:=1
 else if n=0 then
Fib:=0
 else if n>2 then
Fib:=(Fib(n-1) + Fib(n-2));
end;

begin
 readln(d);
 begin
   	readln(n);
   	Writeln(Fib(n));
   	end;
 readln;
end.