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.

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

program affto;

Type

car=record

marka: string;

moshnost: integer;

mesta: integer;

end;

var

cr: car;

f: file of car;

i:integer;

{Тут процедура начинается}

procedure createfile;

begin

assign (F, ‘cars.dat’);

rewrite (F);

For I:=1 TO 20 DO

begin

writeln (’Vvedite marku’);

readln (cr.marka);

writeln (’Vvedite moshnost (v loshadinyh silah)’);

readln (cr.moshnost);

writeln (’Vvedite kolichestvo mest’);

readln (cr.mesta);

write (f, cr);

end;

close (f);

end;

Вопрос 5 Написать процедуру сортировки одномерного массива методом «Пузырька»

Program puzirek;
uses crt;
var
a:array[1..10] of integer;
i:integer;

Procedure sort;
var
i,j,k,rab:integer;
begin
for i:=1 to 10 do
for j:=1 to 10-i do
if a[j]>a[j+1] then
begin
rab:=a[j+1];
a[j+1]:=a[j];
a[j]:=rab;
writeln;
for k:=1 to 10 do
write(a[k],’.')
end;
end;

begin
clrscr;
randomize;
For i:=1 to 10 do
begin
a[i]:=random(5);
write(a[i]);write(’,');
end;
writeln;
sort;
readln;
end.

Вопрос 3 Написать рекурсивную функцию вычисления факториала.

pRogram Zdn_3;
var Fct:byte;

Function Factor(F:byte):longint;
Begin
If f=0 Then Factor:=1
Else Factor:=Factor(F-1)*F
End;

BEGIN
Write(’F! (0<=F<=255) / F= ‘);
Readln(Fct);
Writeln(’Factorial ‘,Fct,’! = ‘,Factor(Fct));
Readln;
END.

Новые записи »

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