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

Объявление

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

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Ftm и этим все сказано » Лабороторные работы » Лабораторные работы>>Вариант 21

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

Страница: 1

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

1

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

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

Код:
Program L1;
var c,s:string;
    i,g:integer;
    st: Set of 'a'..'z';
Begin
writeln('Vvedite stroku iz 2 slov');
readln(c);
g:=Length(c);
st:=['q','w','r','t','p','s','d','f','g','h','j','k','l','z','x','c','v','b','n','m'];
For i:=1 to g do
if c[i] in st then st:=st-[c[i]];
s:='qwrtpsdfghjklzxcvbnm';
for i:=1 to Length(s) do
if s[i] in st then write(s[i]);
readln;
end.

0

2

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

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

Код:
Program S2Lab2;
uses crt;
type sam=record
     Nam:integer;
     Punkt:String[20];
     vr1:integer;
     vr2:integer;
     mest:integer;
     end;
Var sp:array [1..10] of sam;
    a:string;
    i,n:integer;
    q,w:real;
Begin
clrscr;
writeln;
write('Vvedite kol vo zapisey: ');
readln(n);
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Nomre reysa: ');
   readln(sp[i].nam);
  write('Punkt naznachenia: ');
   readln(sp[i].punkt);
  write('Vrema vileta: ');
   readln(sp[i].vr1);
  write('Vrema pribitia: ');
   readln(sp[i].vr2);
  write('Kol-vo svobod mest: ');
   readln(sp[i].mest);
 End;
writeln('Vvedite mesto naznach:');
readln(a);
For i:=1 to n do
If a=sp[i].punkt then
 Begin
  write(sp[i].mest,'  ');
  writeln(sp[i].vr1);
 End;
readln;
End.

0

3

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

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

Код:
Program S2Lab2;
uses crt;
type sam=record
     Nam:integer;
     Punkt:String[20];
     vr1:integer;
     vr2:integer;
     mest:integer;
     end;
Var sp:array [1..10] of sam;
    a:string;
    i,n:integer;
    f:text;
Begin
clrscr;
assign(f,'Vova.txt');
Rewrite(f);
writeln;
write('Vvedite kol vo zapisey: ');
readln(n);
writeln('Vvedite dannb)e');
For i:=1 to n do
 Begin
  write('Nomre reysa: ');
   readln(sp[i].nam); write(f,sp[i].nam,'   ');
  write('Punkt naznachenia: ');
   readln(sp[i].punkt); write(f,sp[i].punkt,'   ');
  write('Vrema vileta: ');
   readln(sp[i].vr1); write(f,sp[i].vr1,'   ');
  write('Vrema pribitia: ');
   readln(sp[i].vr2); write(f,sp[i].vr2,'   ');
  write('Kol-vo svobod mest: ');
   readln(sp[i].mest); writeln(f,sp[i].mest,'   ');
 End;
writeln('Vvedite mesto naznach:');
readln(a);
For i:=1 to n do
If a=sp[i].punkt then
 Begin
  write(sp[i].mest,'  '); write(f,sp[i].mest,'   ');
  writeln(sp[i].vr1); write(f,sp[i].vr1,'   ');
 End;
close(f);
readln;
End.

0

4

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

ЛАБОРАТОРНАЯ РАБОТА №4
Дан файл, содержащий целые числа. Найти количество четных чисел среди элементов файла.

Код:
Program S2laba4;
var f: file of integer;
    s:real;
    i,n,a,s1,s2:integer;
Begin
assign(f,'f123.bin');
Rewrite(f);
write('Vvedite kol-vo dannih: ');
readln(a);
For i:=1 to a do
 Begin
  s1:=random(20);
  write(f,s1);
 end;
close(f);
readln;
Reset(f);
while EOF(f) do
 begin
  read(f,s2);
  s:=s2 div 2;
  write(s);
  if s=0 then n:=n+1;
 end;
writeln('Chetnih chisel',n:3);
readln;
End.

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

0

5

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

ЛАБОРАТОРНАЯ РАБОТА №5
y=−x3−6 x25 x20 на отрезке [-7; 3] с шагом 0,2.

Код:
uses crt;
const h=0.2; x0=35; y0=15; x1:real=-7;x2:real=3;
var i,j: integer;
    x,y: real;
function f(x:real):real;
     begin
      f:=-x*x*x-6*x*x+5*x+20;
     end;
Begin
textcolor(0);
textbackground(15);
clrscr;
writeln;
  writeln('ЪДДДДДДДВДДДДДДДї');
  writeln('і   x   і   y   і');
x:=x1;
for i:=1 to 51 do
 Begin
  y:=f(x);
  delay(30000);
  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.

Файл пасс для корректного отображения таблицы скачать

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

0

6

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

Домашнее задание
Составить список компьютеров, находящихся в аудитории. Для каждого компьютера
указать номер, размер монитора, частоту процессора, объем оперативной памяти, размер
жесткого диска, наличие DVD-привода (да, нет).

Код:
program DZ;
uses crt;
type
sp=record
nam:integer;
n:integer;
dr:integer;
gp:integer;
g:integer;
o:string;
  end;
 myfile = file of sp;
procedure show(var f: myfile);
 var a:sp;
  begin
   reset(f);
   while not eof(f) do
    begin
     read(f,a);
     writeln(a.nam:5,a.n:3,a.dr:5,a.gp:5,a.g:5,a.o:5);
    end;
  end;
procedure Vvod(var f:myfile);
 var a:sp;
  begin
    reset(f);
    with a do
     begin
     write('Nomer kompa: '); readln(nam);
     write('Razmer monitora: '); readln(n);
     write('Chastota processora: '); readln(dr);
     write('Obem operativoy pamati: '); readln(gp);
     write('Razmer Goskogo diska: '); readln(g);
     write('Nalichie privoda(da/net): '); readln(o);
   end;
   seek(f,filesize(f));
   write(f,a);
   close(f);
   end;
procedure delete(var f:myfile);
 var c:integer;
     n,i:integer;
     a:sp;
      begin
       reset(f);
       if filesize(f)=0 then
       begin
        write('file pust');
        exit
       end;
   n:=filesize(f);
   write('number zap: ');
   readln(c);
   if (c<0)or(c>n-1) then
   exit;
   n:=n-1;
   for i:=1 to n-1 do
    begin
     seek(f,i+1);
     read(f,a);
     seek(f,i);
     write(f,a);
    end;
   seek(f,n);
   truncate(f);
   close(f);
  end;
procedure savetext(var f: myfile);
 var t:text;
 nam: string;
 a:sp;
  begin
   write('name text: ');
   readln(nam);
   if length(nam)=0 then exit;
   assign(t,nam);
   rewrite(t);
   reset(f);
    begin
     while not eof(f) do begin read(f,a);
     writeln(a.nam:5,a.n:3,a.dr:5,a.gp:5,a.g:5,a.o:5);
    end;
   close(f);
   close(t)
   end;
  end;
procedure savetip(var f: myfile);
 var t: text;
     nam: string;
     z: sp;
  begin
   write('name file: ');
   readln(nam);
   if length(nam)=0 then exit;
   assign(t,nam);
   reset(t);
   rewrite(f);
  while not eof(t) do begin with z do
  readln(t,nam,n,dr,gp,g,o);
  write(f,z);
  end;
  close(f);
  close(t);
 end;
Var f:myfile;
    c:integer;
Begin
 Assign(f,'DZ1S2.bin');
 {$I-}
 Reset(f);
 {$I+}
If IoResult<>0 then
Rewrite(f);
Repeat
 writeln('1-Vivesti dannie');
 writeln('2-Vvesti dannie');
 writeln('3-Udalit dannie');
 writeln('4-Sohranit v text');
 writeln('5-Perepisat v Bin');
 writeln('0-Vihod');
  Repeat
   write('? ');
   readln(c);
  Until (c>=0) and (c<=5);
 case c of
   1: show(f);
   2: Vvod(f);
   3: delete(f);
   4: savetext(f);
   5: savetip(f);
  end;
 readln;
 clrscr;
 until c=0;
END.

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

0

Страница: 1

Вы здесь » Ftm и этим все сказано » Лабороторные работы » Лабораторные работы>>Вариант 21