Darmowe Forum

Zadanie 1. ProszĂŞ przepisaĂŚ kod programu i narysowaĂŚ jego algorytm

program PowitanieAski;

begin                                 { poczÂątek programu }
 writeln('Witam Cie!')             { wypisz tekst }
end.

Zadanie 2. ProszĂŞ przepisaĂŚ kod programu i narysowaĂŚ jego algorytm

program Mnozenie;
uses crt,dos;

begin
  writeln(2*2);
end.

Zadanie 3. ProszĂŞ przepisaĂŚ kod programu i narysowaĂŚ jego algorytm
program Napisy;
uses crt, dos;   

begin
  writeln('Te dwa napisy');
  writeln('znajdujÂą sie w kolejnych wierszach.');
  writeln;                                                             { wiersz odstĂŞpu }
  write('Ale te dwa napisy znajduja sie ');
  writeln('w tym samym wierszu.')                           { przed end. nie musi byĂŚ Âśrednika }
end.

Zadanie 4. ProszĂŞ przepisaĂŚ kod programu i narysowaĂŚ jego algorytm

program Mnoz;
                                                       {Program mno¿¹cy dwie dowolne liczby }
uses crt,dos;
var
  Liczba1, Liczba2 : real;

begin
  readln(Liczba1);                             { odczytaj liczby z klawiatury }
  readln(Liczba2);
  writeln(Liczba1*Liczba2);                 { wyÂświetl ich iloczyn }
end.
Zadanie 5. ProszĂŞ przepisaĂŚ kod programu i narysowaĂŚ jego algorytm

program Mnozenie2;
uses crt,dos;

var
  Liczba1, Liczba2 : real;

begin
  write('Podaj pierwszÂą liczbe: ');    { dodano }
  readln(Liczba1);
  write('Podaj drugÂą liczbĂŞ: ');       { dodano }
  readln(Liczba2);
  writeln('Iloczyn podanych liczb wynosi ', Liczba1*Liczba2);
  readkey                                    {zatrzymaj program do czasu wciÂśniĂŞcia klawisza}
end.

Zadanie 6. ProszĂŞ narysowaĂŚ algorytm ktĂłry na ekranie wyÂświetli poprosi o podanie imienia i nazwiska i wnastĂŞpnie wyÂświetli je na ekranie