fortran常用程序
----------------------- Page 1-----------------------
Fortran 简单程序集
杨洋1
!大小写转换
program ex39
implicit none
character*20 str
integer i
print*,'input the string:'
read*,str
do i=1,len_trim(str)
if(str(i:i)>='a'.and.str(i:i)<='z') str(i:i)=char(ichar(str(i:i))-32)
end do
print*,'the inverted string:'
print*,str
end
!将字符串转化为整数
program ex104
implicit none
external f
character*10 str
integer f
print*,'输入由数字组成的字符串:' read*,str
print*,'转化后的整数:'
print*,f(str)
end
function f(str)
implicit none
character*(*) str
integer f,k,i
f=0
k=len_trim(str)
do i=1,k
f=f+(ichar(str(i:i))-ichar('0'))*10**(k-i)
end do
end function
!将十进制数转化为二进制数（用字符串保存）
program ex110
1 作者简介：杨洋，南京信息工程大学大气科学学院海洋科学系2008 级
1
----------------------- Page 2-----------------------
program ex110
implicit none
大学大一c语言程序设计实验室上机题全部代码答案(实验报告)
大学大一C语言程序设计实验室上机题全部代码答案（实验报告）
实验目的：
本实验旨在让大一学生通过实际操作掌握C语言的基本语法和常见程序设计题型，提高编程能力。
实验要求：
1. 学生需要在实验室中完成上机题，并编写相应的代码。
2. 要求代码具有良好的结构和规范，能够正确运行，并符合题目要求。
3. 学生需要记录代码的思路和过程，并在实验报告中进行详细说明。
实验过程：
本次实验共包括以下几个上机题，分别是：
1. 题目：输入两个整数，计算它们的和。
实现思路：
- 首先，定义两个整型变量a和b，用来保存输入的两个整数。
- 然后，使用scanf函数分别读取两个整数的值。
- 接下来，定义一个整型变量sum，用来保存两个整数的和。 - 使用sum = a + b计算两个整数的和。
- 最后，使用printf函数将结果输出到屏幕上。
2. 题目：输入一个整数n，计算1到n之间所有整数的和。
实现思路：
- 首先，定义一个整型变量n，用来保存输入的整数。
- 然后，使用scanf函数读取整数n的值。
- 接下来，定义一个整型变量sum，用来保存1到n之间所有整数的和。
- 使用for循环语句，从1循环到n，累加每个整数的值。
- 最后，使用printf函数将结果输出到屏幕上。
3. 题目：输入一个整数n，判断它是否是质数。
实现思路：
- 首先，定义一个整型变量n，用来保存输入的整数。
- 然后，使用scanf函数读取整数n的值。
- 接下来，定义一个布尔型变量isPrime，用来保存n是否是质数的判断结果。
- 使用for循环语句，从2循环到n-1，判断n是否能被其中任意一个整数整除。 - 如果n能被任意一个整数整除，则将isPrime设为假；否则，将isPrime设为真。
(1).// 计算N+（N-1）。。。。。+1//
#include "stdafx.h"
#include "iostream.h"
int main(int argc, char* argv[])
{ int sum,N;
cin>>N;
sum=0;
while(N>=1)
{ sum=sum+N;
N=N-1;
}
cout<
return 0;
}
(2)// 计算1/1+1/2+........+1/N//
#include "stdafx.h"
#include "iostream.h"
int main(int argc, char* argv[])
{ int N,i;
float sum;
sum=0;
i=1; cin>>N;
while(i<=N)
{ sum=sum+1.0/i;
i=i+1;
}
cout<
return 0;
}
(3) //计算N*（N-1)*......1//
#include "stdafx.h"
#include "iostream.h"
int main(int argc, char* argv[])
{ int N,sum;
sum=1;
cin>>N;
while(N>=1)
{ sum=sum*N;
N=N-1;
}
cout<
return 0;)
(4) //计算1+1/1！+1/2！+.....+1/10！// #include "stdafx.h"
#include "iostream.h"
int main(int argc, char* argv[])
{ int a,i;
float sum;
经典C语言源代码
1、(1)某年某月某日是星期几
#include
int main()
{
int year, month, day;
while (scanf_s(%d%d%d, &year, &month, &day) != EOF)
{
if (month == 1 || month == 2)//判断month是否为1或2
{
year--;
month += 12;
}
int c = year / 100;
int y = year - c * 100;
int week = (c / 4) - 2 * c + (y + y / 4) + (13 * (month + 1) / 5) +
day - 1;
while (week<0) { week += 7; } week %= 7;
switch (week)
{
case 1:printf(Monday\n); break;
case 2:printf(Tuesday\n); break;
case 3:printf(Wednesday\n); break;
case 4:printf(Thursday\n); break;
case 5:printf(Friday\n); break;
case 6:printf(Saturday\n); break;
case 0:printf(Sunday\n); break;
}
}
return 0;
}
1、(2)某年某月某日是第几天（一维数组）
#include stdio.h void main() {
int i, flag, year, month, day, dayth;
int month_day[] = { 0,31,28,31,30,31,30,31,31,30,31,30,31 };
