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 8367 21.10.2016, 11:20
Ostatni post: koneton
  [Pascal/Delphi] Sortowanie quicksort oraz scalanie. Chudy2000 3 8316 01.05.2016, 22:34
Ostatni post: Szachista
  NWD i NWW - pascal (pomocy) MatGpu 1 7687 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
  Nauka do Olimpiady Informatycznej? piotr0905 1 7572 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 7444 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 9579 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 4163 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 8835 21.04.2019 14:04
Ostatni post: Ajgor
  VBA excel dmjs 6 8956 17.04.2019 10:20
Ostatni post: ptrick
  C++ - sens pogłębiania nauki gbr 5 8702 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 8382 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 7520 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 10827 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 7964 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 8422 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 9829 04.02.2019 09:03
Ostatni post: piesel18
  Szkoła Informatyczna Zikinan 1 8709 02.02.2019 17:59
Ostatni post: wojownikhaha
  [Java] Strona z zadaniami do rozwiązania i odpowiedziami rafal12999 2 9453 27.01.2019 13:44
Ostatni post: rafal12999