Pascal: školski zadaci

A koliko u početku mjesta ima na HDD-u?

Evo. Stavio sam da na dvd-u ima 4488 megabajta na početku. To sam negdje pročitao...

program dvd;

var v,om,ok:longint;

begin

writeln('Unesite veličinu datoteke na dvd-u u megabajtima...');

readln(v);

om:=4488-v;

ok:=om*1024;

writeln('Na dvd-u je ostalo ',om,' megabajta i ',ok,' kilobajta');

readln;

end.

Upotrijebio sam longint jer ti treba veći raspon nego što ga ima integer

Ostalo bi trebalo biti jasno.

 e sta je ovo ok i om??

Dobro pretpostavljaš :) Neznam, meni je preglednije ovako... Makar, kada je kod za nekog drugoga onda je bolje pisati cijela imena, istina.

opet mi onaj glupi compile dolazi :SSSSSSSSSSSSSSSS

file new ->napisem program pa idem compile i onda compile failed.

evooo slike

hahaha ups :D

evo sad je ima :D

Poslije zadnjeg readln imaš i : i ;

Makni :

program dvd;   <-- ovdje se određuje ime programa, dakle program nekoime;

var v,om,ok:longint;    <-- uvodimo varijable, znači unaprijed si izračunaš koliko ih trebaš, npr ovdje su nam trebale 3.

Postoji više vrsta varijabli

 integer   Whole numbers from -32768 to 32767

   byte    The integers from 0 to 255

   real    Floating point numbers from 1E-38 to 1E+38

   boolean   Can only have the value TRUE or FALSE

   char    Any character in the ASCII character set

   shortint  The integers from -128 to 127

   word    The integers from 0 to 65535

   longint   The integers from -2147483648 to 2147483647

begin   <--  označava početak programa

writeln('Unesite veličinu datoteke na dvd-u u megabajtima...');   <-- ispisuje se korisniku text što treba učiniti

readln(v);   <--   pročita vrijednost koju je korisnik unesao i varijabli v pridjeljuje tu vrijednost, kako bi je mogli kasnije upotrijebiti

om:=4488-v;  <--   koliko je ostalo u megabajtima dobijemo oduzimanjem početne vrijednosti u megabajtima minus veličina datoteke (varijabla v)

ok:=om*1024;  <--   koliko je ostalo u megabajtima puta 1024 da dboijemo vrijednost u kilobajtima (1 mb = 1024 kb)

writeln('Na dvd-u je ostalo ',om,' megabajta i ',ok,' kilobajta');  <-- Ispisujemo korisniku krajnji rezultat, doslovan tekst upisuješ pod navodnike, varijable izvan navodnika, dolovno i varijable moraš odvajati sa zarezom

readln;  <--  pročita red, bez ovog retka izvršila bi se radnja ispisa i zatvorio program, ovako on ostane aktivan dok se ne stisne enter

end.   <--  završava program, obavezno točka

Trebao bih pomoć u vezi Pascala, zadatak glasi:

Učitaj broj, provjeri je li on potpuno paran, ako jest ispiši taj broj, a ako nije ispiši: "nije potpuno paran"...

Stvarno to ne znam a sutra mi je test

zahvaljujem unaprijed

samo ako su mu sve znamenke parne...

znam nariktat kad imam 2 znamenke, ali meni treba da on prepozna u bilo kojem broju...

Program prvi;
var n,b:integer;
 begin
  writeln('Upisi broj: ');
  readln(n);
   b:=0;
    repeat
     if n mod 2<>0 then b:=b+1;
     n:=n div 10;
    until n=0;
     if b=0 then writeln('Broj je potpuno paran!')
        else writeln('Broj nije potpuno paran!');
  readln;

end.

Evo ti malo lakši način

Greška ispravljena...

Zanimljivo, za 25, 50 i 100 baca krivi rezultat...

Probaj opet, editiral sam...

Nisam prvo primjetil logičku grešku, a testiral sam sa brojevima 13, 22, 222, 444, 77 i 33.