@VleX

VleX

Beginner

Kierowca TIR-a widzi w lusterku zbliżający się do niego samochód osobowy. Oblicz z jaką szybkością ten samochód zbliża się do TIR-a, jeśli względem jezdni TIR porusza się z szybkością 70 km/h, a samochód osobowy z szybkością 96 km/h? Oraz oblicz, z jaką szybkością zbliża się do TIR-a nadjeżdzający z naprzeciwka motocyklista, jeśli jego szybkość względem jezdni jest równa 112 km/h.
Answer
Wszystko z !!!!!!!!!!!!!!!!!!! trzeba wyjaśnić, a ja w zasadzie słabo się na tym znam. PomocyProgram kalkulator; uses crt; var a,b,c,s,w:real; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! w jakim celu są zmienne s i n d ? znak,i,n:byte; !!!!!!!!!!!!!!!!!!!!!!!!! d:longint; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!! tab:array[1..100]of real; !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! co to jest array ? i do czego? !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! co to jest procedure ????? !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!1 procedure DODAWANIE; !!!!!!!!!!!!!!!!!!!1 begin w:=0; !!!!!!!!!! dlaczego zerowanie w ? writeln('obliczenie wyrazenia a+b+c'); !!!!!!!!!!!!!! dlaczego trzy liczby ? write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); w:=a+b+c; writeln('wynik wynosi: ',w:0:2); end; procedure ODEJMOWANIE;!!!!!!!!!!!!!!!!!!! begin w:=0; writeln('obliczenie wyrazenia a-b-c'); !!!!!!!!!!!!!! dlaczego trzy liczby ? write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); w:=a-b-c; writeln('wynik wynosi: ',w:0:2); end; procedure MNOZENIE;!!!!!!!!!!!!!!!!!!! begin w:=0; writeln('obliczenie wyrazenia a*b*c'); !!!!!!!!!!!!!! dlaczego trzy liczby ? write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); w:=a*b*c; writeln('wynik wynosi: ',w:0:2); end; procedure DZIELENIE;!!!!!!!!!!!!!!!!!!! begin w:=0; writeln('obliczenia wyrazenia a/b/c'); !!!!!!!!!!!!!! dlaczego trzy liczby ? write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); w:=a/b/c; writeln('wynik wynosi: ',w:0:2); end; procedure PIERWIASTEK;!!!!!!!!!!!!!!!!!!! begin w:=0; writeln('obliczenia pierwiastka kwadratowego z liczby a'); write('a='); readln(a); w:=sqrt(a); writeln('wynik wynosi: ',w:0:2); end; procedure SILNIA;!!!!!!!!!!!!!!!!!!! begin w:=1; writeln('obliczenie silni liczby a'); write('a='); readln(d); for i:=1 to d do w:=w*i; writeln('wynik wynosi: ',w:0:2); end; begin repeat writeln('MENU'); writeln('1->dodawanie'); writeln('2->odejmowanie'); writeln('3->mnozenie'); writeln('4->dzielenie'); writeln('5->pierwiastek'); writeln('6->silnia'); writeln('0->wyjscie'); write('wybierz opcje: '); readln(znak); writeln; if znak=1 then dodawanie; if znak=2 then odejmowanie; if znak=3 then mnozenie; if znak=4 then dzielenie; if znak=5 then pierwiastek; if znak=6 then silnia; if znak=0 then exit; writeln; until znak=0; end.!
Answer

Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.