Главная

Контакты

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

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

begin. ifa<=n then. fori:=1 ton do. fori:=1 ton do. fori:=1 ton do. fori:=1 ton do

begin

 writeln('vvedite nachalo i konec intervala');

readln(a,n);

s:=0;

ifa<=n then

begin

fori:=a ton dos:=s+i;

writeln('summa =',s:4);

  end

elsewriteln('summa ne syschestvuet');

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для перевода градусов Фаренгейта в градусы Цельсия по формуле c=5/9(f-32).

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var c,f:real;

begin

writeln('vvedite gradusi farengeita');

readln(f);

c:=5/9*(f-32);

writeln('po celsiu - ',c:4:1);

readln;

end.

1. Сконструируйте программу замены в заданном массиве М(15) нулевых элементов квадратами их индексов.

programznachenie;

constn=15;

vara:array[1..n] ofinteger;

i: integer;

k:integer;

begin

 randomize;

fori:=1 ton do

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

fori:=1 ton do

   write(a[i]:4);

k:=0;

writeln;

fori:=1 ton do

ifa[i]=0 thena[i]:=sqr(i);

fori:=1 ton do

   write(a[i]:4);

readln;

end.

1. Сконструируйте программу для подсчета количества отрицательных элементов в каждой строке матрицы размером M*N, элементы которой вводятся с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array of array of integer;

m,n:integer;

i,j:integer;

k:integer;

begin

writeln('vvedite razmer massiva');

readln(m,n);

setlength(a,m,n);

randomize;

for i:=0 to m-1 do

for j:=0 to n-1 do

a[i,j]:=random(20)-random(10);

k:=0;

for i:=0 to m-1 do

begin

k:=0;

for j:=0 to n-1 do

if a[i,j]<0 then k:=k+1;

write(k:5);

end;

writeln;

writeln('massiv');

for i:=0 to m-1 do

begin

for j:=0 to n-1 do

   write(a[i,j]:5);

    writeln;

end;

readln;

end.

1. Сконструируйте программу в системе программирования Delphi для вычисления суммы нечетных элементов массива размером N×M.

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a:array of array of integer;

m,n:integer;

i,j:integer;

sum:integer;

begin

writeln('vvedite razmer massiva');

readln(m,n);

setlength(a,m,n);

randomize;

for i:=0 to m-1 do

for j:=0 to n-1 do

a[i,j]:=random(20)-random(10);

sum:=0;

for i:=0 to m-1 do

for j:=0 to n-1 do

if odd(a[i,j]) then sum:=sum+a[i,j];

writeln('massiv');

for i:=0 to m-1 do

begin

for j:=0 to n-1 do

   write(a[i,j]:5);

writeln;

end;

writeln('summa=',sum:5);

readln;

end.

1. Вычислите сумму геометрической прогрессии (в промежутке от 1 до m, знаменатель q и m – задаются с клавиатуры).

programprogressia;

varm,q,a:real;

s:real;