www.ispwsznysa.fora.pl

Proszę o zamieszczenie zdjęcia ze wzorem wpisu do indeksu .

Gratuluje zaliczeń. Pierwsze koło na studiach w PWSZ za nami Smile

Oby tak dalej Smile

Te notatki juz mam. Bedziesz cos skanował jeszcze czy uczysz sie tylko tego.
Jezeli ma ktos wszystkie notatki z marketingu to prosze wziac zeszyt w piatek, bo chcialbym sobie skserowac. Pozdro

Przyłączam się do gratulacji.

Roy z marketingu masz tylko to co na stronie??

qwerty4.bat

if exist test%1 goto KOPIUJ
echo NIE MA KATALOGU %1
goto KONIEC
:KOPIUJ
copy c:\psk1\x.txt c:\psk\test%1
echo Skopiowano do katalogu test%1
goto KONIEC
:KONIEC

qwerty3.bak

echo off
c:
cd\
cls
cd psk1
dir > x.txt
echo === Tworze foldery ...
for /L %%i in (1,3,31) do md test%%i
for /L %%i in (1,1,31) do call qwerty4.bat %%i

pause

Ale bonusow podrzuciles Smile

Konwersja tylko dodatnich

program zad2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica=array[1..50] of char;

procedure konwersja(a:integer;var licz:integer;var bin:tablica);
begi ...

Konwersja dziesietnych na binarne, nie wiem czy trzeba bylo zrobic dla liczb ujemnych.Ten program dziala tylko dla dodatnich.
program zad1;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tablica ...

program zad5;

{$APPTYPE CONSOLE}

type
tablica=array[1..10,1..10] of integer;
var
tab:tablica;
q:char;
suma,x,y:integer;

procedure wypelnij(var tab:tablica;x,y:integer);
var
i,j:integer ...

program zad4;

{$APPTYPE CONSOLE}

type
tablica=array[1..5,1..5] of integer;
var
tab:tablica;
q:char;
suma,min,kol:integer;

procedure wypelnij(var tab:tablica);
var
i,j:integer;
begin
...

Nie wiem czy trzeba bylo ale zadanie zrobione na procedurach

program zad3;

{$APPTYPE CONSOLE}

type
tablica=array[1..10] of integer;
var
tab:tablica;
q:char;
suma,suma1:integer;

proced ...

Moje rozwiązanie zadania z kartkówki:

program kartkowka;

{$APPTYPE CONSOLE}

uses
SysUtils;

type
tab=array[1..15] of integer;

procedure wypelnij (var tablica:tab);
var
k:integer;
...

Jezeli ktos ma notatki w formie elektronicznej to prosze o zamieszczenie. Z gory dzieki Smile