Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

Pascal - Pomoc w zadaniu

#1
Pascal - Pomoc w zadaniu
Witam.
Mam do Zrobienia cos takiego robilem to wszystkimi wszelkimi sposobami a dopiero zaczynam pascala zdenerwowalem sie i wywalilem caly kod za przeproszeniem w pizdu...

Napisz program pytający uŜytkownika, czy chce wykonać działanie 2*(2+2). Jeśli uŜytkownik wciśnie literę T (lub t), obliczy i poda wynik, jeśli literę N (lub n), wydrukuje na ekranie „Nie, to nie!” i dopiero zakończy po wciśnięciu Enter. Jeśli jakikolwiek inny klawisz, otrzyma komunikat „Wcisnąłeś inny klawisz, za karę poczekasz 10 sekund w bezruchu".
 System operacyjny: windows_xp_2003 Przeglądarka: opera
#2
RE: Pascal - Pomoc w zadaniu
Przeproś się ze zwoim kodem i napisz go jeszcze raz. Jak nie będzie działał to pomozemy!
 System operacyjny: linux Przeglądarka: firefox
#3
RE: Pascal - Pomoc w zadaniu
Kod:
USES CRT;

VAR
a:char;
w:byte;

BEGIN
clrscr;
read(a);
IF a='t' then write('4');
IF a='T' then write('4');
IF a='N' then write('Nie to nie');
IF a='n' then write('Nie to nie');
END


Masz w bonusie początek Wesoły
 System operacyjny: windows_seven Przeglądarka: firefox
#4
RE: Pascal - Pomoc w zadaniu
Kod:
program prog1;

uses CRT;

VAR
a:char;

BEGIN
clrscr;
Write('Obliczyc 2*(2+2)? T/N, Enter zeby zakonczyc: ');
read(a);

IF a='t' then write('4');
IF a='T' then write('4');
IF a='N' then write('Nie to nie');
IF a='n' then write('Nie to nie');
readln;

repeat
if keypressed then a:=ReadKey;
until a=#13;

END.

BTW: 2*(2+2) = 8.
Nie pomagam na PW (ew. odpłatnie). 
I osobom z roszczeniowym podejściem. I osobom niedbającym o poprawność językową.
Jak podawać logi
Jeśli nie odpowiadam w danym wątku przez >3 dni - proszę o przypomnienie na PW z linkiem do wątku w treści.




 System operacyjny: windows_xp_2003 Przeglądarka: firefox
Programy: Polecane / Nowe / Inne




Podobne wątki (Pascal - Pomoc w zadaniu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  dev pascal, problem z funkcją kwadratową Sentinel24 4 8408 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8352 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7727 19.02.2016, 17:25
Ostatni post: Szachista

Skocz do:


Wybrane wątki (Pascal - Pomoc w zadaniu)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Ruby on Rails - tutoriale luciussulla 0 7614 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10949 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 8074 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 8532 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9958 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8829 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 9582 27.01.2019 13:44
Ostatni post: rafal12999
  kompilacja biblioteki Agui - cmake jurek2 0 8886 10.01.2019 13:12
Ostatni post: jurek2
  Zamiana całego zestawu znaków wg przyporządkowania BarHorab 5 9590 19.12.2018 16:45
Ostatni post: Szachista
  Sumowanie licz excel - problem OxyGenE 2 12231 19.12.2018 16:29
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 10032 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 11177 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 10093 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 10601 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 11801 30.08.2018 08:25
Ostatni post: wiktrom12