Question

Zadania do zrobienia w programie Turbo Pascalu. 1. Napisz program, który policzy średnią określonej ilości liczb . Ma się zaczynać tak: PROGRAM średnia; VAR liczba:real,wartość:real, i:byte; BEGIN writeln('Podaj z ilu liczb chcesz obliczyć średnią'); readln(liczba); FOR .... i dalej nie wiem

2. Napisz program, który osobie znającej hasło poda tajemniczą informację, a takiej która nie zna hasła informację o odnowie dostępu. Ma się zaczynać tak: PROGRAM hasło; VAR hasło:real; BEGIN writeln('podaj hasło'); Read(hasło); IF .... co dalej nie wiem

3. Napisz program, który czyta imię osoby i zgaduje jej płeć Zaczyna się tak: PROGRAM płeć; VAR imię:real; BEGIN writeln('Podaj imię'); .... co dalej napisz ;p Proszę o pomoc to pilnee!!!!

Answer 1

No to tak..

 

1. polskie znaki mi tu jakos nie pasują "średnia", "wartość", po za tym "liczba:real,wartość:real" zapisuje się jako "liczba,wartosc:real;". Oprócz tego.. wczytujesz ilosc podawanych liczb do zmiennej typu "real".. no ciekawe jak potem chcesz zastosowac petle for..

 

Program:

PROGRAM srednia;

Var
 liczba:integer;
 wartosc,suma:real;
 i:byte;

Begin
 WriteLn('Podaj z ilu liczb chcesz obliczyc srednia: ');
 ReadLn(liczba);
 suma:=0;
 For i:=1 to liczba do
  Begin
   ReadLn(wartosc);
   suma:=suma+wartosc;
  End;
 WriteLn('Srednia tych liczb to: ',suma/liczba:0:3);
 ReadLn;
End.

 

2. Znów to samo.. polskie znaki. Haslo wczytywane do zmiennej typu "real"? To chyba jakis PIN, no ale prosze :) Po za tym taka uwaga: nazwa programu i nazwy zmiennych nie mogą być takie same

 

Program:

PROGRAM hasloo;

Var haslo:real;

Begin
 WriteLn('Podaj haslo: ');
 ReadLn(haslo);
 if haslo=23 then writeln('tajne info')
             else writeln('bledne haslo');
 readln;
End.

 

3. Bledy te same co wyzej i jeden dodatkowy :) Imie typu real? No tego nie potrafie pojąć, więc zmieniam na string. Nie znam nikogo kto by mial na imie np. "czternaście"

 

Program:

PROGRAM plec;

VAR imie:string;

BEGIN
 writeln('Podaj imię: ');
 readln(imie);
 if (imie[length(imie)]='a') then writeln('Kobieta') else writeln('Mezczyzna');
 readln;
END.