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// Ссылка на комментарий
Рекомендуемые сообщения
Пожалуйста, войдите, чтобы комментировать
Вы сможете оставить комментарий после входа в
Войти