小程序appid在哪里看

procedure TForm1.btn1Click(Sender: TObject);var
m, n, j : Integer;
str : String;
begin
m := StrToInt(Edit1.Text);
n := StrToInt(Edit2.Text);
str := '';
for j:=m+1 to n-1 do begin
if (j

'If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
'Set Appppt = Wrd.ActiveDocument.Shapes(1)
'If Appppt.TextEffect.FontName = "黑体" Then ' 字体
'asp = asp + 0.5

书上的一个例题，可是我把它输入后编译，总是得不到所要结果。题目～编程计算每天捕获的鱼的重量，这里假设每天最多捕获五条鱼，如果数组被填满或者输入了非数字输入，循环将结束。程序如下:
#include <iostream>
const int Max=5;
int main()
{
  using namespace std;
  double fish[Max];
  cout<<&

'If Appppt.ActiveDocument.Shapes(1).Type = 15 Then ' 不是艺术字，就不进来操作
'Set Appppt = Wrd.ActiveDocument.Shapes(1)
'If Appppt.TextEffect.FontName = "黑体" Then ' 字体
'asp = asp + 0.5

#include <math.h>
#include <stdio.h>

void main()
{
double x, s;
printf("input number:\n");
scanf("%if",&x）;
s=sin(x);
printf("sine of %If is %If\n",x, s)

#include <stdio.h>

int main (void)
{
double money;

while (1)
{
if (scanf ("%lf", &money) != 1)
{
printf ("输入有误!\n");

#include <math.h>
#include <stdio.h>

void main()
{
double x, s;
printf("input number:\n");
scanf("%if",&x）;
s=sin(x);
printf("sine of %If is %If\n",x, s)

书上的一个例题，可是我把它输入后编译，总是得不到所要结果。题目～编程计算每天捕获的鱼的重量，这里假设每天最多捕获五条鱼，如果数组被填满或者输入了非数字输入，循环将结束。程序如下:
#include <iostream>
const int Max=5;
int main()
{
  using namespace std;
  double fish[Max];
  cout<<&