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

Объявление

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

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

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

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

Страница: 1

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

1

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

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

Код:
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.

0

2

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

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

Код:
Program S2Lab2;
uses crt;
type ludi=record
     fam:string[20];
     ulica:string[20];
     gorod:string[20];
     namDom:integer;
     namKv:integer;
     end;
Var sp:array [1..20] of ludi;
    i,a:integer;
Begin
clrscr;
writeln;
writeln('Vvedite dannb)e');
For i:=1 to 20 do
 Begin
  write('Familia vladelca: ');
   readln(sp[i].fam);
  write('Gorod: ');
   readln(sp[i].gorod);
  write('Ulica: ');
   readln(sp[i].ulica);
  write('Nomer doma: ');
   readln(sp[i].namDom);
  write('Nomer kvartiri: ');
   readln(sp[i].namKv);
 End;
writeln('Ludi zhivuchie po odnomu adresu v raznih gorodah');
For i:=1 to 20 do
 For a:=1 to 20 do
if (sp[i].gorod<>sp[a].gorod) and (sp[i].ulica=sp[a].ulica) and (sp[i].namDom=sp[a].namDom) and (sp[i].namKv=sp[a].namDom) then
writeln(sp[i].fam);
readln;
End.

0

Страница: 1

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