pascal turbo 7.0 :/

[Buszinio]

Witam mam nietypowy problem otóż robie sobie taki jakiś beznadziejny program i mam taki kod

Kod: Zaznacz wszystko

VAR
imie:string[10];

BEGIN
writeln;
writeln('Jak masz na imię?');
writeln;
read(imie);
write('Witaj ',imie,'. Życzę miłego dnia!!!');
readln;
END.

i teraz wszystko ładnie programik gotowy ale ja chce kontynuować ten kod tak aby dalej program zadawał pytania a siedzacy przed kompem gość na nie odpowiadał i tak dalej w kółko jak edytować ten kod , aby mógł zadać następne pytanie i następne itd. a ja na nie odpowiadał
P.S próbowałem jakos zmienić kod ale się nie udawało

[littlemd]

chcesz zeby program po wyswietleniu :

write('Witaj ',imie,'. Życzę miłego dnia!!!');

zadal nastepne pytanie ? Jesli tak to po prostu dopisujesz po readln dalszy ciag, np (jeszcze w zmiennych zadeklaruj "nick")

Kod: Zaznacz wszystko

writeln('tutaj pytanie numer 2, napisz mi nick');
readln('nick');
writeln('A wiec Twoj nick to ',nick,' ');


i dalej tak samo, po prostu dopisujesz dalej

Autor postu otrzymał pochwałę

[Lukesh]

Sprawdz to: nie mam aktualnie TP wiec pisalem to 'na sucho' nie testujac

Kod: Zaznacz wszystko

program x;
var a:string;
begin
writeln('jak masz na imie?');
read(a);
writeln('witaj ',a,'. Zycze milego dnia!!!');
readln;
end.

Autor postu otrzymał pochwałę

[Buszinio]

littlemd

wtedy nie chce mi się skompilować

Lukesh

Ale to jest jedno pytanie i odpowiedź

[MaTi]

Buszinio ale Ty chcesz zeby program caly czas pytał? w kolko o imie i ktos odpowiadal? mysle ze oto chodzi tak?

[littlemd]

Kod: Zaznacz wszystko

var
imie:string[10];
nick:string;

begin
writeln;
writeln('jak masz na imie?');
writeln;
read(imie);
write('Witaj, ',imie,' . Milego dnia!');
readln;
writeln('Jaki masz nick?');
readln(nick);
writeln('Witaj ',nick,' ! ');
readln;
end.


mi taki kod dziala bez problemu

[Buszinio]

MaTi

Nie, chce żeby zadawał jakieś inne pytania

littlemd

zaraz sprawdze

[MaTi]

Kod: Zaznacz wszystko

var
imie:string[10];
nick:string;
wiek:longint;

begin
writeln;
writeln('jak masz na imie?');
writeln;
read(imie);
write('Witaj, ',imie,' . Milego dnia!');
readln;
writeln('Jaki masz nick?');
readln(nick);
writeln('Witaj ',nick,' ! ');
readln;
writeln('Ile masz lat ',imie, '?');
readln(wiek);
writeln('ok to bylo ostatnie pytanie ',imie, ' pamietam jak ja mialem ', wiek, ' lat narka ');
readln;
end.

I tak mozesz dodawac kazde pytanie jakie chcesz... : ) dziala sprawdzalem

[ Dodano: Dzisiaj o 22:39 ]

zaraz sprawdze

troszke dlugo to sprawdzasz to moze nie wiesz ze mozna ten kod skopiowac do notatnika zapisac w txt i pozniej zmienic rozszerzenie na .pas

Autor postu otrzymał pochwałę

[Buszinio]

MaTi

Wiem Wiem tylko teraz robiłem co innego , juz to zrobiłem i działa , menda ze mnie jest i tyle , wszyscy maja po polusie i o EOT proszę

[patrykmis3]

mam taki problem po wprowadzeniu kodu pisze mi tak "podaj pierwsza liczbe" wpisuje np.7 potem mi pisze "podaj mi druha liczbe" wpisuje np. 2
i naciskam Enter a program zamiast pokazac wynik wyłącz mi sie !!!sprawdzicie kod

oto on:
VAR
imie:string[10];

BEGIN
writeln;
writeln('Jak masz na imię?');
writeln;
read(imie);
write('Witaj ',imie,'. Życzę miłego dnia!!!');
readln;
END.

[ Dodano: Dzisiaj o 14:31 ]
sory to nie ten kod to jest ten:
VAR
liczba1,liczba2:longint;

BEGIN
writeln;
writeln('Podaj pierwszą liczbę');
read(liczba1);
writeln('Podaj drugą liczbę');
read(liczba2);
write('Ich suma wynosi: ',liczba1+liczba2);
readln;
END.

[prog]

Kod jest prawiodlowy - pyta cie ok podaje wynik i w mgnieniu oka sie wylacza bo nie dales zadnej komnendy zeby np. po nacisnieciu ENTER sie wylaczyl...

[patrykmis3]

czyli co mam zrobic zeby tak nie było??

[ Dodano: Dzisiaj o 9:46 ]
poradźcie mi coś aby po naciśnięciu enter program pokazał mi wynik a nie sie wyłączył!!

[Buszinio]

VAR
liczba1,liczba2:longint;

BEGIN
writeln;
writeln('Podaj pierwsza liczbe');
readln(liczba1);
writeln('Podaj druga liczbe');
readln(liczba2);
writeln('Ich suma wynosi: ',liczba1+liczba2);
readln;
END.

To będzie działało

[bigi]

Mam wielką proźbę musze napisac program w turbo pascalu na informatyke na jutro a zupełnie sie w nim nie łapie. Program ma wyznaczać pola powierzchni 10 kwadratów użytkownki ma podać bok najmniejszego kwadratu oraz różnicę o jaką będzie zwiększany bok. Bardzo prosze o zamieszczenie takiego programiku. bardzo pilne. Dzięki

[slajus51]

uses crt;

var

cyfra1: integer;
cyfra2: integer;
enter: string;
begin
clrscr;

writeln (' Podaj pierwsza cyfre ');
redlan (cyfra1);
clrscr;
writeln ('Podaj druga cyfre');
readln (cyfra2);
clrscr;
TEXTCOLOR (YELLOW);
GOTOXY (20,15);
writeln ('CZEKAJ LICZE');
DELAY (800);
GOTOXY (20,16);
WRITELN ('WCISNIJ ENTER BY KONTYNUOWAC');
readln (enter);
textcolor (white);
clrscr;
writeln;
writeln ('Wiec -' , cyfra1 ,'+' , cyfra2 , 'to sie rowna ' , cyfra1 + cyfra2 , '');
readln;
end.

Ten kod zapeniam Cie bedzie dobry
I zrobiłem małą niespodziankę
Pozdrawiam miłej zabawy

[TELEPATYCZNY]

Mam wielką proźbę musze napisac program w turbo pascalu na informatyke na jutro

Ten kod zapeniam Cie bedzie dobry

Zapewne tak tyle ze rok szkolny się już dawno skoczył