Перейти к содержанию

Программисты помогите!!!


Рекомендуемые сообщения

Здравствуйте! Помогите пожалуйста решить 2 задачи по Паскалю. Вот задачи:

http://narod.ru/disk/19021732000/%D0%9C%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D1%8B.doc.html

Заранее благодарен!!!

Ссылка на комментарий


var a:array[1..100] of real;
s:real;
i:integer;
begin
clrscr;
randomize;
for i:=1 to 100 do begin
x[i]:=random(10)/10;
write(' ',x[i]);
s:=s+x[i];
end;
writeln(s);
readkey;
end.
uses crt;

var a:array[1..10,1..15];

i,j,s,n:integer;

begin

randomize;

for i:=1 to 10

for j:=1 to 15 do

a[i,j]:=radnom(10)+1;

дпльше позже продолжу... или кто-нибудь еще...

Ссылка на комментарий

вот программа:

Program massiv1;

var

a: array [0..100] of real;

i,j: byte;

summa,x:real;

Begin

randomize;

for i:= 0 to 99 do //заполняем массив случайными числами в диапазоне от 0 до 1

begin

a:=random(x);

end;

for i:=0 to 99 do

begin

summa:=summa+x;

inc(j);

end;

writeln('сумма элементов массива равно ' fltostr(summa));

writeln('количество элементов массива: ' inttostr(i));

End;

Нужен модуль SysUtils для Turbo Pascal 7.1

Может у кого есть модуль SysUtils? Киньте ссылочку плииз.

Ссылка на комментарий

В рот мне ноги, попробуи создать фаил


program lol;
begin
writeln('This need to work!!');
end.

Затем

cmd.exe

cd c:\gde_legit_pascal\bin

c:\gde_legit_pascal\bin\tpc.exe t.pas

c:\gde_legit_pascal\bin\t.exe

#

Программисты помогите!!!

#

Наверное пора етих деятелеи банить навсегда за:

1. Неадекватное название тем, хотя есть топики но задачам на паскале, C и так далее

2. Неадекватные вопросы, к которым програмисты не имеIOт не малеишего отношения

Ссылка на комментарий

WRONG

writeln('сумма элементов массива равно ' fltostr(summa));
writeln('количество элементов массива: ' inttostr(i));

TRUE

writeln('сумма элементов массива равно ',summa);
writeln('количество элементов массива: ', i);

Вроде так, но я pascal nog3a6bIJI

Ссылка на комментарий

var
a:array[1..10,1..15];
sum:array[1..15];
num:array[1..15];
k:
i,j,s,n:integer;
begin
randomize;
writeln('start:');
for i:=1 to 10 do
begin
write ('row:',i,':');
for j:=1 to 15 do
begin
a[i,j]:=radnom(10)+1;
write(a[i,j]);
end;
writelen;
end;
for i:=1 to 15 do
begin
sum[i] := 0;
num[i] := 0;
end
for j: =1 to 10 do
begin
for i : = 1 to 15 do
if (a[j][i]>0) then
begin
sum[i] := sum[i]+ a[j][i];
num[i] := num[i] + 1;
end
end
write('Num:');
for i : = 1 to 15 do
write(num[i]);
writeln()
write('Sum');
for i : = 1 to 15 do
write(sum[i]);
end

Как-то так, но проверять не на чем..

And don't be a dump//

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...