Niezalogowany (Zaloguj się)
WItaj Gościu! Możesz się teraz zalogować lub poprosić o członkowstwo na Forum Turbo Pascal Web Pag

Turbo Pascal: Problemy pierwszej klasy technikum

W dół

Od 1 do 5 z 5

  1.  
    • CommentAuthorKitek
    • CommentTime19 Jan 2008 zmieniony
     
    Witam, mam problem z programami ,gdyż mój profesor z programowania w 1 klasie technikum, zadał nam do napisania 15 różnych programów do wykonania. Chciałbym powiedzieć, że owe programy są napisane instrukcjami których dopiero mieliśmy przerabiac więć nie mam pojęcia jak się ze to zabrać przechodząc do programów będę bardzo wdzięczny za choć jeden program, i chce podkreślic że nie wynika to z mojego lenistwa tylko z nie wiedzy.

    -Napisz program wyprowadzający na ekran znaki ASCII o numerach ze zakresu 32-255. Do wykonania programu zastosuj obligatoryjnir pętle for, zmienna i Chr (i).
    -Napisz program wprowadzający n liczb rzeczywistych obliczający dla każdej z nich kwadrat ich sześcian liczby. Program powinien zapraszać użytkownika do podania kolejnej liczby i wprowadzając dane w następującym formacie :w jednym wierszu zawarte są numer liczby , wartość liczby, kwadrat liczby ,szescian liczby. program ma kończyć działanie zgodnie z wprowadzonymi danymi. zastosować pętle for.
    -Npiasz program podający sumę ciągu liczb wprowadzanego przez użytkownika . Program ma zapytać użytkownika o liczbę liczb do i umożliwić wprowadzenie tych liczb .zastosować petlę for.
    -Napisać program obliczający iloczyn wprowadzonych przez użytkownika liczb
    Dane wejściowe
    liczba danych oraz kolejne elementy ciągu
    Wynik
    odpowiednio zformatowany iloczyn elementów ciągłych
    -Napisz pgoram wyświetlający na ekranie w czterech rzędach liczby liczby od 1 do 1000 podzielne przez 11
    -Napisz program wyświetlający w 3 rzędach kwadraty liczb od 1 do 20 a następnie w 2 rzędach sześciany liczb od 1 do 10
    -Napisz program wyświetlający po 20 razy litery od a do g obligatoryjnie zastosować 2 pętle
    -Napisz pgram prezetujący naekranie w 3 rzędach tabliczkę mnożenia od 1 do 20
    -Napisz program obliczający liczbę dni do wakacji parametrem wejściowym jest data. Zastosowując instrukcje for oraz next
    -Napisz program średnią ocen , parametry wejściowe liczba ocen,oceny parametrem wyjściowym :średnia ocen sformatowana do 2 miejsc po przecinku.
    -Napisz program obliczający średnia klasy. parametry wejściowe liczba uczniów w klasie imie i nazwisko każdego ucznia , liczba ocen ucznia i oceny wszystkich uczniów parametry wyjściowe średnia klasy

    Za każdy program bardzo dziękuje.
    • CommentAuthorsteficzek
    • CommentTime20 Jan 2008 zmieniony
     

    1. Program Ascii; Var i : Integer; Begin for i:=32 to 255 do Write(i:4,Chr(i)) End.
    2. Program Kwadrat; Var i,n : Integer; Liczba : Real; Begin Write('Podaj ilosc cyfr:'); Readln(n); for i:=1 to n do begin Write('Podaj liczbe nr.',i,' :'); Read(Liczba); Write('Kwardrat:',Liczba*Liczba:0:2); Writeln(' Szescian:',Liczba*Liczba*Liczba:0:2) end; Readln End.
    3. Program CiagLiczb; Var i,n : Integer; Wynik,Liczba : Real; Begin Wynik:=0; Write('Podaj ilosc cyfr w ciĄgu:'); Readln(n); for i:=1 to n do begin Write('Podaj liczbe nr.',i,' :'); Readln(Liczba); Wynik:=Wynik+Liczba end; Writeln('Wynik:',Wynik:0:2); Readln End.
    4. Program Iloczyn; Var i,n : Integer; Wynik,Liczba : Real; Begin Write('Podaj ilosc cyfr:'); Readln(n); Write('Podaj liczbe nr.1 :'); Readln(Liczba); Wynik:=Liczba; if n>1 then for i:=2 to n do begin Write('Podaj liczbe nr.',i,' :'); Readln(Liczba); Wynik:=Wynik*Liczba end; Writeln('Wynik:',Wynik:0:2); Readln End.
    5. Program Tysiac_Jedenascie; Var i : Integer; Begin for i:=1 to 1000 do if i mod 11=0 then Write(i:4); End.
    6. Program Kwadrat_i_Szesc; Var i : Integer; Begin for i:=1 to 20 do Write(i*i,','); Writeln; for i:=1 to 10 do Write(i*i*i,',') End.
    7. Program Od_A_do_G; Var j : Integer; Znak : char; Begin for j:=1 to 20 do begin for Znak:='a' to 'g' do Write(Znak); Writeln end End.
    8. Program Tabliczka_Mnozenia; Var i,j : Integer; Begin for j:=1 to 20 do for i:=1 to 20 do Write(i*j:4) End.

    Znudziło mi się już przy ósmym zadaniu - reszte dasz radę napisać opierając się na przytoczonych rozwiązaniach
    Programy nie są idiotoodporne i wykrzaczają się po wpisaniu błędnych danych, celowo pominąłem sprawdzanie danych żeby nie zaciemniać właściwego kodu
    Pozdrawiam Stefan Pruszkiewicz
    • CommentAuthorKitek
    • CommentTime23 Jan 2008
     
    dziękuje za pomoc.
    • CommentAuthorNEO25
    • CommentTime1 Feb 2008
     
    Czesc mam prosbe gdzie znalesc informacje tzn.pojecia o pascalu-podstawy zlecenia i o metodach sortowania ? a moze ty masz takie informacje?
    • CommentAuthorsteficzek
    • CommentTime1 Feb 2008
     

    Kto szuka nie błądzi
    Szukajcie a znajdziecie
    Od patrzenia oczy nie bolą

    ...i wiele takich powiedzonek można by przytoczyć, myślę że da Ci to do myślenia

    Link

    Pozdrawiam Stefan Pruszkiewicz

Od 1 do 5 z 5

  1.