Лабораторные работы>>Вариант 7

Страница: 1

Сообщений 1 страница 7 из 7

Поделиться12010-06-04 14:45:14

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №1
Дана непустая последовательность символов. Требуется построить и напечатать множество, элементами которого являются встречающиеся в последовательности буквы от D до I.

Код:

Program L1;
var c:string;
    i,g:integer;
    st: Set of 'A'..'Z';
    st1: Set of 'a'..'z';
Begin
writeln('Vvedite stroku');
readln(c);
g:=0;
st:=['A'..'Z'];
st1:=['a'..'z'];
writeln('Mosnost bukv lat alfavita');
For i:=1 to Length(c) do
if (c[i] in st) or (c[i] in st1) then g:=g+1;
writeln(g);
readln;
end.

Поделиться22010-06-04 14:46:29

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №2
Информация о товарах содержит: наименование товара; страна, импортирующая товар; объем поставляемой партии в шт. Список товаров не превышает 10. Распечатать список стран, в которые экспортируется данный товар и общий объем экспорта.

Код:

Program S2Lab2;
uses crt;
type tov=record
     Namtov:string[20];
     SImp:string[20];
     Stuk:integer;
     SExp:string[20];
     end;
Var sp:array [1..10] of tov;
    a:string;
    q,i,n:integer;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey (ot 1 do 10): ');
readln(n);
If n>10 then write('Zap bolshe 10!!!! Nado 10<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Naimen tov: ');
   readln(sp[i].Namtov);
  write('Strana Importer: ');
   readln(sp[i].SImp);
  write('Kol-vo tovara: ');
   readln(sp[i].Stuk);
  write('Strana Exporter: ');
   readln(sp[i].SExp);
 End;
write('Vvedite naimen Tovara: ');
readln(a);
  write('|Kol-vo tovara    |');
  writeln('Strana Exporter    ');
q:=0;
For i:=1 to n do
q:=q+sp[i].Stuk;
 If sp[i].Namtov=a then
  Begin
   write('|',sp[i].Stuk);   write('                |');
   writeln(sp[i].SExp);
  End;
End;
writeln('Vsego Exporta: ',q);
readln;
End.

Поделиться32010-06-04 14:47:28

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №3
Информация о товарах содержит: наименование товара, страна, импортирующая товар, объем поставляемой партии в шт. Список товаров не превышает 10. Распечатать список стран, в которые экспортируется данный товар и общий объем экспорта. Исходный массив записей, а также полученный результат записать в текстовый файл.

Код:

Program S2Lab2;
uses crt;
type tov=record
     Namtov:string[20];
     SImp:string[20];
     Stuk:integer;
     SExp:string[20];
     end;
Var sp:array [1..10] of tov;
    a:string;
    q,i,n:integer;
    f,f1:text;
Begin
clrscr;
assign(f,'Ser.txt');
Rewrite(f);
writeln;
write('Vvedite kol vo zapisey (ot 1 do 10): ');
readln(n);
If n>10 then write('Zap bolshe 10!!!! Nado 10<') Else
Begin
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Naimen tov: ');
   readln(sp[i].Namtov); write(f,sp[i].Namtov,'    ');
  write('Strana Importer: ');
   readln(sp[i].SImp);   write(f,sp[i].SImp,'    ');
  write('Kol-vo tovara: ');
   readln(sp[i].Stuk);   write(f,sp[i].Stuk,'    ');
  write('Strana Exporter: ');
   readln(sp[i].SExp);   writeln(f,sp[i].SExp,'    ');
 End;
close(f);
write('Vvedite naimen Tovara: ');
readln(a);
  write('|Kol-vo tovara    |');
  writeln('Strana Exporter    ');
q:=0;
assign(f,'Ser.txt');
Rewrite(f);
For i:=1 to n do
Begin
q:=q+sp[i].Stuk;
 If sp[i].Namtov=a then
  Begin
   write('|',sp[i].Stuk);   write('                |'); write(f,sp[i].Stuk,'    ');
   writeln(sp[i].SExp); writeln(f,sp[i].SExp,'    ');
  End;
End;
End;
writeln('Vsego Exporta: ',q); write(f1,'Vsego Exporta',q);
close(f);
readln;
End.

Поделиться42010-06-04 14:48:40

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №4
Даны символьные файлы f1 и f2. Переписать с сохранением порядка следования компоненты файла f1 в файл f2, а компоненты файла f2 в файл f1, используя вспомогательный файл h.

Код:

Program S2laba4;
var f1,f2,h:text;
    st1,st2:array[1..20] of string;
    s1,s2:string;
    i,n:integer;
Begin
assign(f1,'f123.txt');
assign(f2,'f223.txt');
assign(h,'h333.txt');
Rewrite(f1);
write('Vvedite dannie v 1 file: ');
readln(s1); write(f1,s1);
close(f1);
write('Vvedite dannie vo 2 file');
Rewrite(f2);
readln(s1); write(f2,s1);
close(f2);
Reset(f1);
Rewrite(h);
readln(f1,s1);
writeln(h,s1);
close(f1);
close(h);
reset(f2);
rewrite(f1);
read(f2,s1);
write(f1,s1);
close(f1); close(f2);
reset(h); rewrite(f2);
read(h,s1);
write(f2,s1);
close(h); close(f2);
readln
End.

Поделиться52010-06-04 14:50:10

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №5
y=x*x-2*x-3 на отрезке [-4,4] с шагом 0,1.

Код:

uses crt;
const h=0.1; x0=35; y0=15; x1:real=-4;x2:real=4;
var i,j: integer;
    x,y: real;
function f(x:real):real;
     begin
      f:=x*x-2*x-3;
     end;
Begin
textcolor(0);
textbackground(15);
clrscr;
writeln;
  writeln('ЪДДДДДДДВДДДДДДДї');
  writeln('і   x   і   y   і');
x:=x1;
for i:=1 to 81 do
 Begin
  y:=f(x);
  delay(3000);
  writeln('ГДДДДДДДЕДДДДДДДґ');
  writeln('і',x:7:2,'і',y:7:2,'і');
  x:=x+h;
 End;
  writeln('АДДДДДДДБДДДДДДДЩ');
readln;
clrscr;
gotoxy(x0,y0);
textcolor(4);
for i:=1 to 60 do
 begin
  gotoxy(9+i,y0);
  write('Д')
 end;
write('>');
gotoxy(x0,y0);
j:=1;
gotoxy(x0,2+j);
write('^');
for j:=1 to 18 do
 begin
  gotoxy(x0,3+j); write('і') end;
  gotoxy(x0,y0); write('Е');
  textcolor(0);
  x:=x1;
  while x<=x2 do
   begin
    y:=f(x);
    gotoxy(x0+round(x*2),y0-round(y));
    write('#');
    x:=x+h;
   end;
readln
End.

Поделиться62010-06-04 14:51:49

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №6
Песочные часы с высыпающимся песком.

Код:

uses Graph, CRT;
const
 PauseTime = 30;    
 Count     = 90;    
var
 grDriver: Integer; 
 grMode: Integer;   
 ErrCode: Integer;  
 i, j, k : integer; 
 Key : word;       
BEGIN
 grDriver := Detect;
 InitGraph(grDriver, grMode, 'e:\program\bp\bgi'); 
 ErrCode := GraphResult;
 if ErrCode <> grOk then Halt(1); 
 Line(50, 50, 150, 200);
 Line(150, 50, 50, 200);
 Line(50, 50, 150, 50);
 Line(50, 200, 150, 200);
 SetFillStyle(SolidFill, DarkGray);   
 Bar(45, 45, 155, 49);
 Bar(45, 201, 155, 206); 
 repeat
  for j := Count to 125 do   
  begin                
   for i := Round((2*j+50)/3)+1 to Round((2*j-550)/(-3))-1 do
    PutPixel(i, j, Yellow); 
  end;
  for k := 199 downto 199-Count do
   for i := Round((2*k-550)/(-3))+1 to Round((2*k+50)/3)-1 do
    PutPixel(i, k, Black);        
  k := ord(ReadKey);               
  if k = 0 then k := ord(ReadKey); 
  if k = 27 then Break;           

  j := 199; 
  k := Count;  
  Randomize; 
  while (j > 199-(125-Count)) and (k < 125) do
  begin
   for i := j downto 125 do
    if Random(10) < 6 then        
     PutPixel(100, i, Black) else PutPixel(100, i, Yellow);
   for i := Round((2*j-550)/(-3))+1 to Round((2*j+50)/3)-1 do
    PutPixel(i, j, Yellow);
   for i := Round((2*k+50)/3)+1 to Round((2*k-550)/(-3))-1 do
    PutPixel(i, k, Black);
   for i := Round((2*(k+1)+50)/3)+1 to Round((2*(k+1)-550)/(-3))-1 do
    PutPixel(i, k+1, Black);
   Delay(PauseTime);              
   dec(j);
   inc(k, 2);
  end; {while}

  for i := j downto 125 do        
    PutPixel(100, i, Black);
  k := ord(ReadKey);               
  if k = 0 then k := ord(ReadKey);
 until k = 27;
 CloseGraph;                     
END.

Поделиться72010-06-04 14:53:21

Автор: Slonik
Администратор
Зарегистрирован: 2009-10-21
Приглашений: 0
Сообщений: 101
Уважение: +6
Позитив: 0
Провел на форуме:
1 день 3 часа
Последний визит:
2011-04-01 17:15:35

ЛАБОРАТОРНАЯ РАБОТА №7
Задан массив, содержащий информацию об автомобилях. Для каждого автомобиля указана марка, тип автомобиля (грузовой, пассажирский, легковой), цвет и год выпуска. Построить круговую диаграмму, отражающую процентный состав автомобилей по признаку «тип автомобиля».

Код:

uses crt, graph;
const r=152;
avto=3;
type
        A = record
                nazvanie: string;
                cvet: string;
                god: integer;
                tip: integer;
        end;
var i : integer ;
ar: array[1..10] of a;
        k,m0,m1,m2,l,l0:integer;
        ro:real;
        Driver, Mode: Integer;
        Xasp, Yasp: Word;
begin
clrscr;
writeln('Kol-vo tipov: 3' ) ;
readln;
for i:=1 to avto do
begin
writeln('Marca: ');
Readln(ar[i].nazvanie);
writeln('Cvet:');
Readln(ar[i].cvet);
ar[i].tip:=random(5);
writeln('Tip:');
ar[i].tip:=random(200);
writeln(ar[i].tip);
end;
writeln('„Ё Ја ¬¬  :');
        for i:=1 to avto do
        k:=k+ar[i].tip;
        ro:=360/k;
        m0:= ar[1].tip*trunc(ro);
        m1:=ar[2].tip*trunc(ro);
        m2:=ar[3].tip*trunc(ro);
        driver:=Detect;
        InitGraph(Driver, Mode, '');
        SetFillStyle(4, 2);
        Sector(GetMaxX Div 2, GetMaxY Div 2, 0, m0, R, R);
        Bar(480, 50, 500, 70);
        outtextxy(504,60,ar[1].nazvanie);
         SetFillStyle(5, 3);
        Sector(GetMaxX Div 2, GetMaxY Div 2, m0, m1+m0, R, R);
        Bar(480, 80, 500, 100);
        outtextxy(504,90,ar[2].nazvanie);

        SetFillStyle(8, 8);
        Sector(GetMaxX Div 2, GetMaxY Div 2, m0+m1, m1+m0+m2, R, R);
        Bar(480, 110, 500, 130);
        outtextxy(504,120, ar[3].nazvanie);
        readln;
   CloseGraph;
end.

Отчет скачать

Страница: 1

Ftm и этим все сказано

Меню навигации

Пользовательские ссылки

Объявление

Информация о пользователе

Лабораторные работы>>Вариант 7

Сообщений 1 страница 7 из 7

Поделиться12010-06-04 14:45:14

Поделиться22010-06-04 14:46:29

Поделиться32010-06-04 14:47:28

Поделиться42010-06-04 14:48:40

Поделиться52010-06-04 14:50:10

Поделиться62010-06-04 14:51:49

Поделиться72010-06-04 14:53:21