BASIC：難しくなってきました。

このBASICプログラミングのお稽古、だんだん難しくなってきて、なかなか正解を纏めれないようになってきましたが、続けます。想像通り、読者はどんどんいなくなってきました。それはそうですよね。つまらないですからね。もうちょっと頑張ってみます。■最大公約数を求める（十進ベーシックではエラーになってしまう）INPUT"M,N(M>N)=",M,N20R=MMODNIFR=0THENPRINT"GCD=";N*ENDM=NN=Rgoto20■ルート1を収束判定で求める(十進ベーシックではエラーになってしまう）REM****収束判定LETEPS=.000001INPUTPROMPT"X=":XLETA=1LETB=X/APRINT"A","B"WHILEABS((A-B)/A)>EPSA=(A+B)/2D=X/APRINT...BASIC：難しくなってきました。

■FOR TO 構文による具体的なプログラム例

■FORTO構文による具体的なプログラム例!■DATAに記述した5つの数字のうちの!最大値を求めるプログラムDIMA(5)LETY=-10000FORM=1TO5READA(M)IFY<A(M)THENLETY=A(M)NEXTMPRINT"MAX=";YDATA97,65,-12,230,-152END!■最小値を求めるDIMA(5)LETY=10000FORM=1TO5READA(M)IFY>A(M)THENLETY=A(M)NEXTMPRINT"MIN=";YDATA97,65,-12,230,-152!■Nの二乗を21求めるDIMA(20)FORN=0TO20X(N)=N*NPRINTX(N),NEXTN!■FORTOを利用して、奇数の合計を求めるLETS=0FORI=1TO100LETS=S+2*I-...■FORTO構文による具体的なプログラム例

（番外）ロンドンのノッティング・ヒル・カーニバル＠1998

押し入れの奥から、1998年に見に行った、ロンドンのカリブ系移民のお祭り、ノッティング・ヒル・カーニバルの写真が出てきました。イギリス白人はもとより、ジャマイカ系移民、トリニダードトバコ系移民、ナイジェリア系移民の踊るフロートが幾つも目の前を流れて行きました。（番外）ロンドンのノッティング・ヒル・カーニバル＠1998

BASIC: IF THEN ELSE構文を学ぶ

REM■***マラソンの秒速距離（メートル）を求めるLETY=42195!42.195Kmをメートルで表すINPUTH,M,S!タイムを、3つの変数、すなわち時間H、分M、秒Sに分けて、!INPUT命令で入力するLETT=H*60*60+M*60+S!マラソンの結果を秒単位で入力するLETV=Y/T!走行距離を走行時間で割って、秒速何メートルか求めるPRINT100/V!100メートルを速度で割って、100メートル走るのに何秒!か求めて、出力する(実行結果）2時間25分54秒の場合、?2,25,5420.7465339495201すなわち20.7秒で走る3時間45分22秒の場合?3,45,2232.0464510013034すなわち32秒で走るREM■*****3次関数の計算10INPUTXLETY=4*(X^...BASIC:IFTHENELSE構文を学ぶ

BASIC：独特な文字列処理

今日は、少しPYTHONをいじってみましたが、言語のインストールが上手くいっていないのか、エラーばかり出て、いったん諦めて、BASICの初歩の勉強に戻ってきました。REM■(1)変数に＄マークを付けると、文字変数になり、REM文字列を代入することが出来ます。LETA$="123"LETB$="私と貴女"LETC$="Today"PRINTA$PRINTB$PRINTC$END(実行結果）123私と貴女TodayREM■(2)カンマ2つで区切って出力したときに、QUICKBASICでは、REM下記の通り4文字を開けて1行に印字されるはずだが、REM十進ベーシックではエラーになってしまう。READA$,B$,C$PRINTA$,,B$,,C$DATA太田宏美,岩崎宏美,荻野目洋子END太田宏美岩崎宏美荻野目洋子RE...BASIC：独特な文字列処理

BASIC：簡単なIF構文～金利のある貯蓄計算～

FORLOOP構文を使って、繰り返し演算を行います。次のプログラムは、1から10まで、変数Nの値、そのNの二乗、N分の1の値を1行毎に出力するものです。PRINT"N","N^2,"1/N"REM1)FORN=1TO10REM2)PRINTN,N^2,1/NREM3)NEXTNREM1)タイトルのN,N^2,1/Nを1行に打ち出すREM2)Nが1から10まで、10回繰り返すREM3)N,N^2,1/Nを計算して、1から10まで繰り返して、出力する(実行結果）NN^21/N11124.539.333333333333333416.25525.2636.166666666666667749.142857142857143864.125981.11111111111111110100.1■0度から85度まで5度間隔の...BASIC：簡単なIF構文～金利のある貯蓄計算～

BASICらしさ=READ DATA構文

READ,DATA構文のような曖昧な変数への値の代入は、他の言語では見当たらない。下記のように、READ文で変数を宣言し、DATAの後に続けて、単数、複数の値を記述すると、数が一致するREADの変数に値が代入される。このプログラムで言えば、Aに18が代入される。このDATA行は、どこに置いてもいい。(1つの変数を扱う場合）10READA20X=A*430PRINTX40DATA1850END（7つの変数を扱う場合）100READA,B.C.D.E.F.G200Y=(A+B+C+D+E+F)/G300PRINT"平均",Y400DATA27,-18,165,-92,36,-195.6上のプログラムにはミスプリがある。BASICインタープリターで走らせると、エラーメッセージが出る。AからGまでの変数名は、全てカンマ...BASICらしさ=READDATA構文

BASIC: 重要なFORループ構文をマスターする

■FOR～NEXT構文の代表的な例文1から5まで2を掛けた値を改行しながら出力していく10行目のFORから40行目のNEXTまでを、FORループ文と呼ぶ10FORN=1TO5STEP1REM1を初めとして、一つづつ2,3,4,5と変数を増やして、REMFORLOOP文を実行していく20X=N*230PRINTX40NEXTN50PRINT"終わり"■2重ループを完全に理解し、暗記すること（行番号省略）FORM=1TO3FORN=4TO6PRINTM+N;NEXTNNEXTMREMMは行の番号、Nは列の番号とみなせるREMM+Nを、1+4,1+5,1+6REM2+4,2+5,2+6REM3+4,3+5,3+6REMループさせていく答えは、567678789■FORループで、預金の元利合計計算を行うINPUT"元金...BASIC:重要なFORループ構文をマスターする

BASIC: INPUT, INKEY$,ON GOTO 命令を用いたショート・プログラム

■INPUT命令には、複数の変数を入力することが出来る01INPUTA,B,C,D,EREM?マークに従って、5つの値を入力する02M=(A+B+C+D)/EREM4つの値を4で割れば、平均になる03PRINT"平均は";M(実行例)?18,29,-48,6,4平均は1.25■規定した変数の個数と入力する個数が違うとエラーになるエラーになると、再び入力を促す10INPUT"AとBを入力してね";A,B20C=A+B30PRINTC（実行例）"AとBを入力してね"15//2つ数値を入れるところに、一つしか入れていない?RedoFromStart"AとBを入力してね"■命令INKEY$の動作確認REMINKEY$は、プログラムから1を入力させる命令10LETX$=INKEY$20IFX$=""THENGOTO103...BASIC:INPUT,INKEY$,ONGOTO命令を用いたショート・プログラム

BASIC: 簡単なIF構文の例

REM「REM1から100までを書き下す」10LETK=120PRINTK30LETK=K+140IFK<=100THEN2050PRINT"終わり"60ENDREM「5が答えのクイズ」10INPUT"何か数字を指定して";KREMPROMPT文に従って、何かの数字を入力20IFK=5THENGOTO50REM入力した数字が5であったら、「当たり」と表示30PRINT"外れ"REM5以外の数値の場合、外れと表示40GOTO1050PRINT"当たり"60GOTO1070END（実行結果）何か数字を指定して14外れ何か数字を指定して5当たりBASIC:簡単なIF構文の例

BASIC：簡単なプログラムで入出力を確かめる

シンプルなプログラムであるが、REM文（注釈文）を多く記述したので、それをよけながら読んでください。INPUT"半径を入力してください";RREMINPUT命令に、ダブルクォテーションで入力のガイドの文言をREM指定すると、下記のようにモニターにガイドが表示され、そこREMで半径となる数値を入力するLETS=3.1416*R^2REM面積を意味するSに、円周率と半径の二乗を代入するPRINTSREM面積をモニターに出力するEND（実行結果）半径を入力してください?6.5132.7326BASIC：簡単なプログラムで入出力を確かめる

BASIC：print命令の例

書籍「はじめて読むBASIC」P53、結果の表示より以下の2つのプログラムの結果は同じです。--------------------------------A=6printAprintA+3---------------------------------A=6printA,,A+3//（コメント）2行に渡るprint命令を1行で書くには、セミコロン2つ,,で繋げれば良い----------------------------------(実行）69-----------------------------------式の値を1行で出力するには、式をセミコロンで区切るA=6printA;A+3;A-8実行69-2今日は、調子を取り戻すため、ごくごく簡単な式から始めます。BASIC：print命令の例

やはり、BASICを先に調べます

プログラミングの特徴と適用分野を整理すると、下記のようになります。pythonは興味深い言語ですが、大型のデータの解析とコンピュータの操作の自動化を目指しているようで、教育目的の言語としては、BASICが適していることから、先にベーシックの勉強を続けていきます。プログラミング言語代表的各言語の特徴と得意分野■BASIC・コンピュータ学習用言語として出発・インタープリター（コンパイルしないで実行する）・主なアルゴリズムは記述可能な汎用言語・オペレーティング・システムの記述は不可能・プログラミングのジャンルによっては、簡単に記述が可能で、アルゴリズム学習用にはC言語より向いている・得意分野は科学技術計算、数学解析・並べ替え、検索置換などのデーター演算・ゲーム開発・簡易データーベース開発・表計算ソフトのような汎用ソフ...やはり、BASICを先に調べます

Pythonの学習を先行させます

昨日、大型の書店でpythonの参考書を眺めていたのですが、えらく分かりやすい本が出ていて、急にPythonの方の大枠の理解を図りたく願望しました。ということで、平日はPython、週末BASICという振り分けで、学習していくこととしましたので、興味のある方は、お付き合いください。Pythonの学習を先行させます

最高気温の各地の温度差を求め、見やすく表示する

printusing命令をつかって、見やすい印字を行う方法（課題）9月のある日の各地の最高気温は、鹿児島32.1度、東京27.4度、札幌22.5度でした。各地の温度差を求め、下記のように印字するプログラムを作りなさい。（答え）readk$,k,t$,t,s$,sprintusing"&&と&&の温度差は#####.#度c";k$;t$;k-t"printusing"&&と&&の温度差は#####.#度c";t$;s$;t-s"printusing"&&と&&の温度差は#####.#度c";s$;k$;s-k"enddata鹿児島,32.1,東京,27.4,札幌,22.5（注意）quickbasic準拠のテキスト、「学生のための構造化BASIC」の例題を解いてみた。一応、単純ミスはないもの。しかし、これを十進ベー...最高気温の各地の温度差を求め、見やすく表示する

標準体重を求めて、出力する

（課題）標準体重を求めなさい（プログラム）readn$,Shin,TaiHyoujun=(Shin-100)*9print"氏名＝";n$,"身長=";Shin,"体重＝";Tai,"標準体重=;Hyoujun"enddata木村拓哉,174.2,64.5（出力）略（注）Quickbasiconms-dosでは動作するのに、十進basiconWindowsではエラーが出てしまう。原因探索中。標準体重を求めて、出力する

一番簡単なプログラム

質問）購入したリンゴの個数nを入力し、購入金額を計算して結果を次のように印字するプログラムを作りなさい。リンゴの価格は1個200円とします。出力）「りんごの金額は1200円です」プログラム）inputPROMPT"リンゴを何個買いましたか":n!'リンゴの個数を入力LETKingaku=n*200!'リンゴの購入金額を計算print"リンゴの金額は";Kingaku;"円です"!'計算結果を印字END（注1）フリーソフトの10進ベーシックでは、入力をおこなう命令は、inputではなく、inputPROMPTと書かなければいけない。（注2）printは結果を出力する命令だが、注釈的な文字列と、変数を1行に出力するには、""2重引用で文字列を囲み、続けて、セミコロンで区切って、変数を指定し、これを必要に応じて繰り返...一番簡単なプログラム

sample souce

forn=0to20x(n)=n*nprintx(n)nextnsamplesouce

basicに戻ろう

テスト投稿basicに戻ろう