Anonymní profil JuReeeC – Programujte.com

Mám zadání programu:

SESTAVTE PROCEDURU PRO NALEZENI NEJVETSIHO CISLA V DANEM POLI O N CISLECH
    A URCENI JEHO INDEXU. POUZIJTE TETO PROCEDURY PRO RESENI TETO ULOHY:
    JE DANO N CISEL (N<=100). VYTISKNETE JE V PORADI OD NEJVETSIHO DO NEJMENSIHO TAK
    ZE NEJPRVE NAJDETE NEJVETSI CISLO, ZE ZBYTKU OPET NEJVETSI, ATD. AZ DO
    POSLEDNIHO. PROVEDTE PRO TYTO SKUPINY:
    -1,7,-8,9,-3,0,4;  0,2,5,-1,-3,-6,7,9,-2.

Tady jsem vyzkoušel řešení:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  tpole=array[1..100] of integer;
var z:tpole;
    e,y,n,i,m:integer;

procedure maximum (a:tpole;q:integer;var max,index:integer);
var
    k:integer;
begin
max:=a[1];
   index:=1;
   for k:=2 to q do
      if a[k]>max then begin
         max:=a[k];
         index:=k;
      end;
end;

begin
   write ('zadej pocet prvku posloupnosti: ');
   readln (n);
   for i:=1 to n do begin
      write ('zadej prvek a[',i,']: ');
      readln (z[i]);
   end;
   m:=z[1];
   for i:=1 to n do
      if m>z[i] then m:=z[i];
   for i:=1 to n do begin
      maximum (z,n,e,y);
      writeln (e);
      z[y]:=m;
   end;
   writeln;
   writeln ('stiskni klavesu "enter"');
   readln;
end.
  { TODO -oUser -cConsole Main : Insert code here }
end.

JE TO SPRÁVNĚ? A ještě bych potřeboval poradit s tímto:

POSLEDNIHO. PROVEDTE PRO TYTO SKUPINY:
    -1,7,-8,9,-3,0,4;  0,2,5,-1,-3,-6,7,9,-2.

Co to znamená? Děkuji za ověření a za případné připomínky

Chci se zeptat, toto je program napsaný v Pascalu?

program CISLA14(VSTUP,VYSTUP);
const N=20; {počet čísel}
type CIS=array[1..N] of real;
var  I,J:integer;
   CISLA:CIS;
   VSTUP,VYSTUP:text;
begin
assign(VSTUP,'cisla.dat');
assign(VYSTUP,'cisla.vys');
reset(VSTUP);
rewrite(VYSTUP);
writeln(VYSTUP,' Zadaných 20 čísel:');
writeln(VYSTUP);
for I:=1 to N do begin
  read(VSTUP,CISLA[I]);
  write(VYSTUP,CISLA[I]:8:2);
  if (I mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{v opačném pořadí}
writeln(VYSTUP,' Zadaných 20 čísel v opačném pořadí:');
writeln(VYSTUP);
for I:=N downto 1 do begin
  write(VYSTUP,CISLA[I]:8:2);
  if ((I-1) mod 5)=0 then writeln(VYSTUP);
end;
writeln(VYSTUP);
{všechna čísla menší než číslo první}
writeln(VYSTUP,' Všechna čísla menší než číslo první t.j.:',CISLA[1]:8:2);
writeln(VYSTUP);
J:=0;
for I:=2 to N do
  if CISLA[I]<CISLA[1] then begin
   J:=J+1;
   write(VYSTUP,CISLA[I]:8:2);
   if (J mod 5)=0 then writeln(VYSTUP);
  end;
close(VSTUP);
close(VYSTUP);
end.

Tak program uznaný, ted' se vrhnu na tvoje úkoly :)

#69 JoDiK
Jo máš pravdu    chybka se vloudila

#66 JoDiK

Mám správně ten vývoják k tomu? Snad jo :)

Nic s bitama ve škole neřešíme, toto slyším poprvé, právě z takového hlediska to vůbec neberem a to mě dost štve. Řešíme jen matematické úlohy, do hloubky nic.

Jo to jo, ale jen by mě zajímalo, proč jsem tam dal to 1 a 0. Proč zrovna tyto dvě hodnoty proměnných?

Super, už to funguje. Ale moc jsem nepochopil, jaký je v tom rozdíl. Když boolean pracuje s hodnotou 0 a 1, tak to je to stejné, kde je rozdíl?

#58 zlz
a to mám napsat kde? nebo spíš co změnit? snažím se o všechny varianty a furt mě to nechce pustit

Jako takhle:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  c1,c2,klesajici:Integer;
begin
  klesajici:=1;  { nastav klesající jako pravda }
  write('Zadej cislo:');
  readln(c1);   { přečti první číslo }
  write('Zadej cislo:');
  readln(c2);   { přečti další (druhé) číslo }
  While c2 <> 0 do      { dokud další číslo není nula opakuj }
  begin
    If c2 >= c1 Then
      klesajici:=0;
     { jestli další číslo není menší než předchozí tak nastav klesající jako nepravda }
    c1:=c2;   { ulož další číslo jako nové předchozí }
    write('Zadej cislo:');
    readln(c2);  { přečti další číslo }
  end;
  if klesajici { vypiš výsledek zkoumání} then
    writeln ('Posloupnost je klesajici')
  else
    writeln ('Posloupnost neni klesajici');

  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn;
end.

u toho if klesajici then mi to vypíše, že to musí být boolean

Ještě se chci zeptat zpátky k tomu programu, my jsme ve škole ještě nedělali boolean, jak bych to měl profesorce vysvětlit? Vím, že to je logická proměnná, která se používá při těchto typech př, kde se musí rozhodnout ano, ne.

Chci se zeptat, ten program můžu měnit nebo jenom doplňovat nové věci do toho? Tady bych to c dal If c<0 Then atd

Ok, to teda mám:

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
    If c=0 Then
      WriteLn('Ano, cislo je nula')
    Else
      WriteLn('Cislo neni nula');
{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
  begin
    If c=0 Then
      WriteLn('Ano, cislo je nula');
  end;
  begin
    If c>0 Then
      WriteLn('Cislo neni nula');
  end;
{ zkoumani, jestli je zadane cislo ulozene v promenne c nulove

  vypiš buď text "zadané číslo je nulové" nebo "zadané číslo není nulové" }
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

úkol č.2:

program Project12;

{$APPTYPE CONSOLE}

var
  c:Integer;  { promenna pro cele cislo }
begin
  write('Zadej cele cislo: '); { vypis textu na obrazovku }
  readln(c);  { cteni cisla z klavesnice, zadane cislo se ulozi do promenne c }
  writeln('Bylo zadano cislo:',c); { kontrolni vypis zadaneho cisla }
  begin
    If c=0 Then { zkoumani, jestli je zadane cislo ulozene v promenne c nulove}
      WriteLn('Ano, cislo je nula');
  end;
  { TODO -oUser -cConsole Main : Insert code here }
  ReadLn
end.

#27 JoDiK
Když už jsem přečetl hodnotu, místo číselné to bylo sice A a to jsem i vypsal na obrazovku. Nepochopil jsem co tím myslíš

Nevím, zkouším to a prostě na to nepříjdu 

Tak jak mi to napsal on rozumně, tak tomu rozumím co tam probíhá, ale když mi zadáš úkol tak je pro mě celkem těžké, to sám udělat, proto chci od tebe pomoc. Snažím se udělat co po mě žádáš

úkol 1:

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  I:Integer;
begin
  I:=1;
  { TODO -oUser -cConsole Main : Insert code here }
end.

#17 Honzc
for I:=1 to N-1 do
if A[I]<A[I+1] then begin
POM:=A[I];
A[I]:=A[I+1];
A[I+1]:=POM;
end;

to už jsem tu dával, ale Jodik říkal, že to je úplně něco jiného, než mám v zadání

JoDiKu, tady přikládám tvůj úkol ze začátku:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  A:Real;
begin
  {èíslo,které jsi chtìl}
  ReadLn(A);
  WriteLn(A:7:2);
  { TODO -oUser -cConsole Main : Insert code here }
end.

napsal jsem číslo a vypsalo ho, co dál?

#14 JoDiK
Dobře, díky, zkusím to zítra trochu zapsat a kdyby to nešlo, tak se na tebe obrátím, díky moc 

#12 JoDiK
Zkusím mrknout do skript a projedu si tady ty cvičení, pokud' mi to stále nepůjde, tak se na tebe obrátím, i když mi radíš jenom teoriticky a v mém případě to moc nepomáhá    tak ti prozatím děkuji

#9 JoDiK
kurňa, můžeš mi říct, kde je chyba? Aspoň trochu polopatě vysvětlit, snažím se na to přijít, bude se to dělat bublinkovým řazením mám pravdu?

#7 JoDiK
Máš pravdu, zkopíroval jsem program co jsme dělali ve škole, podle mě to bude vypadat nějak takhle:

for I:=1 to N-1 do
if A[I]>A[I+1] then begin
POM:=A[I];
A[I]:=A[I+1];
A[I+1]:=POM;
end;

zatím jsem v této fázi, je to dobře? Jde vidět, že tomu hodně rozumíš, já měl teprv 5 cvik a hned na nás vybalily program 

#4 JoDiK
Mám skoro hotovo, ale bohužel jsem se zasekl a nevím kde je chyba, mohl byses na to kouknout? Dám přepis do Delphi

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
i,n,min,min1:integer;
a:array [1..100] of integer;

procedure prd;

begin
n:=3;
a[1]:=3;
a[2]:=1;
a[3]:=2;

min:=maxint;

for i:=1 to n do
if a[i]<min then min:=a[i];

for i:=1 to n do
if a[i]=min then begin write(a[i]); writeln(' ', i);  min1:=maxint; min:=a[i]; end;

for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];

end;
for i:=1 to n do
  if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;

  for i:=1 to n do
if a[i]>min then begin if a[i]<min1 then min1:=a[i];

end;
for i:=1 to n do
  if a[i]=min1 then begin write(a[i]); writeln(' ', i); min1:=maxint; min:=a[i]; end;
end;

begin
prd;
readln
end.

#2 JoDiK
S řešením celého programu, moc si s tím nevím rady

Potřeboval bych pomoct s tímto zadáním, neví někdo jak na to?

Program načte neprázdnou posloupnost celých nenulových čísel ukončenou číslem nula a zjistí, zda je tato posloupnost klesající (další číslo vždy menší než předchozí).