@marynarz20

marynarz20

Beginner

Określ, która elektroda w podanym ogniwie jest anodą, a która katodą. Napisz równanie procesów elektrodowych i oblicz siłę elektromotoryczną ogniwa. Ogniwo: MnMn2+Co2+Co Bardzo proszę o pomoc ;)
Answer
Napisz krótkie życzenia z okazji 19 urodzin. Imie to Paulina
Answer
napisz program w pascalu sprawdzający wiedzę ucznia z matematyki oraz zapisujący odpowiedzi do pliku tekstowego // Bardzo proszę o pomoc
Answer
Pascal: Chciałbym dopisać n/w zmienną "wyposażenie". Lecz nie wiem jakiego typu, i czy pod VAR, czy pod TYPEProgram nazwa_progamu;uses crt;typeTkolor=(bialy,czerwony,zielony,niebieski,srebrny);TTyp=(osobowy,ciezarowy);Twyposazenie = array [1..10] of string [30];Tsamochod=record Producent:string[20]; Marka:string[20]; typ:ttyp; kolor:tkolor; NumerRejestracyjny:string [7]; NumerNadwozia:string [30]; NumerSilnika:string [30]; Przebieg:Longint; DodatkoweWyposazenie:Twyposazenie end;varsamochod:TSamochod;Znak:char;I:byte;Wypos:string [30];beginclrscr;Write('Podaj producenta');readln(samochod.producent);write('podaj marke');readln(samochod.marka); repeat write('podaj typ ("O" - Osobowy, "C" - ciezarowy)'); readln(znak);until (upcase(znak) in ['O', 'C']);case upcase(znak) of'O' : Samochod.Typ:=osobowy;'C' : Samochod.Typ:=ciezarowy;end;repeatWriteln('Podaj kolor("B" - Bialy, "C" - Czerwony, "Z" - Zielony');writeln(' "N" - Niebieski, "S" - Srebrny)');readln(znak);until (upcase(znak) in ['B', 'C', 'Z', 'N', 'S']);case upcase(znak) of'B' : Samochod.Kolor:=bialy;'C' : Samochod.Kolor:=czerwony;'Z' : Samochod.Kolor:=zielony;'N' : Samochod.Kolor:=niebieski;'S' : Samochod.Kolor:=srebrny;end;Write('Podaj numer rejestracyjny');readln(samochod.numerrejestracyjny);write('Podaj numer nadwozia');readln(samochod.numernadwozia);write('podaj numer silnika');readln(samochod.numersilnika);write('Podaj przebieg');readln(samochod.przebieg);I:=1;repeatwrite('podaj kolejny element wyposazenia', '(Enter, aby zakonczyc):');readln(wypos);samochod.dodatkowewyposazenie [I] := wypos;I:=I+1Until (I>10) or (wypos='');clrscr;with samochod dobeginwriteln(Producent,', ',Marka,', ', NumerRejestracyjny);writeln('Numer nadwozia: ', numernadwozia,' Numer silnika: ',numersilnika,' Przebieg: ',przebieg);case typ ofosobowy : Write('Samochod osobowy');ciezarowy : Write('Samochod ciezarowy');end;case kolor ofbialy : writeln('koloru bialego');czerwony : writeln('koloru czerwonego');zielony : writeln('koloru zielonego');niebieski : writeln('koloru niebieskiego');srebrny : writeln('koloru srebrnego');end;for I := 1 to 10 doif wyposazenie [I] <> '' thenWriteln(' - ', dodatkowewyposazenie [I]);end;readln;end.
Answer
PASCAL // Potrzebuje sprawdzenia błęduProgram nazwa_progamu;uses crt;typeTkolor=(bialy,czerwony,zielony,niebieski,srebrny);TTyp=(osobowy,ciezarowy);Twyposazenie = array [1..10] of string [30];Tsamochod=record Producent:string[20]; Marka:string[20]; typ:ttyp; kolor:tkolor; NumerRejestracyjny:string [7]; NumerNadwozia:string [30]; NumerSilnika:string [30]; Przebieg:Longint; DodatkoweWyposazenie:Twyposazenie end;varsamochod:TSamochod;Znak:char;I:byte;Wypos:string [30];beginclrscr;Write('Podaj producenta');readln(samochod.producent);write('podaj marke');readln(samochod.marka); repeat write('podaj typ ("O" - Osobowy, "C" - ciezarowy)'); readln(znak);until (upcase(znak) in ['O', 'C']);case upcase(znak) of'O' : Samochod.Typ:=osobowy;'C' : Samochod.Typ:=ciezarowy;end;repeatWriteln('Podaj kolor("B" - Bialy, "C" - Czerwony, "Z" - Zielony');writeln(' "N" - Niebieski, "S" - Srebrny)');readln(znak);until (upcase(znak) in ['B', 'C', 'Z', 'N', 'S']);case upcase(znak) of'B' : Samochod.Kolor:=bialy;'C' : Samochod.Kolor:=czerwony;'Z' : Samochod.Kolor:=zielony;'N' : Samochod.Kolor:=niebieski;'S' : Samochod.Kolor:=srebrny;end;Write('Podaj numer rejestracyjny');readln(samochod.numerrejestracyjny);write('Podaj numer nadwozia');readln(samochod.numernadwozia);write('podaj numer silnika');readln(samochod.numersilnika);write('Podaj przebieg');readln(samochod.przebieg);I:=1;repeatwrite('podaj kolejny element wyposazenia', '(Enter, aby zakonczyc):');readln(wypos);samochod.dodatkowewyposazenie [I] := wypos;I:=I+1Until (I>10) or (wypos='');clrscr;with samochod dobeginwriteln(Producent,', ',Marka,', ', NumerRejestracyjny);writeln('Numer nadwozia: ', numernadwozia,' Numer silnika: ',numersilnika,' Przebieg: ',przebieg);case typ ofosobowy : Write('Samochod osobowy');ciezarowy : Write('Samochod ciezarowy');end;case kolor ofbialy : writeln('koloru bialego');czerwony : writeln('koloru czerwonego');zielony : writeln('koloru zielonego');niebieski : writeln('koloru niebieskiego');srebrny : writeln('koloru srebrnego');end;for I := 1 to 10 doif wyposazenie [I] <> '' then // TU MI WYWALA BŁĄDWriteln(' - ', dodatkowewyposazenie [I]);end;readln;end.
Answer
HISZPAŃSKINapisz dialog z udziałem klienta oraz sprzedawcy w sklepie odzieżowym. Dialog na 8-10 wersów.
Answer
HISZPAŃSKI: Napiszę list do kolegi z Hiszpanii z opisem pogody w trakcie czterech pór roku w Polsce. (140-150 słów)
Answer
Hiszpański: Conjuga los verbos dados en preterito indefinido: CERRAR IR VENDER ESTAR ABRIR TENER PONER VER HACER
Answer

Life Enjoy

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

Get in touch

Social

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