Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/3: Рейтинг темы: голосов - 3, средняя оценка - 4.67
egur
0 / 0 / 1
Регистрация: 29.12.2010
Сообщений: 13
1

Написать программы Pascal для первокурсника (оплата)

29.12.2010, 18:51. Просмотров 625. Ответов 8
Метки нет (Все метки)

Вообщем нужно написать программки, учусь на первом курсе, разбираться в Pascal времени не было, сам работаю, поэтому прошу помочь, за небольшую плату думаю 50-70 руб. будет достаточно) Ну и собственно задания смотрите во вложениях. Сделать надо сегодня, завтра отнесу проверят, если норм оплата, если нет, исправляем косяки и оплата.
0
Вложения
Тип файла: doc задания.doc (30.0 Кб, 41 просмотров)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
29.12.2010, 18:51
Ответы с готовыми решениями:

Написать программы на Pascal
Всем доброго времени суток! У меня такая проблемка,в универе дали две лабы...

написать программы на Turbo Pascal
1) найти суму членов геоиметрической прогрессии, если известны ее первый член,...

Составить блок схему для текста программы Pascal
Ввести одномерный массив A, вывести его. Найти в массиве минимум и часть до...

Составить блок схему для текста программы Pascal
Ввести двумерный массив AN×M. Каждую вторую строку в массиве заменить...

Составить блок схему для текста программы Pascal
Ввести целочисленный двумерный массив AN×M, вывести его. Найти сумму его...

8
Gxost
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
29.12.2010, 20:09 2
2 задание
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
uses crt;
var
с: char;
s: string;
begin
clrscr;
for с := 'a' to 'z' do 
begin
s:=s+c 
writeln(s);
end;
readln;
end.
бесплатно)
1
Dekio
Фрилансер
Эксперт С++
5838 / 1219 / 499
Регистрация: 23.11.2010
Сообщений: 3,377
Записей в блоге: 1
29.12.2010, 20:30 3
Цитата Сообщение от egur Посмотреть сообщение
думаю 50-70 руб. будет достаточно)
Это за 1 задание?

Не по теме:

Переместить тему в фриланс?

0
maladoy
112 / 84 / 56
Регистрация: 09.01.2009
Сообщений: 209
29.12.2010, 21:37 4
зад N1
Pascal
1
2
3
4
5
6
7
8
9
var s,n,f,i:integer;
begin
readln(n);
s:=1;f:=1;
for i:=2 to n do
s:=s+f*i;
writeln(s);
readln;
end.
Код
var i,f,n,j:integer;
s,x:real;
begin
readln(n,x);
s:=0;
for i:=1 to n do begin f:=1;
for j:=1 to 2*i-1 do
f:=f*x/j;
s:=s+f;
end;
writeln(s:6:3);
readln;
end.
0
vampironok
0 / 0 / 0
Регистрация: 29.12.2010
Сообщений: 3
29.12.2010, 21:46 5
Задание 3
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Function CountDigits(N:Integer):Byte;
var Count:Byte;
begin
  Count:=0;
  Repeat
    N:=N div 10;
    Inc(Count);
  until n=0;
  CountDigits:=Count;
end;
 
Function SumDig(var K:Integer):Integer;
var Sum:Integer;
begin
  Sum:=0;
  While K>0 do begin
    Sum:=Sum+ (K mod 10);
    K:=K div 10;
  end;
  SumDig:=Sum;
end;
 
Function MathRoot(N:Integer):Integer;
var Root,tmp:Integer;
begin
  tmp:=SumDig(N);
  While tmp>10 do
    tmp:=SumDig(tmp);
  MathRoot:=tmp;
end;
 
var N, MatR,IOR:Integer;
     Count:Byte;
begin
  WriteLn('Enter number');
  Repeat
    {$I-} Readln(N); {$I+} IOR:=IoResult;
    if IOR <> 0 then Writeln('Input error');
  until (IOR=0) and (N>0);
  WriteLn('Count = ', CountDigits(N));
  WriteLn('MathRoot = ', MathRoot(N));
end.
0
Gxost
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
29.12.2010, 23:53 6
vampironok
можешь описать все свои действия а то я не оч понимаю 3 задание
0
vampironok
0 / 0 / 0
Регистрация: 29.12.2010
Сообщений: 3
30.12.2010, 13:48 7
Сейчас объясню))
Первая функция CountDigits
подсчитывает количество цифр в числе. мы отделяем от числа по цифре пока их там не останется.
Что-то вроде: число 234, сначала откидываем 4(после деления без остатка на 10 остается 23), потом 3, потом 2 итого 3 цифры. Функция возвращает число цифр.

Вторая функция SumDig
считает сумму цифр в числе. Нужна для подсчета математического корня.
Пример:
K:=243.
Sum:=3,
K:=24,
Sum:=7,
K:=2,
Sum:=9,
K:=0.
Итого сумма цифр = 9.

в третьей процедуре немного ошиблась
Pascal
1
2
3
4
5
6
7
8
Function MathRoot(N:Integer):Integer;
var Root:Integer;
begin
  Root:=SumDig(N);
  While Root>9 do
    Root:=SumDig(Root);
  MathRoot:=Root;
end;
Подсчитывает математический корень числа, т.е. сумму цифр в числе, и если эта сумма двух/трехзначное число, то и сумму цифр в нем.
Сначала подсчитываем сумму цифр в числе N.
Потом проверяем, сумма число однозначное или нет. Если нет, то считаем сумму цифр в нем, пока оно не станет однозначным.
функция возвращает математический корень.

далее главная программа.
Сначала проверка ввода, чтобы число было >0 и входило в границы типа Integer.
Потом вывод результатов работы функций.
Как-то так)))
0
Gxost
39 / 39 / 30
Регистрация: 07.12.2010
Сообщений: 114
30.12.2010, 14:55 8
спасибо разобрался))
0
egur
0 / 0 / 1
Регистрация: 29.12.2010
Сообщений: 13
02.01.2011, 09:53  [ТС] 9
Оу vampironok спасибо тебе огромное дружище и сновым годом тебя, зачет по инфе уже получил)
0
02.01.2011, 09:53
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
02.01.2011, 09:53

Составить блок схему для текста программы Pascal
Ввести двумерный массив A2×5. Определить в нём среднее геометрическое модулей...

Блок схема для Pascal программы определения вхождения одного массива в другой
Блок схему нужна для курсача( :cry: program aa; const p=20; m=5; var...

Написать программу на языке pascal для расчета значений заданной функции
ЗАДАНИЕ: Написать программу на языке pascal для расчета значений заданной...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru