1 / 1 / 0
Регистрация: 27.11.2009
Сообщений: 35
1

проверка на ошибки

08.12.2009, 20:59. Показов 5395. Ответов 12
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
тоже проверка на ошибки


Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
k,i,n:integer;
     s:real;
     a:array[1..100] of real;
     begin
     writeln ('vvedite colichestvo elementov massiva');
     readln(n,k);
     randomize;
     for i:=1 to n do
     begin
     a[i]:=random[100];
     write(a[i]:7);
     end;
     writeln;
     s:=0;
     for i:=1 to n do
     begin
     if (a[i] mod k=0)
     then
     s:=s+a[i];
     end;
     writeln('summa chisel kratnyh 'k'raven ' s);
     end.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.12.2009, 20:59
Ответы с готовыми решениями:

Проверка на ошибки
Пожалуйста, здесь есть решение задач можете проверить от 2 до 10. Спасибо

Проверка на ошибки
старался написать прогу на C++ но там синтаксические ошибки(или несинтаксические) выдаёт, вродебы...

Проверка на ошибки
Имеется код, который соединяется с БД, но не отправляет ответы. Просмотрите пожалуйста и скажите,...

Проверка на ошибки
Всем привет. Выдает ошибку на header. Не могу найти почему. <?php session_start(); $login =...

12
4342 / 1474 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
08.12.2009, 21:04 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
k,i,n,s:integer;
a:array[1..100] of integer;
begin
writeln ('vvedite colichestvo elementov massiva');
readln(n,k);
randomize;
for i:=1 to n do
begin
a[i]:=random(100);
write(a[i]:7);
end;
writeln;
s:=0;
for i:=1 to n do if a[i] mod k=0 then s:=s+a[i];
writeln('summa chisel kratnyh ',k, ' raven ', s);
readln;
end.
1
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
08.12.2009, 21:04 3
напиши плиз условие, а то непотятно что ты хочешь сделать)
0
1 / 1 / 0
Регистрация: 27.11.2009
Сообщений: 35
08.12.2009, 21:05  [ТС] 4
строчка 16- неверное выражение
0
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
08.12.2009, 21:05 5
16строка
Цитата Сообщение от k1ry4 Посмотреть сообщение
writeln('summa chisel kratnyh ',k, ' raven ' s);
Pascal
1
writeln('summa chisel kratnyh ',k, ' raven ', s);
0
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
08.12.2009, 21:10 6
Цитата Сообщение от dimablinov Посмотреть сообщение
a[i]:=random[100];
а ошибка была, наверно где-то здесь... объявлено a:array[1..100]of real;
random тут уж никак нельзя использовать... он задает целые числа.

Добавлено через 1 минуту
Цитата Сообщение от k1ry4 Посмотреть сообщение
writeln('summa chisel kratnyh ',k, ' raven ' s);
после 'raven' не хватает запятой.
0
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
08.12.2009, 21:10 7
C
1
2
3
4
for i:=1 to n do
begin
if (a[i] mod k=0)
then...
и тут неправильно записано выражение было
0
1 / 1 / 0
Регистрация: 27.11.2009
Сообщений: 35
08.12.2009, 21:10  [ТС] 8
вот условие задачи


в массив a(n)
занесены натуральные числа. найти сумму тех элементов, которые кратны к.
0
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
08.12.2009, 21:14 9
k1ry4 вам ее уже решил...
0
1 / 1 / 0
Регистрация: 27.11.2009
Сообщений: 35
08.12.2009, 21:14  [ТС] 10
люди спаибо всем. с вами хвостов по информатике столо меньше))))
0
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
08.12.2009, 21:15 11
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
var k,i,n:integer;
     s:real;
     a:array[1..100] of real;
     begin
     writeln ('vvedite razmer massiva ');
     read(n);
     writeln ('vvedite K= ');
     read(k);
     randomize;
     for i:=1 to n do
     begin
     a[i]:=random(100);
     writeln('a[',i,']= ',a[i]);
     end;
     writeln;
     s:=0;
     for i:=1 to n do
     begin
     if a[i]=k
     then
     s:=s+a[i];
     end;
     writeln('summa chisel kratnyh ',k,'raven ', s);
     end.
я бы так оформил)
0
753 / 546 / 211
Регистрация: 12.11.2009
Сообщений: 1,100
08.12.2009, 21:16 12
Helfer, используйте тэги, не мучайте модераторов...)))
0
ЙожЪ
64 / 60 / 17
Регистрация: 23.10.2009
Сообщений: 652
08.12.2009, 21:19 13
Тамила, стараюсь) сам новечок, пока только учусь) да и с интерфейсом сайта потихоньку знакомлюсь)

Добавлено через 2 минуты
dimablinov,
кстати чтобы норм проверить результат вместо
Pascal
1
a[i]:=random(100)
;
поставь
Pascal
1
a[i]:=random(10);
размер массива около 30 и вводи число от 1го до 10=)
0
08.12.2009, 21:19
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.12.2009, 21:19
Помогаю со студенческими работами здесь

Проверка на ошибки
Подскажите как сделать, чтобы выводилось, когда ввожу cos(x)+1 нет ошибки cos(x)+-1 или...

Проверка на ошибки
Шалом. Ребят, есть форма, в которой много Button'ов, и соответственно, я решил запилить поиск по...

проверка на ошибки
Проверяю то что пишут в field1 и field2 на совпадение со списком разрешенных слов в $countries...

Проверка на ошибки
Чем проверить в OS X, помимо Дисковой утилиты? FAT32 формат.


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru