2zadania z informatyki(pascal)

GT4R · Post autor: **GT4R** » 4 mar 2007, o 20:29

Zadanie1:
Dana jest liczba k typu Word. Napisz program, który wyznaczy sume liczb naturalnych ze zbioru {0,1,...,k}. (pętla For To Do) help

Zadanie2:
Dane są liczby naturalne: n i k typu Byte. Napisz program, który wyznaczy wartość potęgi Nk(n do k) (FOR TO DO)

PROSZE O JAK NAJSZYBSZA POMOC

kolanko · Post autor: **kolanko** » 4 mar 2007, o 20:46

pokaz ile masz to dopisze kawalek

GT4R · Post autor: **GT4R** » 4 mar 2007, o 20:49

nie mam nic help

pascal · Post autor: **pascal** » 4 mar 2007, o 21:34

Program pierwszy to :
program liczby;
uses CRT;
var
k:word;
i,suma:integer;
begin
clrscr;
write('Podaj dlugosc ciagu: ');
readln(k);
suma:=0;
for i:=1 to k do
suma:=suma+i;

writeln;
write('Suma liczb naturalnych to: ',suma);
readln;
end.

Drugi:
program potega;
uses CRT;
var
n,k:byte;
pot,i:integer;
begin
clrscr;
write ('Podaj liczbe: ');
readln(n);
write ('Podaj wykladnik: ');
readln(k);
pot:=1;
for i:=1 to k do
pot := pot*n;
writeln (n, '^', k, ' = ',pot);
readln;
end.

[ Dodano: 4 Marzec 2007, 21:52 ]
Sprawdzałem - wszystko działa.

kadiii · Post autor: **kadiii** » 5 mar 2007, o 22:07

Widzę, że na forum coraz więcej postów typu - zrób to za mnie bo mi się nie chce. Rozumiem jakby ktoś napisał np. przeczytałem sobie krótki kursik pascala i nie rozumiem tego i tego; albo wklejam kodzik bo mi coś nie działa pomóżcie znaleźć błąd... wiecie można wypisywać gotowce, ale to nie ma sensu - jak się czegoś nie przemyśli to potem nie będziesz umiał tego robić i potem... Ćwiczenie czyni mistrza (To tylko tak na marginesie uwaga, nie jest to bynajmniej żadna złośliwość, a raczej rodzaj rady) Pozdrawiam wszystkich(i tych leniwych też)

pascal · Post autor: **pascal** » 6 mar 2007, o 11:55

W sumie masz rację kadiii . Ale sam napisał, że nic nie ma, więc ...