Помогите создать блок схему к задачке по Паскалю - Форум
Воскресенье, 04.12.2016, 04:55
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Страница 1 из 11
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите создать блок схему к задачке по Паскалю
Помогите создать блок схему к задачке по Паскалю
PasyДата: Воскресенье, 30.05.2010, 21:19 | Сообщение # 1
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
program AmAm;

procedure perevod(var j:integer; var G:text; var sum:integer);
var h,s,l,i,k,none,one:integer;
a:array[0..10] of integer;
b:array[0..10] of integer;
chislo:string;
begin
h:=j;
s:=j;
k:=0;
i:=0;
one:=0;
none:=0;
while s>=1 do
begin
a[i]:=(s mod 2);
s:=(s div 2);
i:=i+1;
end;
l:=i;
while i>0 do
begin
b[k]:=a[i-1];
i:=i-1;
k:=k+1;
end;
for i:=0 to l-1 do
begin
chislo:=chislo+(inttostr(b[i]));
if b[i]=0 then inc(none) else inc(one);;
end;
j:=StrToInt(chislo);
if none=one then
begin
writeln(G,chislo,' ',h);
sum:=sum+h;
end;
delete(chislo,1,l);
end;

var chisel, chislo, i, sum:integer;
F,S:text;
begin
assign(F,'1.txt');
reset(F);
assign(S,'2.txt');
rewrite(S);
write('Skolko chisel v faile? ');
readln(chisel);
sum:=0;
For i:=1 to chisel do
begin
read(F,chislo);
perevod(chislo,S,sum);
end;
close(F);
close(S);
writeln('Summa = ', sum);
end.

 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Помогите создать блок схему к задачке по Паскалю
Страница 1 из 11
Поиск:

Copyright MyCorp © 2016