読み込んだ整数値までカウントアップ、0までカウントダウン (for文)
明解C言語 入門編 > 4. プログラムの流れの繰り返し >
読み込んだ整数値までカウントアップ、0までカウントダウン (for文)
C
#include <stdio.h>
int main(int argc, char* argv[])
{
int no, i;printf("正の整数を入力してください:");
scanf("%d", &no);for (i = 0; i <= no; i++)
{
printf("%d\n", i);
}putchar('\n');
for (i = no; i >= 0; i--)
{
printf("%d\n", i);
}return 0;
}
実行結果
R:\>lesson028\project1.exe
正の整数を入力してください:12
0
1
2
3
4
5
6
7
8
9
10
11
1212
11
10
9
8
7
6
5
4
3
2
1
0
Delphi
program Project1;{$APPTYPE CONSOLE}
uses
SysUtils;
var
no, i: Integer;
begin
write('正の整数を入力してください:');
read(no);for i := 0 to no do
begin
writeln(format('%d', [i]));
end;write(#13#10);
for i := no downto 0 do
begin
writeln(format('%d', [i]));
end;
end.
実行結果
S:\>lesson028\project1.exe
正の整数を入力してください:12
0
1
2
3
4
5
6
7
8
9
10
11
1212
11
10
9
8
7
6
5
4
3
2
1
0
Perl
print "正の整数を入力してください:"; chomp($no = <>); for ($i = 0; $i <= $no; $i++) { print "$i\n"; } print "正の整数を入力してください:"; chomp($no = <>); for (0..$no) { print "$_\n"; } print "正の整数を入力してください:"; chomp($no = <>); foreach $i(0..$no) { print "$i\n"; }
実行結果
L:\>perl lesson_04_028.pl
正の整数を入力してください:3
0
1
2
3
正の整数を入力してください:4
0
1
2
3
4
正の整数を入力してください:5
0
1
2
3
4
5
Ruby
print "正の整数を入力してください:" no = STDIN.gets.chomp.to_i for i in 0..no print "#{i}\n" end print "正の整数を入力してください:" no = STDIN.gets.chomp.to_i (0..no).each do |i| print "#{i}\n" end print "正の整数を入力してください:" no = STDIN.gets.chomp.to_i (no + 1).times do |i| print "#{i}\n" end print "正の整数を入力してください:" no = STDIN.gets.chomp.to_i 0.upto(no) do |i| print "#{i}\n" end print "正の整数を入力してください:" no = STDIN.gets.chomp.to_i 0.step(no, 1) do |i| print "#{i}\n" end
実行結果
L:\>ruby l:\lesson_04_028.rb
正の整数を入力してください:2
0
1
2
正の整数を入力してください:3
0
1
2
3
正の整数を入力してください:4
0
1
2
3
4
正の整数を入力してください:5
0
1
2
3
4
5
正の整数を入力してください:6
0
1
2
3
4
5
6