pat 1023

本文介绍了一种判断一个整数乘以2后是否能成为原数的一种排列的方法。通过遍历原数的每一位,计算每位乘以2后的结果,并检查结果是否为原数数字的一种重新排列。

判断一个数乘2后是否是原数的一个排列思路,未明白如何判断是否是原数的一个排列。还有2个点没过。

#include<stdio.h>
#include<string.h>
#define NUM 25
char source[NUM];
int dest[NUM];
int a[12];
int main()
{
	int i,j,sLen,dLen,sum,flag,index;
	scanf("%s",source);
	sLen=strlen(source);
	dLen=sLen;
	for(i=0;i<sLen;i++)
		a[source[i]-'0']++;
	index=0;
	
	for(i=sLen-1;i>=0;i--){
		flag=0;
		sum=(source[i]-'0')*2;
		if(sum>=10){
			flag=1;
			sum-=10;
		}
		dest[index]+=sum;
		dest[index+1]+=flag;
		index++;

	}
	for(j=index-1;j>=0;j--){
		if(a[dest[j]]==0){
			flag=0;
			break;
		}
		a[dest[j]]--;

	}
	for(i=0;i<10;i++)
		if(a[i]!=0)
			flag=0;
	if(flag==0)
		printf("Yes\n");
	else printf("No\n");
	for(j=index-1;j>=0;j--)
		printf("%d",dest[j]);
	printf("\n");
	
	return 0;
}




function copy-data([int]$startrow, [int]$startcol, [int]$endrow, [int]$endcol, [string]$pat, [string]$file, [int]$sheetfrom, [int]$sheetto) { $excel = New-Object -ComObject Excel.Application $excel.Visible = $false $wb = $excel.Workbooks.Open($file) $wsfrom = $wb.Sheets.Item($sheetfrom) $wsto = $wb.Sheets.Item($sheetto) $sr = $wsfrom.Range($wsfrom.Cells.Item($startrow, $startcol), $wsfrom.Cells.Item($endrow, $endcol)) $fc = $sr.Find($pat) if ($fc -ne $null) { $rown = $fc.Row $dsr = $wsto.Range($wsto.Cells.Item($rown, $startcol), $wsto.Cells.Item($rown + ($endrow - $startrow), $endcol)) $dsr = $dsr.Resize($sr.Rows.Count, $sr.Columns.Count) $sr.Copy() $dsr.PasteSpecial(-4104) } $excel.DisplayAlerts = $false $wb.Close($true) [Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null } $path = $PWD.Path $file = "$path\a.xlsx" # 将sheet1中第1行到第4行、第2列到第9列的数据复制到sheet2中 copy-data -startrow 1 -startcol 2 -endrow 4 -endcol 9 -pat 1009 -file $file -sheetfrom 1 -sheetto 2 # 将sheet1中第6行到第8行、第2列到第9列的数据复制到sheet2中 copy-data -startrow 6 -startcol 2 -endrow 8 -endcol 9 -pat 1018 -file $file -sheetfrom 1 -sheetto 2 # 将sheet1中第10行到第11行、第2列到第9列的数据复制到sheet2中 copy-data -startrow 10 -startcol 2 -endrow 11 -endcol 9 -pat 1023 -file $file -sheetfrom 1 -sheetto 2 这个是搜索sheet1中关键词吗,我现在要搜索sheet2中关键词 得到行信息后再把sheet1指定内容复制到sheet2指定区域,怎么修改呢
05-19
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值