Главная

Контакты

Случайная статья

• Автоматизация
• Антропология
• Археология
• Архитектура
• Биология
• Ботаника
• Бухгалтерия
• Военная наука
• Генетика
• География
• Геология
• Демография
• Деревообработка
• Журналистика
• Зоология
• Изобретательство
• Информатика
• Искусство
• История
• Кинематография
• Компьютеризация
• Косметика
• Кулинария
• Культура
• Лексикология
• Лингвистика
• Литература
• Логика
• Маркетинг
• Математика
• Материаловедение
• Медицина
• Менеджмент
• Металлургия
• Метрология
• Механика
• Музыка
• Науковедение
• Образование
• Охрана Труда
• Педагогика
• Полиграфия
• Политология
• Право
• Предпринимательство
• Приборостроение
• Программирование
• Производство
• Промышленность
• Психология
• Радиосвязь
• Религия
• Риторика
• Социология
• Спорт
• Стандартизация
• Статистика
• Строительство
• Технологии
• Торговля
• Транспорт
• Фармакология
• Физика
• Физиология
• Философия
• Финансы
• Химия
• Хозяйство
• Черчение
• Экология
• Экономика
• Электроника
• Электротехника
• Энергетика

begin. fori:=1 ton do. fori:=1 ton do. fori:=1 to9 do. forj:=1 toi do. ifs<>'' then. repeat

begin

 randomize;

fori:=1 ton do

   a[i]:=15-random(30);

k:=0;

fori:=1 ton do

ifa[i]<0 theninc(k);

writeln('kolichestvo otricatelnyh - ',k);

readln;

end.

1. Сконструируйте программу для формирования текстового файла из 9 строк, в первой из которых – один символ ‘1’, во второй – два символа ‘2’ и т.д., в девятой – девять символов ‘9’.

programformir;

varf:text;

j,i:integer;

s,s1:string;

begin

 assign(f,'out.txt');

rewrite(f);

fori:=1 to9 do

begin

     s:='';

 {formirovanie stroki}    

forj:=1 toi do

   begin

 {perevod chisla v stroky}

     str(i,s1);

     s:=s+s1;

   end; 

writeln(f,s);

end;

close(f); 

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления суммы положительных чисел среди трех введенных с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var i:integer;

s,a:integer;

begin

writeln('vvedite 3 chisla');

s:=0;

for i:=1 to 3 do

begin

readln(a);

if a>0 then s:=s+a;

end;

writeln('suma=',s);

readln;

end.

13. Сконструируйте программу нахождения суммы цифр в строке символов, представляющей собой последовательность цифр.

programsumma;

vari,n,c:integer;

s,s1:string;

summ:integer;

begin

 writeln('vvedite stroky');

  readln(s);

ifs<>'' then

begin

     val(s,n,c);

summ:=0;

repeat

       summ:=summ+(n mod10);

   n:=n div10;

untiln=0; 

writeln(summ);

end

elsewriteln('pustaja stroka');

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для нахождения среднего геометрического и среднего арифметического двух положительных чисел.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a,b:real;

sa,sg:real;

begin

writeln('vvedite 2 chisla');

readln(a,b);

sa:=(a+b)/2;

sg:=sqrt(a*b);

writeln('srednee arifmeticheskoe ',sa:8:3);

writeln('srednee geometricheskoe ',sg:8:3);

readln;

end.

15. Сконструируйте программу определения количества слов в данной строке символов (начинается с буквы и заканчивается буквой). В качестве разделителей используется один пробел.

programslova;

vars:string;

i,k:integer;