Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Закрытая тема
 
Опции темы Опции просмотра
Старый 19.05.2008, 21:15   #1 (permalink)
Мартышонок
Новичок
 
Регистрация: 19.05.2008
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите решить задачки по Паскалю

Нам дали лабораторную работу состоящую из 11 задачек...2 из них своими усилиями (с трудом правда=)) смогла решить,а остальные не могу...Если есть у кого возможность помогите ПЛЗ...

1. Задано натуральное число a. Заканчивается ли оно на 0?
2. Найти все делители для заданного числа n.
3. Дано натуральное число n.Вычислить, входит ли цифра 3 в запись числа n.
4. Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D.
5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях
6. Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.
7. Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.







Буду оч,оч,оч,очень благодарна за помощь!!!Спасибки заранее!))
Мартышонок вне форума  

Старый 19.05.2008, 21:15
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Лучше не спешить, а просмотреть все темы которые были ранее

Помогите решить две паскальные задачки пожалуйста
Решить задачки
Помогите решить задачки в Pascal
Помогите решить задачу по Паскалю. Срочно, пожалуйста.
Помогите пожалуйста решить задачки на C++Builder 6. Заранее благодарю
Помогите срочно решить задачу по паскалю.

Старый 20.05.2008, 10:27   #2 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
7. Дана строка, содержащая 30 символов. Подсчитать количество цифр, входящих в данную строку.
type
cf : set of '0'..'9';
var
s:string[30];
cifr:cf;
i,k:integer;
begin
readln(s);
cifr:=['0','1','2','3','4','5','6','7','8','9'];
k:=0;
for i:=1 to length(s)
if s[i] in cifr then k:=k+1;

writeln (k);
end.
bubuka вне форума  
Старый 20.05.2008, 10:29   #3 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
1. Задано натуральное число a. Заканчивается ли оно на 0?
var
a:real;
begin
if a mod 10 = 0 then writeln ('da') else writeln (net);
end.
bubuka вне форума  
Старый 20.05.2008, 10:31   #4 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
2. Найти все делители для заданного числа n
var
n,i:integer;

begin
readln(n);
writeln('Все делители числа N');
for i:=1 to n do
if n mod i = 0 then writeln(i);
end.
bubuka вне форума  
Старый 20.05.2008, 10:34   #5 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
4. Написать программу поиска четырёхзначного числа, которое при делении на C даёт в остатке B, а при делении на B даёт в остатке D
var
i,c,b,d:integer
begin
readln(c,b,d);
for i:=1000 to 9999 do
if (i mod c = b) and (i mod b =d) then writeln(i);
end.
bubuka вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 20.05.2008, 10:37   #6 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
5. Имеется целочисленный массив, состоящий из N элементов (N - чётное): Найти произведение элементов стоящих на нечётных позициях
var
mas:array [1..100] of integer;
proizv:longint;
i,n:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);

proizv:=1
for i:=1 to n do
if i mod 2 <> 0 then proizv:=proizv*a[i];

writeln(proizv);

end.
bubuka вне форума  
Старый 20.05.2008, 17:25   #7 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
3. Дано натуральное число n.Вычислить, входит ли цифра 3 в запись числа n.
var
fl,n,i:integer;
s:string[5];
begin
readln(n);
str(n,s); {стандартная процетудара преобразует значиние числа в его строковый вид}
fl:=0;
for i:=1 to length(s) do
if s[i]='3' then fl:=1;

if fl=1 then writeln('входит') else writeln('не входит');

end.
bubuka вне форума  
Старый 20.05.2008, 17:56   #8 (permalink)
AlexZir
support
 
Аватар для AlexZir
 
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,794
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
По умолчанию

bubuka
Мне лень сегодня думать, мне начальство на работе все мозги в..ло
__________________
Убить всех человеков!
AlexZir вне форума  
Старый 20.05.2008, 18:05   #9 (permalink)
bubuka
Member
 
Аватар для bubuka
 
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
По умолчанию

Цитата:
Сообщение от Мартышонок
6. Дана квадратная матрица порядка M. Повернуть ее на 90 градусов в положительном направлении.
var
a,b:array [1..50,1..50] of integer;
i,j,n:integer;
begin
readln(m);
for i:=1 to m do
for j:=1 to m do
readln(a[i,j]);

for i:=1 to m do
for j:=1 to m do
b[j,i]:=a[i,j];

writeln('Вывод повернутой матрицы');

for i:=1 to m do
begin
for j:=1 to m do
write(b[i,j],' ');
writeln;
end;

end.
bubuka вне форума  
Старый 20.05.2008, 21:41   #10 (permalink)
Мартышонок
Новичок
 
Регистрация: 19.05.2008
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Большое спасибо всем кто помог и хотел помочь мне сделать эти задания!!!))Чтоб я без вас делала!!!))

Кстати я тоже учусь в МЭСИ))
Мартышонок вне форума  
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Закрытая тема

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 17:38.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.