Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > de.alt.folklore.computer > #50354

Sprachen mit Hilfe der EDV lernen

Show all headers | View raw

  PS: Das folgende hatte ich heute in "de.etc.sprache.misc" gepostet.
  Da es weiter unten ein Programm in traditionellem BASIC enthält,
  poste ich es auch hier in "de.alt.folklore.computer".

  Wenn man einen bestimmten Aspekt einer Sprache lernen will,
  kann man heute einfach den Chatbot bitten, ein spezielles
  Lernprogramm dafür zu schreiben!

  Nehmen wir zum Beispiel "to"/"-ing": Dialog:

|Welcome to English Verb Flashcard Practice!
|Type your answer for each question. Press Enter to see the correct answer and explanation.
|
|Card   1
|Question: Which is correct: 'I enjoy to swim' or 'I enjoy swimming'?
|? I enjoy swimming.
|
|Correct Answer: 'I enjoy swimming.'
|Explanation: The verb 'enjoy' is followed by '-ing' (gerund), not 'to' + verb.
|Press Enter to continue...
|?
|
|
|Card   2
|Question: Which is correct: 'She wants to go' or 'She wants going'?
|? She wants to go.
|
|Correct Answer: 'She wants to go.'
|Explanation: The verb 'want' is followed by 'to' + base verb (infinitive).
|Press Enter to continue...
|?

  . Das Programm läuft auf praktisch jedem Home-Computer. Es
  zeigt, daß Home-Computer wirklich einen praktischen Nutzen
  haben und keine reine Spielerei sind!

1000 REM FLASHCARD PROGRAM
1010 REM SETUP
1020 DIM S$(80)
1030 FOR I=1 TO 80
1040 S$(I)=""
1050 NEXT I
1060 REM RECONSTRUCT STRINGS FROM SEGMENTS
1070 N=0
1080 READ D$
1090 IF D$="END" THEN 1230
1100 IF RIGHT$(D$,1)="~" THEN GOTO 1160
1110 IF RIGHT$(D$,1)="`" THEN GOTO 1130
1120 GOTO 1080
1130 S$(N+1)=S$(N+1)+LEFT$(D$,LEN(D$)-1)
1140 N=N+1
1150 GOTO 1080
1160 S$(N+1)=S$(N+1)+LEFT$(D$,LEN(D$)-1)
1170 GOTO 1080
1180 REM STRING CONSTANTS ARE NOW IN S$(1) TO S$(N)
1190 REM CONSTANTS INDEX:
1200 REM 1: WELCOME, 2: PROMPT, 3: CARD, 4: QUESTION
1210 REM 5: ANSWER PROMPT, 6: CORRECT ANSWER, 7: EXPL
1220 REM 8: CONTINUE, 9: CONGRATS
1230 REM 10-39: FLASHCARD Q/A/E (10,11,12=Card 1, etc)
1240 REM SHOW WELCOME AND PROMPT
1250 PRINT S$(1)
1260 PRINT S$(2)
1270 REM MAIN FLASHCARD LOOP
1280 FOR C=0 TO 9
1290 PRINT
1300 PRINT S$(3);" ";C+1
1310 PRINT S$(4);S$(10+C*3)
1320 INPUT "";A$
1330 PRINT S$(6);S$(11+C*3)
1340 PRINT S$(7);S$(12+C*3)
1350 PRINT S$(8)
1360 INPUT "";A$
1370 NEXT C
1380 PRINT S$(9)
1390 END
1400 REM DATA SECTION
1410 DATA "Welcome to English Verb Flashcard~"
1420 DATA " Practice!`"
1430 DATA "Type your answer for each question.~"
1440 DATA " Press Enter to see the correct answer~"
1450 DATA " and explanation.`"
1460 DATA "Card `"
1470 DATA "Question: `"
1480 DATA "Type your answer and press Enter: `"
1490 DATA "Correct Answer: `"
1500 DATA "Explanation: `"
1510 DATA "Press Enter to continue...`"
1520 DATA "Congratulations! You've finished all~"
1530 DATA " the flashcards.`"
1540 REM CARD 1
1550 DATA "Which is correct: 'I enjoy to swim'~"
1560 DATA " or 'I enjoy swimming'?`"
1570 DATA "'I enjoy swimming.'`"
1580 DATA "The verb 'enjoy' is followed by~"
1590 DATA " '-ing' (gerund), not 'to' + verb.`"
1600 REM CARD 2
1610 DATA "Which is correct: 'She wants to go'~"
1620 DATA " or 'She wants going'?`"
1630 DATA "'She wants to go.'`"
1640 DATA "The verb 'want' is followed by 'to'~"
1650 DATA " + base verb (infinitive).`"
1660 REM CARD 3
1670 DATA "What does 'stop to run' mean~"
1680 DATA " compared to 'stop running'?`"
1690 DATA "'Stop to run' means interrupt one~"
1700 DATA " action in order to run (rare as a~"
1710 DATA " command).~"
1720 DATA " 'Stop running' means cease the~"
1730 DATA " action of running.`"
1740 DATA "'Stop' + '-ing' means end the~"
1750 DATA " action. 'Stop' + 'to' + verb means~"
1760 DATA " pause to do something else.`"
1770 REM CARD 4
1780 DATA "Which is correct: 'He tried to fix~"
1790 DATA " the car' or 'He tried fixing the~"
1800 DATA " car'?`"
1810 DATA "Both are correct, but with~"
1820 DATA " different meanings:~"
1830 DATA " - 'He tried to fix the car': He~"
1840 DATA " attempted to do it (but may not~"
1850 DATA " have succeeded).~"
1860 DATA " - 'He tried fixing the car': He~"
1870 DATA " attempted it as an experiment or~"
1880 DATA " solution.`"
1890 DATA "'Try' can be followed by both~"
1900 DATA " forms, but the meaning changes.`"
1910 REM CARD 5
1920 DATA "Which is correct: 'I remember to~"
1930 DATA " call you' or 'I remember calling~"
1940 DATA " you'?`"
1950 DATA "Both are correct, but with~"
1960 DATA " different meanings:~"
1970 DATA " - 'I remember to call you': I~"
1980 DATA " remember that I need to call you.~"
1990 DATA " - 'I remember calling you': I~"
2000 DATA " remember that I called you in the~"
2010 DATA " past.`"
2020 DATA "'Remember' can be followed by~"
2030 DATA " both, but the timing is~"
2040 DATA " different.`"
2050 REM CARD 6
2060 DATA "Which is correct: 'She likes to~"
2070 DATA " read' or 'She likes reading'?`"
2080 DATA "Both are correct and have similar~"
2090 DATA " meanings.`"
2100 DATA "'Like' can be followed by both 'to'~"
2110 DATA " + verb and '-ing' with little~"
2120 DATA " difference in meaning.`"
2130 REM CARD 7
2140 DATA "Which is correct: 'He needs to~"
2150 DATA " study' or 'He needs studying'?`"
2160 DATA "'He needs to study.'`"
2170 DATA "'Need' is followed by 'to' + verb~"
2180 DATA " (infinitive).`"
2190 REM CARD 8
2200 DATA "Which is correct: 'We finished to~"
2210 DATA " eat' or 'We finished eating'?`"
2220 DATA "'We finished eating.'`"
2230 DATA "'Finish' is followed by '-ing'~"
2240 DATA " (gerund).`"
2250 REM CARD 9
2260 DATA "Which is correct: 'He suggested to~"
2270 DATA " leave' or 'He suggested leaving'?`"
2280 DATA "'He suggested leaving.'`"
2290 DATA "'Suggest' is followed by '-ing'~"
2300 DATA " (gerund).`"
2310 REM CARD 10
2320 DATA "Which is correct: 'We hope to see~"
2330 DATA " you' or 'We hope seeing you'?`"
2340 DATA "'We hope to see you.'`"
2350 DATA "'Hope' is followed by 'to' + verb~"
2360 DATA " (infinitive).`"
2370 DATA "END"

Back to de.alt.folklore.computer | Previous | Next — Next in thread | Find similar

Thread

Sprachen mit Hilfe der EDV lernen ram@zedat.fu-berlin.de (Stefan Ram) - 2025-05-30 12:29 +0000
  Re: Sprachen mit Hilfe der EDV lernen Stefan+Usenet@Froehlich.Priv.at (Stefan Froehlich) - 2025-05-31 10:00 +0000
    Re: Sprachen mit Hilfe der EDV lernen Kay Martinen <usenet@martinen.de> - 2025-05-31 15:21 +0200
      Re: Sprachen mit Hilfe der EDV lernen Stefan+Usenet@Froehlich.Priv.at (Stefan Froehlich) - 2025-05-31 15:01 +0000
  Re: Sprachen mit Hilfe der EDV lernen "F. W." <me@home.invalid> - 2025-06-02 07:41 +0200

csiph-web