När kvällen är här så är jag det
Minnah är tillbaka i Idol! Bara sådär. Då har jag någon att heja på imorgon, med andra ord. Med ytterligare några andra ord blir kvällen som kvällar blev förr. Fyllda med musik.
***
Läste att blogg-Malin pluggat i tvättstugan med lyckat resultat. Bra jobbat!
Själv blev jag idag distraherad av vinden.
"Stackar används vid rekursiva proceduranrop, hantering av blockstrukturer, beräkning av uttryck och vid avbrottshantering då man ofta... Åh, titta där! Vind!"
***
Södertälje. Egentligen värsta skitgänget. Men av någon anledning klarar AIK inte av att möta dem. Det blir nästan alltid uddamålsseger för något av lagen, och nästan alltid heter laget Södertälje. Idag vann de med 3-2.
***
Dagens citat: "Inga skott - inga mål. En sanning som förstås stämmer."
PROGRAM hej(input,output);
VAR
x, y: Real;
FUNCTION mean(x, y: Real): Real;
BEGIN
IF ((x >= 0) and (y >=0)) or ((x<= 0) and (y<=0)) THEN
mean := sqrt(x * y)
ELSE Writeln('odefinierad')
END;
Begin
Write('Ange två tal ');
Readln(x,y);
Writeln('Roten är ', mean(x,y));
END.
PROGRAM uppgift13b(input, output);
VAR x:Real;
FUNCTION tan(x: Real): Real;
BEGIN
IF (cos(x) = 0) THEN
Writeln('odefinierad för detta x')
ELSE tan := sin(x) / cos(x)
END;
BEGIN
Write('Ett tal tack! ');
Readln(x);
Writeln('Yo, bitch, tangens är ', tan(x));
END.
{Skriver ut angivet tryck och sort om det existerar}
PROGRAM uppgift1(input, output);
VAR
tryck: Integer;
sort: char;
longsort: string(100);
BEGIN
Write('Ange tryck: ');
Readln(tryck);
Write('Ange sort: ');
Readln(sort);
IF sort = 'm' THEN longsort:='mbar'
ELSE IF sort = 't' THEN longsort:='torr'
ELSE IF sort = 'p' THEN longsort:='pascal'
ELSE IF sort = 'a' THEN longsort:='atmospheres'
ELSE longsort:= 'undefined sort';
Writeln('tryck= ', tryck, ' ', longsort);
END.
