Кому порешать задачи - пишите сюда
- Автор теми dreamer
- Дата створення
Пионерка
MuzZ♥z♥Zz♥
помогите пожалуйста...
язык:Паскаль
Написати програму, що використовує функцію.
2 Підрахувати кількість крапок, що знаходяться всередині кола радіусом R з центром на початку координат; координати задані масивами x(100), y(100). Відстань крапки від початку координат обчислювати у функції.
_____________
Написати програму з використанням процедури.
2 Обчислити z= ( еs1+еs2 )/( k1k2 ), де s1 і k1 – сума і кількість позитивних елементів масиву x(100); s2 і k2 – сума і кількість позитивних елементів масиву y(80). Суми і кількість обчислювати в процедурі.
язык:Паскаль
Написати програму, що використовує функцію.
2 Підрахувати кількість крапок, що знаходяться всередині кола радіусом R з центром на початку координат; координати задані масивами x(100), y(100). Відстань крапки від початку координат обчислювати у функції.
_____________
Написати програму з використанням процедури.
2 Обчислити z= ( еs1+еs2 )/( k1k2 ), де s1 і k1 – сума і кількість позитивних елементів масиву x(100); s2 і k2 – сума і кількість позитивних елементів масиву y(80). Суми і кількість обчислювати в процедурі.
2я
Код:
uses crt;
type arrtype=array[1..100] of integer;
const m=100; n=80;
var
es1,es2,k1,k2:integer;
z:real;
x,y:arrtype;
procedure vvod(var a:arrtype; k:integer);
var g,i:integer;
begin
for i:=1 to k do
begin
g:=random(40)-15;
a[i]:=g;
end; end;
procedure vivod(a:arrtype; k:integer);
var i:integer;
begin
for i:=1 to k do
begin
if i<k then
write(a[i],',')
else write(a[i]);
end; end;
procedure main(a:arrtype;k:integer; var s,kol:integer);
var i:integer;
begin
s:=0; kol:=0;
for i:=1 to k do
begin
if a[i]>0 then
begin
s:=s+a[i];
kol:=kol+1;
end; end; end;
begin
clrscr;
randomize;
vvod(x,m); vvod(y,n); vivod(x,m); gotoxy(1,7); vivod(y,n);
main(x,m,es1,k1);
main(y,n,es2,k2);
z:=(es1+es2)/(k1*k2);
gotoxy(1,12);
write('z=',z:4:2);
readln;
end.1я
Код:
uses crt;
type arrtype=array[1..100] of integer;
const m=100; {количество всех точек} {для проверки m лучше ставить небольшое(5,10)}
var
i,r,k:integer; {r-радиус окружности, k-количество нужных нам точек}
x,y:arrtype;
z:real;
procedure vvod(var a:arrtype);
begin
for i:=1 to m do
a[i]:=random(40)-15;
end;
procedure vivod(a:arrtype);
begin
for i:=1 to m do
begin
if i<m then
write(a[i],',')
else write(a[i]);
end; end;
function dlina(x,y:arrtype; i1:integer):real;
begin
dlina:=sqrt(sqr(x[i1])+sqr(y[i1]))
end;
begin
clrscr;
randomize;
k:=0;
vvod(x); vvod(y); vivod(x); gotoxy(1,7); vivod(y);
gotoxy(1,12); write('Введите радиус: '); read(r);
for i:=1 to m do
begin
z:=dlina(x,y,i);
if z<r then
k:=k+1;
end;
gotoxy(1,16);
write(k);
readkey;
end.
помгите решить такие задачи, буду очень благодарен. все задания наджо решить без оператора "go to"
1.Дані два вектори А(n) і В(n). Скласти програму перенесення елементів з вектора А у вектор B за таким правилом: bn=а1, bn-1=a2, bn-2=а3,…
2.В одномерном массиве, элементами которого являются записи со следующей структурой
Фамилия, цех, зарплата
Подсчитать количество человек с зарплатой выше 250 грн и вывести информацию на экран в формате:
фамилия, цех
3.Дано рядок-речення. Зашифрувати його, помістивши спочатку всі символи, розміщені на парних позиціях, а потім всі символи, розміщені на непарних позиціях.
1.Дані два вектори А(n) і В(n). Скласти програму перенесення елементів з вектора А у вектор B за таким правилом: bn=а1, bn-1=a2, bn-2=а3,…
2.В одномерном массиве, элементами которого являются записи со следующей структурой
Фамилия, цех, зарплата
Подсчитать количество человек с зарплатой выше 250 грн и вывести информацию на экран в формате:
фамилия, цех
3.Дано рядок-речення. Зашифрувати його, помістивши спочатку всі символи, розміщені на парних позиціях, а потім всі символи, розміщені на непарних позиціях.
записать массив А(н) в обратном порядке?
Код:
uses crt;
const N=7;
var A:array[1..N] of integer;
i,tmp:integer;
begin
clrscr;
for i:=1 to N do
begin
write('A[',i,']=');
readln(A[i]);
end;
for i:=1 to N do
begin
if i<N then
write(A[i],',');
else
write(A[i]);
end;
for i:=1 to (N div 2) do
begin
tmp:=A[i];
A[i]:=A[n-i+1];
A[n-i+1]:=tmp;
end;
for i:=1 to N do
begin
if i<N then
write(A[i],',')
else
write(A[i]);
end;
readkey;
end.типа такого:
Код:
uses crt;
var a,a1:string;
i,j:integer;
begin
clrscr;
write('Введите строку: '); read(a);
j:=length(a) div 2 + 1;
i:=1;
repeat
if i mod 2 = 0 then
a1[i div 2]:=a[i]
else begin
a1[j]:=a[i];
inc(j);
end;
inc(i);
until i>length(a);
gotoxy(1,2);
for i:=1 to length(a) do
write(a1[i]);
readkey;
end.выводит строку на экран, а банальное write(a1); - нет ?
p.s. 2ю ищи в инете, примеров БД полно, нужно только переделать под свое задание. Писать с нуля - влом, там много букаф...
Останнє редагування:
bolik1
Member
Помогите с контрольной (предмет - базы данных, программу реализовать в делфи).
Задача.
Отношение “расписание поездов” имеет атрибуты: номер поезда, станция назначения, время отправления, наличие билетов.
Спроектируйте приложение баз данных, которое позволяет получить следующую информацию:
• время отправления поездов в город Х во временном интервале от N до M часов;
• наличие билетов на поезд номер XXX
при условии, что поезда могут отправляться одновременно.
ВОЗНАГРАЖДЕНИЕ.
Задача.
Отношение “расписание поездов” имеет атрибуты: номер поезда, станция назначения, время отправления, наличие билетов.
Спроектируйте приложение баз данных, которое позволяет получить следующую информацию:
• время отправления поездов в город Х во временном интервале от N до M часов;
• наличие билетов на поезд номер XXX
при условии, что поезда могут отправляться одновременно.
ВОЗНАГРАЖДЕНИЕ.
Freestyler
форумчанин
помогите с паскалем, до завтра нужно зделать.
You must be registered for see images
Вкладення
Cris
Member
Код:
program gg;
var q,x,a,b:real;
begin
readln(x,a,b);
q:=a*b+abs(x)-sqrt(4*a);
wirteln(q:0:4);
end.