SVARBU! Pradedantiesiems programuotojams!

program figuros;

uses Crt, Graph;

const Vieta ='';

ar pas tave jis prie paskalio buvo?

program figuros;

uses Crt, Graph;

const Vieta ='';

 

ar pas tave jis prie paskalio buvo?

O jis butinas?

Duotas masyvas A(n) ir skaičius L. Didžiausią ir mažiausią msyvo elementus pakeisti skaičiumi L. Pradinius duomenis spausdinti lentele.

Parasiau taip, bet nebezinau kaip parashyt proceduroj "pirmas", kad atspausdintu tuos elementus pakeites mazhiausia ir didziausia elementus i kita skaiciu .

program masyvo_elementu_keitimas;

uses crt;

type mas=array [1..100,1..100] of integer;

var i, j, n, k: integer;

a:mas;

procedure ivesti(n:integer; var a:mas);

begin

for i:=1 to n do

for j:=1 to n do

a[i,j]:=random(20)-10;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]:7);

writeln;

end;

end;

procedure pirmas(n:integer; var a:mas);

var max,min:integer;

begin

for i := 1 to n do

begin

max := 0;

min:=0;

for j := 1 to n do

if a[i,j] > max then max := k;

if a[i,j]< min then min := k;

for i:=1 to n do

begin

for j:=1 to n do

end;

end;

begin

clrscr;

randomize;

write('Iveskite kiek eiluciu ir stulpeliu bus: ',n);

readln(n);

Write('Iveskite skaiciu kuriuo keisite didziausia ir maziausia masyvo elementus: ',k);

readln(k);

writeln;

ivesti(n,a);

writeln('**************************************************');

writeln('Pakeitus didziausia elementa, skaiciumi ', k, ' masyvas bus toks: ');

pirmas(n,a);

writeln('**************************************************');

readln;

end.

procedure pirmas(n:integer; var a:mas);

var max,min:integer;

begin

for i := 1 to n do

begin

max := 0;

min:=0;

for j := 1 to n do

if a[i,j] > max then max := k;

if a[i,j]< min then min := k;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]);

writeln;

end;

end;

procedure pirmas(n:integer; var a:mas);

var max,min:integer;

begin

for i := 1 to n do

begin

max := 0;

min:=0;

for j := 1 to n do

if a[i,j] > max then max := k;

if a[i,j]< min then min := k;

for i:=1 to n do

begin

for j:=1 to n do

write(a[i,j]);

writeln;

end;

end;

Ash irgi taip buvau padarius bet kad nerasho to ko man reikia...

o tai ko tau reikia?

o tai ko tau reikia?

Chia perrasho ta pachia matrica, o reikia kad perrashytu jau pertvarkyta matrica kur vietoj mazhiausio ir didzhiausio jos elemento butu irashytas duotas skaichius k.

procedure pirmas(n:integer; var a:mas);
var max,min:integer;
begin
for i := 1 to n do
begin
max := 0;
min:=0;
for j := 1 to n do
if a[i,j] > max then max := j;
if a[i,j]< min then min := j;

a[i, max] := k;
a[i, min] := k;
end;

for i:=1 to n do
begin
for j:=1 to n do
write(a[i,j]);
writeln;
end;
end;

Darbas su Moduliu CRT

Sudaryti programą kalkuliatorius, kuri imituotų kalkuliatoriaus su 4 operacijomis darbą.

Nuo ko pradeti?

O ką su ta CRT turėsi daryti? Spalvas nebent keisti.

Sveiki, sry kad prikėliau seną temą, bet gal kas gali padėt su pascalio uždaviniu? Sąlyga tokia : duotas naturalusis skaičius ar skaičius dalijasi iš visų savo skaitmenų? Būtų gerai jei kas padėtumėt užlipt ant kelio toliau gal pats susigaudysiu kaip nors.

bacelis čia kaip supratau pvz : 4152 ar dalijasi iš 2, 5, 1, 4 ?