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