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

Объявление

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

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

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

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

Страница: 1

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

1

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

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

Код:
program Lab1;
uses crt;
var m1,m2: array [1..10] of integer;
    Mn1,Mn2,Mn3: set of 1..20;
    i:integer;
BEGIN
clrscr;
randomize;
Mn1:=[]; Mn2:=[]; Mn3:=[];
writeln('1 possledov');
for i:=1 to 10 do begin m1[i]:=random(30)+1;
if not (m1[i] in mn1) then Mn1:=Mn1+[m1[i]]; write(m1[i],' ') end;
writeln; writeln('2 possled');
for i:=1 to 10 do begin m2[i]:=random(30)+1;
if not (m2[i] in mn2) then Mn2:=Mn2+[m2[i]]; write(m2[i],' ') end;
writeln;
Mn3:=mn1*mn2;
writeln('Vhod v 1 possled');
for i:=1 to 30 do if i in Mn1 then write(i,' '); writeln;
writeln('Vhod v 2 possled');
for i:=1 to 30 do if i in Mn2 then write(i,' '); writeln;
writeln('Vhod v 2e possledovatelnosty');
for i:=1 to 30 do if i in Mn3 then write(i,' ');
if Mn3=[] then write('Tak 4is net');
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 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.

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 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(f,'Vsego Exporta',q);
close(f);
readln;
End.

0

Страница: 1

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