Programiranje

Pascal: školski zadaci

ultracs sri 28.1.2015 00:12

1)Napišite algoritam za program koji množi sve neparne brojeve od 1 do 10 i ispisuje krajnju vrijednost ako je rezultat djeljiv sa 5?

2)Ispisati najveći elemenat na glavnoj dijagonali matrice  dimenzija NxN.  Korisnik unosi N koje mora biti manje od 4.

 

Ako moze neko da rijesi ova dva zadatka :D

Luka000 uto 5.5.2015 09:27

evo ovako imam seminarski rad iz informatike , napraviti neki program po zelji u pascalu al mi se neda radit nest jednostavno kao da ispisuje neke brojeve ili nest pise po ekranu , pa sam mislio napravit program slican onim aparatima za kladjenje virtualnim samo mi netko treba pojasnit kako da prikazem neku sliku u pascalu i pomicem je po ekranu? Jedino me to zanima.

Rizva sri 30.9.2015 20:39

PROGRAM binarno_oktalno(inpuut,output);

USES WinCrt; VAR broj1,broj2,c,os,i,br:integer;

niz:array[1..100] of integer;

BEGIN i:=1;br:=0;

writeln('Unesite neki broj:');

read(broj1); broj2:=broj1;

while broj1>=1 do

begin

c:=broj1 div 8;

os:= broj1 mod 8;

niz[i]:=os;

i:=i+1;br:= br+1;

broj1 :=c;

end;

for i:=br downto 1 do

write(niz[i]);

writeln;

i:=1;br:=0;

while broj2>=1 do

begin

c:=broj2 div 2;

os:=broj2 mod 2;

niz[i]:=os;

i:=i+ 1;br:=br+1;

broj2:=c;

end;

for i:=br downto 1 do

write(niz[i]);

end.

Pozz ljudii, tek učim paskal pa ne znam baš ovo uraditi..
Prethodni programski kod treba izmjeniti tako da vraća u heksadecimalnu vrijednost pa ako može pomoć. :)

Bosanski Sin uto 28.5.2019 20:11

Treba mi hitno sutra zadatak za ocjenu ja sam pokusavao ali ne snalazim se bas najbolje a ocjena mi treba da prodem

 

Napisati program koji ocitava neki prirodan broj i broji koliko jedinica ima u binarnom zapisu tog broja.