|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
20.12.2006, 16:43 | #1 |
Новичок
Джуниор
Регистрация: 20.12.2006
Сообщений: 2
|
СРОЧНО!!! Помогите найти ошибку
Сформировать одномерный численный массив В, где B(i) – равно сумме элементов, кратных 7 и расположенных в i-той строке матрицы, если таких элементов в i-той строке нет, то B(i) равно произведению элементов, расположенных в i-той строке матрицы. uses crt; const n=4; var a:array[1..n,1..n] of integer; b,s,p:array[1..n] of integer; i,j,k:integer; Begin clrscr; randomize; for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(22); write(a[i,j]:2); write(' '); end; writeln; end; for i:=1 to n do begin b[i]:=0; s[i]:=0; for j:=1 to n do if (a[i,j] mod 7 = 0) and (a[i,j]<>0) then begin s[i]:=s[i]+a[i,j]; b[i]:=s[i]; writeln('b[',i,']= ',b[i]); end; end; For i:=1 to n do If s[i]=0 then begin for k:=1 to n-1 do end.begin p[k]:=1; for j:=1 to n-1 do p[k]:=p[k]*a[k,j]; b[i]:=p[k]; writeln('p[',k,']=',p[k]); end; end; writeln; for i:=1 to n do begin write(b[i]:2); write(' '); end; readln; ЭЛЕМЕНТЫ С СУММОЙ НАХОДИТ ПРАВИЛЬНО, ПРОИЗВЕДЕНИЕ СЧИТАЕТ НЕВЕРНО |
20.12.2006, 16:44 | #2 |
Новичок
Джуниор
Регистрация: 20.12.2006
Сообщений: 2
|
ЕЩЕ ЕСТЬ ТАКАЯ ЗАДАЧА Организовать типизированный файл, содержащий сведения о зарплате сотрудников предпри-ятия: ФИО, зарплата, подоходный налог (13 % от зарплаты), отчисления в пенсионный фонд (1% от зарплаты). Напишите встроенную подпрограмму-функцию для организации безопасного ввода значений зарплаты – целое число, минимальная заплата 650 рублей. Вычислите подоход-ный и пенсионный налоги для каждого сотрудника и выведите данные в текстовый файл и на дисплей. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти ошибку | Dmitriy | Общие вопросы Delphi | 4 | 01.08.2008 23:32 |
Помогите найти ошибку! | Студентка@ | Помощь студентам | 3 | 21.05.2008 14:21 |
Помогите найти ошибку | JOFRIF | Помощь студентам | 8 | 22.04.2008 14:22 |
Помогите найти ошибку | NeiL | Общие вопросы Delphi | 7 | 04.03.2008 07:14 |
Помогите найти ошибку | Рената | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 05.01.2008 04:29 |