|
Помогите
|
|
| 1ntangle | Дата: Понедельник, 12.05.2008, 23:44 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| Здравствуйте. Передо мной возникла проблема, нужно составить несколько программ, но есть одно "но", я не понимаю как их делать, и времени совсем нет, уже завтра их нужно сдавать...очень прошу!Надеюсь на ваше понимание... 1.Дан массив целых чисел.Найти сумму и количество всех элементов, кратных 3 и 5
2.Определить, есть ли в двумерном массиве чило 5.Если таких чисел несколько найти их количество
3.Дана строка.Подсчитать количество символом в данной строке.
4.Дан текстовый файл, соержащий целые числа.Найти количество отрицательных чисел заранее огромное спасибо!
|
| |
| |
| Alexander | Дата: Понедельник, 12.05.2008, 23:55 | Сообщение # 2 |
|
Всевышний
Группа: Модераторы
Сообщений: 475
Статус: Offline
| А вы покажите свои попытки решения, а мы их подправим! Тут все задачи пониженной сложности.
P.S. Третья задачка решается в одну строку  .
Скажем дружно- нафиг нужно!
|
| |
| |
| student | Дата: Понедельник, 12.05.2008, 23:59 | Сообщение # 3 |
|
Новичок
Группа: Пользователи
Сообщений: 3
Статус: Offline
| Alexander, прошу помоги моему одногруппнику.. ))
|
| |
| |
| 1ntangle | Дата: Вторник, 13.05.2008, 00:04 | Сообщение # 4 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| я бы с радостью, но я правда ничего не понимаю((если уж задачи не сложные, почему бы не уделить 10 минут?((
|
| |
| |
| ZimAN | Дата: Вторник, 13.05.2008, 00:21 | Сообщение # 5 |
|
Знакомый
Группа: Пользователи
Сообщений: 24
Статус: Offline
| 3. Code Program Stroka;
uses crt;
var
S:string;
i:integer;
count:integer;
Ch:char;
Begin
clrscr;
write('Введите строку - '); readln(s);
Ch:=' ';
count:=0;
for i:=1 to length(s) do
begin
if s[i]<>Ch then
count:=count+1;
end;
write('В строке ');Write (count); write(' символов');
readkey;
end.
|
| |
| |
| 1ntangle | Дата: Вторник, 13.05.2008, 00:25 | Сообщение # 6 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| Спасибо, ZimAN! Вот если бы ещё кто нибудь помог, я был бы премного благодарен
|
| |
| |
| ZimAN | Дата: Вторник, 13.05.2008, 01:42 | Сообщение # 7 |
|
Знакомый
Группа: Пользователи
Сообщений: 24
Статус: Offline
| 2 .
Code Program Mass;
uses crt;
const n=3; {это размерность массива }
var
A:array [1..n,1..n] of integer;
i,j:integer;
count:integer;
begin
clrscr;
count:=0;
for i:=1 to n do
for j:=1 to n do
begin
write ('Введите элемент массива - A[',i,',',j,']: ');
readln (A[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
if A[i,j]=5 then
count:=count+1;
end;
Write('В даном массиве количество чисел "5" - ');write (count);
readkey;
end.
Добавлено (12.05.2008, 18:42)
---------------------------------------------
1. Code Program Mass;
uses crt;
const n=5;
var
A:array [1..n] of integer;
i:integer;
Suma,count:integer;
begin
clrscr;
Suma:=0;
count:=0;
for i:=1 to n do
begin
write ('Введите элемент массива A[',i,'] - ');
readln(A[i]);
end;
for i:=1 to n do
if ((A[i] mod 3)=0) and ((A[i] mod 5)=0) then
Suma:=Suma+A[i];
for i:=1 to n do
if ((A[i] mod 3)=0) and ((A[i] mod 5)=0) then
Count:=Count+1;
writeln;
Write('Количество чисел кратных 3 и 5 - ');Write (count);
writeln;
write('Их сумма ровна ');write (Suma);
readln;
end.
|
| |
| |
| 1ntangle | Дата: Вторник, 13.05.2008, 05:53 | Сообщение # 8 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| Cпасибо большеое тебе ZimAN )) ты меня спас)
|
| |
| |
| Seqular | Дата: Вторник, 13.05.2008, 06:17 | Сообщение # 9 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| 1ntangle, 3-я задача:
Code Uses CRT;
Var s: String;
Begin
Write('Введите строку: ');
Readln(s);
Writeln('Количество символов: ',length(s));
ReadKey;
End.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| ZimAN | Дата: Вторник, 13.05.2008, 06:25 | Сообщение # 10 |
|
Знакомый
Группа: Пользователи
Сообщений: 24
Статус: Offline
| 1ntangle, в своем коде задачи №3 я исключил пробелы... Если считать и пробелы, то пользуйся вариантом , который предложил Seqular .
|
| |
| |
| Seqular | Дата: Вторник, 13.05.2008, 06:33 | Сообщение # 11 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| Quote (ZimAN) 1. Code Program Mass; uses crt; const n=5; var A:array [1..n] of integer; i:integer; Suma,count:integer; begin clrscr; Suma:=0; count:=0; for i:=1 to n do begin write ('Введите элемент массива A[',i,'] - '); readln(A[i]); end; <--------------------------------------------------------> for i:=1 to n do if ((A[i] mod 3)=0) and ((A[i] mod 5)=0) then
Suma:=Suma+A[i];
for i:=1 to n do
if ((A[i] mod 3)=0) and ((A[i] mod 5)=0) then
Count:=Count+1;
<--------------------------------------------------------->
writeln;
Write('Количество чисел кратных 3 и 5 - ');Write (count);
writeln;
write('Их сумма ровна ');write (Suma);
readln;
end. А что мешает то, что в выделеной области заменить на:
For i := 1 to n do
If (A[i] mod 15 = 0) then
Begin
Inc(Count);
Suma := Suma + A[i];
End; Намного проще и быстрее, ИМХО
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| 1ntangle | Дата: Вторник, 13.05.2008, 06:44 | Сообщение # 12 |
|
Новичок
Группа: Пользователи
Сообщений: 6
Статус: Offline
| Cпасибо большое вам...очень благодарен...
|
| |
| |
