pomooc s pascalom
Pre pridávanie komentárov sa musíte prihlásiť.
Pre pridávanie komentárov sa musíte prihlásiť.
V Greenie knižnici bola vydaná prvá kniha, ktorá je vytvorená z väčšiny umelou inteligenciou. Pokrýva udalosti Druhej svetovej vojny, vrátane rôznych doplnkových tém. Kniha je v angličtine.
Zdroj: Blog na Denníku N
Retro web poskytuje informácie o starom hardvéri
Zdroj: The Retro Web
Ide o čiastkovú časť, ktorú riešia z dôvodu monopolného spravania sa v Appstore.
Zdroj: Európska Komisia
Bot využívaný na útoky proti mnohým štátnym inštitúciam v celej Európe dosiahol novú veľkosť.
Protimonopolný úrad zaujal stanovisko k problematike vypínania českých staníc u slovenských poskytovateľov televízie.
Zdroj: Vo svete IT
Projekt SK-Spell hľadá programátorov pre dokončenie prechodu na PHP8.x pre projekty Synonymický slovník / SK-Openthesaurus a Online Slovníky / Glossword. V prípade ochoty pomôcť využite issue tracker na Githube alebo napíšte email na zdposter at gmail.com.
Zdroj: sk-spell
V dňoch 15.3.2024 - 17.3.2024 sa na FIIT STU Bratislava uskutoční šiesty ročník stretnutia Python komunity na Slovensku.
Zdroj: 2024.pycon.sk
Odskúšaný postup vytvorenia externého disku s Linuxom.
Zdroj: YOUTUBE NEXTECH
Jedna z mojich obľúbených distríbúcií, ktorú som používal, je opäť vo vývoji.
Už to ale nie je obmedzené veľkosťou 50MB na inštalačný obraz.
Zdroj: Damn Small Linux 2024
Po viac ako roku je vonku nová verzia ľahkej linuxovej distribucie Bunsenlabs linux, ktorý je pokračovaním CrunchBang linuxu.
Zdroj: Bunsenlabs
Po | Ut | St | Št | Pi | So | Ne |
---|---|---|---|---|---|---|
26 | 27 | 28 | 29 | 01 | 02 | 03 |
04 | 05 | 06 | 07 | 08 | 09 | 10 |
11 | 12 | 13 | 14 | 15 | 16 | 17 |
18 | 19 | 20 | 21 | 22 | 23 | 24 |
25 | 26 | 27 | 28 | 29 | 30 | 31 |
Ak sa vám táto stránka páči, môžete nás podporiť tak, že si na vaše stránky umiestnite tento banner.
Náš Twitter tag je #LinuxOSsk
a potom ked sa budes nudit pre realne :) lebo nejako tusim riesenie len neviem jak to napisat v pascale:)
{tlac vystupov}
assign (subor,'vystupy.txt');
rewrite (subor);
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
end;
end;
end.
takto by to mohlo byt nie?
program PocitajNieco;
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);writeln(subor,y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');
end;
end;
end.
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');writeln(subor,y:2:4);
end;
end;
end. Takto to ma bit je to uz tu ale len potvrzujem :P
close(subor);
end.
vpis naprikladreadln;
a program ukoncit stlacenim enteru.vsakze ty s linuxom nemas nic spolocne ;)
skusila som tam dat to readln; a nic to nerobi..inac som robila toto:
program PocitajNieco;
uses crt;
var
y:real;
x:integer;
subor:text;
begin
assign(subor,'C:\tp7\blablabla');
rewrite(subor);
while(true) do begin
write('Zadaj X (0 ukonci program): ');
readln(x);
if(x=0) then break;
if(x mod 10=0) then begin
y:=(3-1.8*x)/x;
writeln('Y = ',y:2:4);writeln(subor,y:2:4);
end else begin
writeln('X sa nekonci nulou, takze smola.');
end;
end;
end.
exited with
exitcode = 3