kesha_good Опубликовано 26 марта, 2010 Жалоба Поделиться Опубликовано 26 марта, 2010 Здравствуйте! Помогите пожалуйста решить 2 задачи по Паскалю. Вот задачи:http://narod.ru/disk/19021732000/%D0%9C%D0%B0%D1%81%D1%81%D0%B8%D0%B2%D1%8B.doc.htmlЗаранее благодарен!!! Цитата Ссылка на комментарий
goH Опубликовано 26 марта, 2010 Жалоба Поделиться Опубликовано 26 марта, 2010 мля, файл кривой, напиши лучче все задания тута -- будет гораздо проще, чем выкачивать его хз откуда ) Цитата Ссылка на комментарий
kesha_good Опубликовано 26 марта, 2010 Автор Жалоба Поделиться Опубликовано 26 марта, 2010 вот Цитата Ссылка на комментарий
ToNY667 Опубликовано 27 марта, 2010 Жалоба Поделиться Опубликовано 27 марта, 2010 var a:array[1..100] of real; s:real; i:integer;beginclrscr;randomize;for i:=1 to 100 do beginx[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;beginrandomize;for i:=1 to 10 for j:=1 to 15 do a[i,j]:=radnom(10)+1;дпльше позже продолжу... или кто-нибудь еще... Цитата Ссылка на комментарий
Zolto0801 Опубликовано 27 марта, 2010 Жалоба Поделиться Опубликовано 27 марта, 2010 Куда обращаться по подключению (настройке) ЖК ТВ к ПК? Цитата Ссылка на комментарий
ToNY667 Опубликовано 27 марта, 2010 Жалоба Поделиться Опубликовано 27 марта, 2010 Zolto0801Вам в "Железный форум" или во "Взаимопомощь" Цитата Ссылка на комментарий
Mike Опубликовано 28 марта, 2010 Жалоба Поделиться Опубликовано 28 марта, 2010 Куда обращаться по подключению (настройке) ЖК ТВ к ПК? А причём здесь программисты? *107Может к гуглу обратиться. Цитата Ссылка на комментарий
kesha_good Опубликовано 28 марта, 2010 Автор Жалоба Поделиться Опубликовано 28 марта, 2010 вот программа:Program massiv1;vara: array [0..100] of real;i,j: byte;summa,x:real;Beginrandomize;for i:= 0 to 99 do //заполняем массив случайными числами в диапазоне от 0 до 1begina:=random(x);end;for i:=0 to 99 dobeginsumma:=summa+x;inc(j);end;writeln('сумма элементов массива равно ' fltostr(summa));writeln('количество элементов массива: ' inttostr(i));End;Нужен модуль SysUtils для Turbo Pascal 7.1Может у кого есть модуль SysUtils? Киньте ссылочку плииз. Цитата Ссылка на комментарий
L0K1 Опубликовано 28 марта, 2010 Жалоба Поделиться Опубликовано 28 марта, 2010 он как бе встроен. pascal переустанови. Цитата Ссылка на комментарий
kesha_good Опубликовано 28 марта, 2010 Автор Жалоба Поделиться Опубликовано 28 марта, 2010 Pascal пишет: "File not found (sysutils.tpu)". И так со всеми версиями, которые я устанавливал. Что делать? Цитата Ссылка на комментарий
L0K1 Опубликовано 28 марта, 2010 Жалоба Поделиться Опубликовано 28 марта, 2010 В рот мне ноги, попробуи создать фаилprogram lol;begin writeln('This need to work!!');end.Затемcmd.execd c:\gde_legit_pascal\binc:\gde_legit_pascal\bin\tpc.exe t.pasc:\gde_legit_pascal\bin\t.exe#Программисты помогите!!!#Наверное пора етих деятелеи банить навсегда за:1. Неадекватное название тем, хотя есть топики но задачам на паскале, C и так далее2. Неадекватные вопросы, к которым програмисты не имеIOт не малеишего отношения Цитата Ссылка на комментарий
kesha_good Опубликовано 28 марта, 2010 Автор Жалоба Поделиться Опубликовано 28 марта, 2010 Всё равно не получается. Пишет неизвестный идентификатор "floattostr" и "inttostr". Помогите хотя бы со второй задачей плиз. Цитата Ссылка на комментарий
L0K1 Опубликовано 28 марта, 2010 Жалоба Поделиться Опубликовано 28 марта, 2010 WRONGwriteln('сумма элементов массива равно ' fltostr(summa));writeln('количество элементов массива: ' inttostr(i)); TRUEwriteln('сумма элементов массива равно ',summa);writeln('количество элементов массива: ', i); Вроде так, но я pascal nog3a6bIJI Цитата Ссылка на комментарий
kesha_good Опубликовано 28 марта, 2010 Автор Жалоба Поделиться Опубликовано 28 марта, 2010 Помогите со второй задачей плииз! Цитата Ссылка на комментарий
L0K1 Опубликовано 28 марта, 2010 Жалоба Поделиться Опубликовано 28 марта, 2010 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// Цитата Ссылка на комментарий
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.