|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
17.04.2010, 19:08 | #1 |
Пользователь
Регистрация: 17.04.2010
Сообщений: 47
|
ЗАДА4а на паскаль
I am KOSS ЦЗЮ!
|
17.04.2010, 19:12 | #2 |
Форумчанин
Регистрация: 16.02.2010
Сообщений: 316
|
553-566-179! стучите! недорого!
|
17.04.2010, 19:17 | #3 |
Форумчанин
Регистрация: 19.02.2009
Сообщений: 622
|
а где ваше "Зарание спасибо", так обычно все делают, кто даже подумать не хочет сам.
Тогда стучитесь в аску написанную выше, там спасибо не надо говорить, там ..... р.
Жми на весы!!!
|
17.04.2010, 19:20 | #4 |
Пользователь
Регистрация: 17.04.2010
Сообщений: 47
|
Магу хоть 100 рас СПАСИБО написать, если решишь зада4ки.
I am KOSS ЦЗЮ!
|
17.04.2010, 19:23 | #5 |
Участник клуба
Регистрация: 29.12.2009
Сообщений: 1,166
|
без проблем, выполню в кратчайшие сроки
прогер C\C++\C#\Delphi
ася: [семь 3]-[97]-[1 шесть] |
17.04.2010, 19:25 | #6 |
Регистрация: 21.02.2010
Сообщений: 6
|
тут задачи не решают а помогают исправить или доработать код! так что тебе во фриланс, а так обращайся 153-958 сделаю не дорого
|
17.04.2010, 19:27 | #7 |
Пользователь
Регистрация: 17.04.2010
Сообщений: 47
|
да мне можно и доработать, они впринципе у меня есть, но они не работают. Кто сможет доделать, помогите пожалуйста! И СПАСИБО!
I am KOSS ЦЗЮ!
|
17.04.2010, 19:29 | #8 |
Пользователь
Регистрация: 17.04.2010
Сообщений: 47
|
Вот например у меня есть текст зада4и №4:
uses Crt; var arr: array[0..1000] of integer; MODUL,K,i,n,MIN: integer; begin ClrScr; write('Введите рамер массива N='); readln(n); for i:=1 to n do begin arr[i]:=random(50)+1; write(' ', arr[i]); end; writeln; write('VVEDITE K='); read(K); MIN:=32677; for i:=1 to arr[i] do begin MODUL:=abs(arr[i]-K); if (MODUL<MIN) then MIN:=arr[i]; end; writeln('4исло=' , MIN, ' NOMER=', i); end. текст зада4и №5: uses Crt; Var S:string; X1,X2,X3,X4,X5,X6,X7,X8,X9:integer; i,n:integer; begin writeln('BBEDITE STROKY'); readln(S); for i:=0 to length(S) do begin X1:=Pos('1',S); delete(S,X1,1); Insert('ODIN',S,X1); end; writeln(S); end. помогите кто сможет! ПЛЗ.
I am KOSS ЦЗЮ!
Последний раз редактировалось KOSS.AB; 17.04.2010 в 19:43. |
17.04.2010, 19:31 | #9 |
Пользователь
Регистрация: 17.04.2010
Сообщений: 47
|
еще есть текст зада4и №7:
uses Crt; type table=record name:string; MARKA:string[15]; STRANA:string[15]; CEHA:real; end; var i,j,n:integer; a:table; mas:array[1..30] of table; S_CEHA,CEHA,k,r:real; begin write('n=');read(n); for i:=1 to n do with mas[i] do begin writeln('i=', i); writeln('MARKA'); read(MARKA); writeln('STRANA');read(STRANA); writeln('CEHA');read(CEHA); k:=100; r:=110; end; S_CEHA:=0; for i:=1 to n do begin S_CEHA:=CEHA/k*r; end; write(' ':4,'MARKA', ' ':8); write(' ':4, 'STRANA', ' ':10); write(' ':4, 'CEHA', ' ':8); writeln; for i:=1 to n do with mas[i] do begin write(' ':5, MARKA:8); write(' ':8, STRANA:10); write(' ':8, CEHA:8); writeln; end; end. в каждой зада4е есть ошибки, а я не магу понять какие!!!
I am KOSS ЦЗЮ!
|
17.04.2010, 19:48 | #10 |
Форумчанин
Регистрация: 02.02.2010
Сообщений: 305
|
4
Код:
Skype: CODERua
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Паскаль, Борланд Паскаль-в чем разница??? | Vremya-Dengy | Паскаль, Turbo Pascal, PascalABC.NET | 13 | 31.05.2011 18:23 |
Паскаль | yura19925 | Помощь студентам | 12 | 29.03.2010 23:13 |