文档章节

FreeBasic打印100以内的素数

wangxuwei
 wangxuwei
发布于 2017/04/17 21:30
字数 161
阅读 17
收藏 1
dim as integer n,i,f
for n=2 to 100
	f=1
    for i=2 to n\2
		if n mod i=0 then f=0:exit for
	next i
	if f=1 then ?n,
next n
print
sleep
end

输入p(这里是5)个整数求平均值

dim as integer a 
dim as integer s=0
dim as integer p=0
dim as single m
while  p < 5
    print "input score" 
    input a
	s=s+a
	p+=1
wend
m=s/p
print "avrage score is:";m

在Gambas中代码是这样的:

' Gambas module file

Public Sub Main()
 Dim a, s, p As Integer 
 Dim m As Single
 
Let a = 0 
Let s = 0
Let p = 0

While p < 5
    Print "input score" 
    Input a
	s = s + a
	p += 1
Wend
m = s / p
Print "avrage score is:"; m

End

 

© 著作权归作者所有

共有 人打赏支持
wangxuwei
粉丝 25
博文 335
码字总数 117394
作品 0
杭州
其他
私信 提问
Win7系统安装FreeBasic编译器与FBIde开发环境

1.我的环境 操作系统:32位 Win7 旗舰版 Service Pack 1 2.安装FreeBasic编译器 OSC上FreeBasic的页面是:http://www.oschina.net/p/freebasic FreeBasic官方网站的首页是:http://www.free...

北风其凉
2014/12/11
0
0
软件FreeBasic的下载地址变了

今天在开源中国的FreeBasic页面(http://www.oschina.net/p/freebasic)上看到 在“软件下载”一项中,页面给出的地址是: http://www.freebasic.net/index.php/download 这个页面现在已经不...

北风其凉
2014/12/11
406
0
FREEBASIC 编译可被python调用的dll函数示例

<转帖子请注明出处> 程序员的两极分化: ①软件专业性加强。许多的软件都要做软件工程,要团队进行合作开发,单打独斗已经无法开发出功能很强的软件;这类程序员对某个编程软件要非常精通,但...

Cdongdong
2014/04/16
0
0
中文版的:VisualFreeBasic 3.9.3

因为第一门语言是BASIC,最早的开发工具也是QuickBASIC,所以对BASIC一直怀念。今天找到一个汉化的FreeBASIC,有兴趣的朋友去下载一个体验一下。顺便点个赞。 下载地址:http://www.yfvb.com/s...

zdhsoft
2018/04/25
0
0
FreeBasic的网友评论

FreeBasic 是一个免费开源的Basic语言编译器。

红薯
2009/12/11
711
1

没有更多内容

加载失败,请刷新页面

加载更多

租房软件隐私保护如同虚设

近日,苏州市民赵先生向江苏新闻广播新闻热线025-84658888反映,他在“安居客”手机应用软件上浏览二手房信息,并且使用该软件自动生成的虚拟号码向当地一家中介公司进行咨询。可电话刚挂不久...

linux-tao
今天
1
0
分布式项目(五)iot-pgsql

书接上回,在Mapping server中,我们已经把数据都整理好了,现在利用postgresql存储历史数据。 iot-pgsql 构建iot-pgsql模块,这里我们写数据库为了性能考虑不在使用mybatis,换成spring jd...

lelinked
今天
4
0
一文分析java基础面试题中易出错考点

前言 这篇文章主要针对的是笔试题中出现的通过查看代码执行结果选择正确答案题材。 正式进入题目内容: 1、(单选题)下面代码的输出结果是什么? public class Base { private Strin...

一看就喷亏的小猿
今天
2
0
cocoapods 用法

cocoapods install pod install 更新本地已经install的仓库 更新所有的仓库 pod update --verbose --no-repo-update 更新制定的仓库 pod update ** --verbose --no-repo-update...

HOrange
今天
3
0
linux下socket编程实现一个服务器连接多个客户端

使用socekt通信一般步骤 1)服务器端:socker()建立套接字,绑定(bind)并监听(listen),用accept()等待客户端连接。 2)客户端:socker()建立套接字,连接(connect)服务器,连接上后...

shzwork
昨天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部