Pagalba del pascal

Užduotis

Parašyti programa kuri ras kiek kartu įvestame sakinyje arba žodyje yra raidžiu k

kur pabaigoj bus parašomas rezultatas " writeln (' Raidziu k -', *); "

Kas padės busiu lb dėkingas

Galėčiau parašyt už kelis litus :)

uz kelis litus nebent pora užduociu

Užduotis

Parašyti programa kuri ras kiek kartu įvestame sakinyje arba žodyje yra raidžiu k

kur pabaigoj bus parašomas rezultatas " writeln (' Raidziu k -', *); "

 

Kas padės busiu lb dėkingas

Prasom ;)

program randak;
var
   sum:integer;
   sak: string[200];
   i:integer;
   raide: string[1];
begin
readln(sak);
sum:=0;
   for i:=1 to 200 do begin
   raide:=sak[i];
   if raide = 'k' then begin
                          sum:=sum+1;
                         end;
   end;


writeln('Raidziu k - ', sum);

readln();
readln();
end.

O kas jeigu įvestas sakinys viršija 200 simbolių? Ir dar jeigu yra K didžiųjų?

Geriau taip daryt:

program programa;

var sakinys:string;
   i, k:integer;
Begin
readln(sakinys);

k := 0;
for i:=1 to length(sakinys) do
   if (ord(sakinys[i]) = 107) or (ord(sakinys[i]) = 75) then
       k+=1;
writeln('k = ', k);
readln;
End.

Aciu :)

O kas jeigu įvestas sakinys viršija 200 simbolių? Ir dar jeigu yra K didžiųjų?

Geriau taip daryt:

program programa;

var sakinys:string;
   i, k:integer;
Begin
readln(sakinys);

k := 0;
for i:=1 to length(sakinys) do
   if (ord(sakinys[i]) = 107) or (ord(sakinys[i]) = 75) then
       k+=1;
writeln('k = ', k);
readln;
End.

Ką grąžina 'length(sakinys)'?

var
 kCount : longint; // Ar koks ten paskalyje
 ch : char;
begin
 kCount = 0;
 repeat
   read(ch);
   if (ch = 'k') OR (ch = 'K') then // Čia, galimas daiktas, reikia ORD() funkcijos.
      kCount := kCount + 1;
 until ch = 10 // 10 == '\n', aka Line Feed.

 writeln('k/K raidziu: ', kCount);
end.

Sveiki gal galit padeti isprest siuos uzdavinius?

1. Naujai pastatyto tilto keliamoji galia T tonų. Tilto ilgis L metrų. Yra dvi eismo juostos. Ar tilto maksimali apkrova nevirsys keliamosios galios? Bandymai vykdomi sustatant vieną prie kitos be tarpo dviejų tipų masinas: ilgas ir trumpas. Trumpiausios masinos ilgis Rt metrų ir svoris St tonų. Ilgiausia masina yra Rl metrų ir svoris Sl tonų. Ilgųjų ir trumpųjų masinų skaičiai gali būti bet kokie. Parasykite programą, kuri analizuotų N tiltų galią.

2. Petriukas spalio 12 d. 11 val. 30 min. nusipirko slides ir ėmė laukti sniego. Snigti pradėjo sausio 25 d. 9 val. 14 min. Kiek minučių Petriukas laukė sniego?

Sveiki gal galit padeti isprest siuos uzdavinius?

1. Naujai pastatyto tilto keliamoji galia T tonų. Tilto ilgis L metrų. Yra dvi eismo juostos. Ar tilto maksimali apkrova nevirsys keliamosios galios? Bandymai vykdomi sustatant vieną prie kitos be tarpo dviejų tipų masinas: ilgas ir trumpas. Trumpiausios masinos ilgis Rt metrų ir svoris St tonų. Ilgiausia masina yra Rl metrų ir svoris Sl tonų. Ilgųjų ir trumpųjų masinų skaičiai gali būti bet kokie. Parasykite programą, kuri analizuotų N tiltų galią.

 

2. Petriukas spalio 12 d. 11 val. 30 min. nusipirko slides ir ėmė laukti sniego. Snigti pradėjo sausio 25 d. 9 val. 14 min. Kiek minučių Petriukas laukė sniego?

Dėl pirmo, tai daraisi funkcija, kuri grąžina kiek telpa x svorio, y ilgio mašinų z ilgio tilte, kvieti ją du kartus - kad suskaičiuot su ilgiausiom ir su trumpiausiom. Tada lygini, jei kuris nors didesnis už T, tada rašai, kad ne kažką. :-)