Технический форум
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Технический форум (http://www.tehnari.ru/)
-   Помощь студентам (http://www.tehnari.ru/f41/)
-   -   Помогите пожалуйста. Через два дня судный день! (http://www.tehnari.ru/f41/t49642/)

junglistique 30.03.2011 14:37
Помогите пожалуйста. Через два дня судный день!
 
о великие гении, помогите с решением задач.

1. Дан одномерный массив X. Вывести номера элементов, удовлетворяющих условию 0 < Хi < 1.

2. Найти сумму элементов первого столбца.

3. Определить количество символов в предложении.

За ранее кланяюсь в ноги.

Dram 30.03.2011 14:57
Можешь и чело разбить ненароком кланяясь, то. Язык какой?

junglistique 30.03.2011 15:05
Цитата:
Сообщение от Dram (Сообщение 494716)
Можешь и чело разбить ненароком кланяясь, то. Язык какой?

паскаль

Vladimir_S 30.03.2011 15:12
Цитата:
Сообщение от junglistique (Сообщение 494703)
3. Определить количество символов в предложении.
Код:
VAR
 S:String;
BEGIN
 WriteLn('Enter the phrase:');
 ReadLn(S);
 WriteLn('N= ',Length(S));
 ReadLn;
END.

Vladimir_S 30.03.2011 15:13
Цитата:
Сообщение от junglistique (Сообщение 494703)
2. Найти сумму элементов первого столбца.
Первого столбца ЧЕГО???

shrek=) 30.03.2011 15:15
А язык программирования какой?
Если паскаль то:
Цитата:
Сообщение от junglistique (Сообщение 494703)
1. Дан одномерный массив X. Вывести номера элементов, удовлетворяющих условию 0 < Хi < 1.
Код:
var
x:array [1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
x[i]:=random(15)/10;
if (x[i]>0) and (x[i]<1) then write (i:3);
end;
readln
end.
Цитата:
Сообщение от junglistique (Сообщение 494703)
2. Найти сумму элементов первого столбца.
Код:
var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[1,i];
writeln (s);
readln
end.
Цитата:
Сообщение от junglistique (Сообщение 494703)
3. Определить количество символов в предложении.
Код:
var
s:string;
k:integer;
begin
k:=0;
writeln ('enter string');
read(s);
k:=length(s);
writeln ('Количество символов',k);
readln
end.
P.S. Задание четче формулируйте, а то не понятно что от куда берется.

junglistique 30.03.2011 15:29
Цитата:
Сообщение от shrek=) (Сообщение 494733)
А язык программирования какой?
Если паскаль то:

Код:
var
x:array [1..10] of real;
i:integer;
begin
for i:=1 to 10 do begin
x[i]:=random(15)/10;
if (x[i]>0) and (x[i]<1) then write (i:3);
end;
readln
end.
Код:
var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[1,i];
writeln (s);
readln
end.
Код:
var
s:string;
k:integer;
begin
k:=0;
writeln ('enter string');
read(s);
k:=length(s);
writeln ('Количество символов',k);
readln
end.
P.S. Задание четче формулируйте, а то не понятно что от куда берется.
прошу прощения, но во второй задаче получается сумма строки, а не столбца

Dram 30.03.2011 15:40
если нужен столбец то позволю поправить код shrek=)
Код:
var
a:array[1..5,1..5] of integer;
i,j,s:integer;
begin
s:=0;
for i:=1 to 5 do begin
for j:=1 to 5 do begin
a[i,j]:=random(10);
write (a[i,j]:5);
end;
writeln;
end;
for i:=1 to 5 do
s:=s+a[i,1];    // переставляем счетчик на столбец
writeln (s);
readln
end.
П.С могу и ошибаться )

junglistique 30.03.2011 15:45
Спасибо всем друзья !!!! Я вас люблю !!!

Dram 30.03.2011 17:23
На будущее так чисто совет от бывалого... То что тебе щас помогли хорошие люди...и пускай даже проскочишь с этими прогами дальше по учебе ...это не значит что так будет всегда...дальше пойдут программы где требуется именно твои навыки кодирования...а они нарабатываются только практикой...копипаст пусть даже ты заучишь код программы никогда не научит тебя думать как необходимо программисту...лучще написать свою пусть глючную, пусть немного не правильно работающею прогу ..но написать..а поправить ошибки люди всегда найдутся...даже преподаватели лучше относится будут если ты будешь сдавать свой самописый код


Часовой пояс GMT +4, время: 01:27.
Страница 1 из 2 1 2
Показывать 40 сообщений этой темы на одной странице

Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.