pe-1. Pascal を使ってみる

>100 Views

February 03, 22

スライド概要

(Pascal プログラミング入門)
URL: https://www.kkaneko.jp/cc/pascal/index.html

profile-image

金子邦彦(かねこくにひこ) 福山大学・工学部・教授 ホームページ: https://www.kkaneko.jp/index.html 金子邦彦 YouTube チャンネル: https://youtube.com/user/kunihikokaneko

シェア

埋め込む »CMSなどでJSが使えない場合

各ページのテキスト
1.

pe-1. Pascal を使ってみる (Pascal プログラミング入門) URL: https://www.kkaneko.jp/cc/pascal/index.html 金子邦彦 1

2.

本日の内容 例題1.プログラム実行の体験 2

3.

オンライン開発環境 Online GDB • プログラミングを行えるオンラインのサービス https://www.onlinegdb.com • ウェブブラウザを使う • たくさんの言語を扱うことができる Pascal, Python3, Java, C/C++, C#, JavaScript, R, アセンブリ言語,SQL など • オンラインなので、「秘密にしたいプログラム」 を扱うには十分な注意が必要 3

4.

Online GDB で Pascal を動かす手順 ① ウェブブラウザを起動する ② 次の URL を開く https://www.onlinegdb.com 4

5.

③ 「Language」のところで,「Pascal」を選ぶ 5

6.

実行ボタン エディタ画面 プログラムを 書き換えること ができる 6

7.

例題1.プログラム実行の体験 • コンピュータを役に立つ道具として実感するため に,次ページのプログラムを使って,sin 関数の 繰り返し計算を行ってみる 7

8.

program sum; var start_x, step_x, x, y:real; var i:integer; begin write('Please Enter start_x:'); readln(start_x); write('Please Enter step_x:'); readln(step_x); for i:=1 to 20 do begin x := start_x + ( i * step_x ); y := sin(x); writeln('sin(', x:8:3, ') =', y:8:3); end; readln end. キーボードからの データの読み込みを 行っている部分 計算の繰り返しを 行っている部分 画面へのデータの 書き出しを行ってい る部分 8

9.

例題1のプログラム実行結果 キーボードから,デー タ「0.4」と「0.1」を 読み込んでいる 計算を 20回繰り返して, 計算結果を表示してい る 9

10.

プログラムの機能 プログラムでは,計算等の実行手順を記述 • 計算の繰り返し 計算は自動で繰り返し • キーボードからの読み込み • 画面への表示 など 10

11.

例題1のプログラムの機能 1.キーボードからのデータの読み込み 次の2つの値を読み込む start_x, step_x 2.計算の繰り返し sin( x ) の計算を20回繰り返す x= start_x + step_x, start_x + 2 ×step_x, ... start_x + 20 × step_x 20回分 3.画面へのデータの書き出し 計算した sin( x ) の値を書き出す 11

12.

実行(1/4) 「Run」をクリック 12

13.

実行(2/4) 実行画面が現れる 13

14.

実行(3/4) 数値を入れる (プログラムに数値 データを与える) 14

15.

実行(4/4) さらに数値を入れると, 計算結果が表示される 15

16.

実行の終了 「Stop」をクリック 16

17.

演習1 例題1 のプログラムを実行して,sin(0.4) の値を確 認しなさい そのために start_x, step_x の値を適切に与えるこ と 17

18.

演習2 例題1のプログラムの「sin」の部分を,わざと間 違えて(「son」のように),コンピュータによる プログラムの構文チェックの機能が有効に働いてい ることを確認しなさい 18

19.

演習3 例題1のプログラムを cos の値を計算できるよう に書き換えて,実行をしなさい.そして,cos(0.4) の値を確認しなさい. y := cos(x); 19