Cinkupis
-
Pranešimai
2 -
Užsiregistravo
-
Lankėsi
-
Atsiliepimai
0%
Turinio tipas
Forumas
Kalendorius
Parduotuvė
Akademija
Skelbimai
Cinkupis Pranešimai
-
-
Sveiki, mokausi c++ programavimo savarankiškai iš knygos "Programavimas C++" išleistos Kauno Technologijos Universiteto. Mane domintų ar yra uždavinynų c++ programavimui, kuriuos būtų galima įsigyti (nusipirkti), gali būti nebūtinai lietuvių kalba, nes moku ir anglų. Per knygynus neveikščiojau ir dar nespėjau pasidomėti. Pradėjau c++ programavimą šią savaitę (nors turiu patirties Java, Pascal ir truputį PHP/Python kalbose), kol kas moku dirbti tik su konsole - matematiniai skaičiavimai, darbas su failais, srautai, ciklai, sąlyginiai sakiniai ir pan. Būtent iš to dabar ir domina užduotys, aišku galiu jų pasiieškoti internete, bet man mieliau yra popierinė versija, jei tokių yra.
Beje, ar yra knygų skirtų mokytis programuoti 2D/3D programas su API - SDL/Allegro/SFML?
Taip pat planuoju studijuoti programų sistemas KTU univere. Klausimas dėl šito būtų kokios yra studijavimo galimybės šia specialybe užsienyje - Danija / Olandija / Jungtinė Karalystė (tik šios šalys domina) - ar studijos kokybiškos? (domina universitetai orientuoti į praktiką) Gal yra nusimanančių apie universitetus ir galinčių plačiau pašnekėti ta tema, o gal net yra ir besimokančių ar baigusių užsienyje?
Paskutinis klausimas - ar apsimoka siekti Magistrantūros/Doktorantūros programų sistemose (Software Engineering)?
Dėkoju už atsakymus.
Gal pagelbėtumete su pascaliu ?
Programuotojų kampas
Atrašyta · Redagavo Cinkupis
Štai ir mano versija pirmos užduoties:
program UzduotisNr1;
var
coliai, pedos, jardai : real;
metras : integer;
function MetraiToColiai(metrai: real): real;
const colis = 2.54;
begin
MetraiToColiai := (metrai * 100) / colis;
end;
begin
for metras := 1 to 5 do
begin
Coliai := MetraiToColiai(metras);
Pedos := Coliai / 12;
Jardai := Pedos / 3;
writeln('Metrai: ', metras, ' - Coliai: ', coliai:2:2,
' - Pëdos: ', pedos:2:2, ' - Jardai: ', jardai:2:2);
end;
Readln;
end.
O štai ir antra užduotis:
program UzduotisNr2;
var
n, //ukininkai
k, //ciklui kintamasis
kiekis, //bendras litrų kiekis
penki, du, vienas : integer; //talpa litrais
textas : text;
procedure penkiLitr(var litrai:integer);
begin
penki += 1;
litrai -= 5;
end;
procedure duLitr(var litrai:integer);
begin
du += 1;
litrai -= 2;
end;
procedure skaiciavimas(var litrai:integer);
begin
penki := 0;
du := 0;
vienas := 0;
while litrai >= 5 do penkiLitr(litrai);
if litrai >= 2 then
begin
while litrai > 1 do duLitr(litrai);
end;
if litrai = 1 then vienas := 1;
writeln(penki, ' ', du, ' ', vienas);
end;
begin
assign(textas, 'C:\Duomenys.txt'); //Direktoriją ir failo pavadinimą pasikeisk pagal poreikį
reset(textas);
Readln(textas, n);
for k := 1 to n do
begin
readln(textas, kiekis);
skaiciavimas(kiekis);
end;
close(textas);
readln;
end.