2011-07-26 13:38:56GrD
a001 哈囉
什麼東西打開都應該要來個"哈囉世界"
不是嗎?
http://zerojudge.tw/ShowProblem?problemid=a001&locale=zh_TW
內容 :
學習所有程式語言的第一個練習題
請寫一個程式,可以讀入指定的字串,並且輸出指定的字串。
輸入說明 :
指定的文字
輸出說明 :
輸出指定的文字
--------------------------------------------------------
(**********************************************************************************)
(* Problem: a001 "哈囉" from Brian Kernighan *)
(* Language: PASCAL *)
(* Result: AC (2ms, 596KB) on ZeroJudge *)
(* Author: grd at 2011-07-26 14:24:13 *)
(**********************************************************************************)
program helloworld;
const a='hello, ';
var st:string;
begin
while not eof do begin
readln(st);
writeln(a,st);
end;
end.
--------------------------------------------------------
為什麼選擇pascal ?
因為一入ZJ就看到第一名是liou大........(炸飛.
還有pascal寫起來比較不像c/cpp要 放上一堆奇怪的東西
閱讀和寫起來都比較簡單...
不是嗎?
http://zerojudge.tw/ShowProblem?problemid=a001&locale=zh_TW
內容 :
學習所有程式語言的第一個練習題
請寫一個程式,可以讀入指定的字串,並且輸出指定的字串。
輸入說明 :
指定的文字
輸出說明 :
輸出指定的文字
--------------------------------------------------------
(**********************************************************************************)
(* Problem: a001 "哈囉" from Brian Kernighan *)
(* Language: PASCAL *)
(* Result: AC (2ms, 596KB) on ZeroJudge *)
(* Author: grd at 2011-07-26 14:24:13 *)
(**********************************************************************************)
program helloworld;
const a='hello, ';
var st:string;
begin
while not eof do begin
readln(st);
writeln(a,st);
end;
end.
--------------------------------------------------------
為什麼選擇pascal ?
因為一入ZJ就看到第一名是liou大........(炸飛.
還有pascal寫起來比較不像c/cpp要 放上一堆奇怪的東西
閱讀和寫起來都比較簡單...
下一篇:a002 簡易加法