10 Июнь 2008

3 Перевести число из двоичной СС в шестнадцатеричную СС, затем из шестнадцатиричной обратно в десятичную

1) Из 2ой в 16ую

А2=101101

А16=101101 – Это число делим по 4 символа, получится 10=2, а 1101=D

А16=2D

2) Из 16ой в 10ую

А16=2D

А10=2*161+13*160=45

А10=45

2 Перевести число из двоичной СС в восьмеричную СС, затем из восьмеричной обратно в десятичную

1) из 2й в 8ую

А8= 101101 – Это число делим по 3 символа и получится 101 = 5 и 101 =5, соответственно А8=55

2) А8=55

А10=5*81+5*80 = 45

А10=45

1 Перевести число из десятичной СС в двоичную СС, затем из двоичной обратно в десятичную

1) Из 10ой в 2ую

А10=45

А2=?

45

22

11

5

2

1

1

0

1

1

0

1

А2=101101

2) Из 2й в 10ую

5 4 3 2 1 0

1 0 1 1 0 1

А10=1*25+0*24+1*23+1*22+0*21+1*20= 45

А10=45

9 Июнь 2008

Вопрос 8 Подсчитать кол-во пробелов в символьной строке.

написано в рубрике: Алгоритмизация (П) — Метки: , , , — Михаил @ 22:38

pRogRam Zdn_8;
Var
txt:String[100];
i,k:Byte;

Begin
i:=0; k:=0;
Writeln(’–> Vash text:’);
Readln(txt);
For i:=1 To Length(txt) Do
If txt[i]=’ ‘ Then k:=k+1;
Writeln(’–> Znakov probela v stroke ‘,k);
Readln;
End.

Вопрос 7 Написать процедуру поиска кол-ва автомобилей заданной марки в типизированном файле: марка автомобиля, кол-во лошадиных сил, кол-во посадочных мест.

const n=5;
type
sved=record
marka:string[10];
l_sil:integer;
P_mest:integer;
end;
var
F:File of sved;
avto:sved;
i,kol:integer;

Procedure marka;
begin
assign(F,’avto.dat’);
reset(f);
writeln(’vvedite marku’);
readln(marka);
kol:=0;
while not (eof(f)) do
begin
read(F,avto);
if avto.marka=marka then
kol:=kol+1;
end;
close(f);
end;

Procedure zapolnenie;
begin
assign(F,’avto.dat’);
rewrite(F);
for i:=1 to n do
begin
writeln(’vvedite marku avto’);
readln(avto.marka);
writeln(’vvedite kol-vo loshd sil’);
readln(avto.l_sil);
writeln(’vvedite kol-vo posad mest’);
readln(avto.p_mest);
writeln(F,avto);
end;
end;

begin
zapolnenie;marka;
writeln(kol-vo mashin zadannoi marki -,kol);
readln;
end.

< 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 >

© Проект «Студенты-Программеры»., 2008. Все права защищены.
Перепечатка материалов только при наличии активной ссылки на источник.
Powered by WordPress