Question

1. Napisz program, który wyświetli imię i nazwisko oraz w dwóch wierszach adres. Każdą informację wypisz w osobnej instrukcji. Wyświetl typowo polskie litery. Wyświetl liczbę 20 i liczbę 3.14 Wyświetl wynik dzielenia (/) liczb 10 i 2 {tj. writeln(10/2);}. Teraz wyświetl dwie ostatnie liczby z dwiema cyframi po przecinku. 2. Napisz program, którego działanie będzie polegało na obliczeniu wartości wyrażenia: w=(x+y)/6 dla x=34 i y=56,78. Wynik oblicz z dokładnością do dwóch miejsc po przecinku. turbo pascal

Answer 1

program cos;
uses crt;
var imie,nazwisko:string;
x:real;
begin
Writeln('Podaj imie i nazwisko');
readln(imie,nazwisko);
Writeln('Twoje Imie i Nazwisko To : ',imie,' ',nazwisko);
Writeln('');
x:=3.14;
Writeln('Liczba ', 20 ,' oraz liczbe ', x:3:2);
Writeln('');
Writeln('');
Writeln('Dzielenie 10 przez 2 to: ',10 div 2);

readkey;
end.

Łap tyle narazie ;)

PS. O co dokładnie chodzi w "Teraz wyświetl dwie ostatnie liczby z dwiema cyframi po przecinku. "  jeśli ma wyświetlać byle co w formacie 23.23 to dopisz po  Writeln(10 div 2); to Writeln('23.23');

 

zadanie 2 to

program obl;
uses crt;
var w,x,y:real;
begin
x:=34;
y:=56.78;
w:=(x+y)/6;
writeln(w:10:2);
readkey;
end.

Pozdrawiam ; )