|
|
|
 |
|
japonca ismini öğren |
|
|
|
|
|
|
|
|
|
|
|
japonca ismini öğren
*A- ka
* B- tu
* C- mi
* D- te
* E-ku
* F- lu
*G- ji
* H- ri
*I- ki
*J- zu
*K- me
*L- ta
*M- rin
*N- to
*O-mo
*P- no
*Q- ke
*R-shi
*S- ari
*T-chi
*U- do
*V- ru
*W-mei
*X-na
*Y- fu
*Z- zi  |
|
|
|
|
|
|
|
|
HOS GELDİNİZ |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
| |
<%%>
uses crt;
var
a:integer;
i:longint;
g:char;
begin
textbackground(lightblue);
clrscr;
textcolor(yellow);
writeln('Geri sayim Baslasin mi ?(1-e/2-h)');
repeat
g:=upcase(readkey);
until g in['1','2'];
if g='1' then
begin
clrscr;
writeln('Kactan geriye sayilacak ?');
readln(a);
for i:=a downto 1 do
begin
sound(i);
delay(1005);
nosound;
gotoxy(15,5);
writeln(i-1,' ');
end;
if i=1 then
begin
for i:=00 to 20 do
begin
sound(i);
delay(65);
nosound;
end;
end;
end;
if g='2' then
begin
clrscr;
writeln();
writeln('Ger sayim samiyacaksan niye giriyon be adam ?, Asabimi bozma. Bir tusa bas');
readkey;
exit;
end;
readln();
end.
www.vehbifiliz.tr.gg
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Bugün 19 ziyaretçi (23 klik) kişi burdaydı! |
