Как написать программу 1000 7 на паскале

0 / 0 / 0

Регистрация: 11.11.2021

Сообщений: 1

1

11.11.2021, 20:35. Показов 68597. Ответов 1

Для вас есть простой код , который может считывать 1000-7 до 0.
Настоящие ценители «Токийского гуля» оценят

Код

program deadinside;
uses crt;
var kaneki:integer;
begin
  kaneki:=1000;
  while kaneki>10 do begin
    write(kaneki, '-7=');
    kaneki:=kaneki-7;
    writeln(kaneki);
    delay (50);
  end;
  writeln('я...гуль...');
end.

__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь



0

XzzzX

381 / 260 / 116

Регистрация: 09.07.2021

Сообщений: 928

Записей в блоге: 1

11.11.2021, 22:21

2

как настоящий PascalABC.Net-гуль призываю писать 1000-7 программы без устаревших операторов и выражений.

Pascal 
1
2
3
4
5
6
7
8
9
10

##
var kaneki:= 1000;
while kaneki > 10 do 
  begin
    print(kaneki, '- 7 =');
    kaneki-= 7;
    println(kaneki);
    delay(50);
  end;
println('я...гуль...');



0
Источник

Код для истинных и настоящих дединсайдиков

😈

Написано на Python, C++, C#, Java, PascalABC, Ruby, Rust, R, Haskell, Go, nim, PHP, веб HTML/JS и конфиг для AutoHotkey.

Плейлист для дединсайдов в Spotify (клик)

Скачать EXEшник (на C++)
deadinside.ahk используется в виде конфиге для софта AutoHotkey (гайд по использованию конфига)

Источник

leekyrave


  • #1

сделал скрипт для дединсайдов,который считает 1000-7. щас через 5 минут залью чтобы вы сами считали

  • пройди и станешь гулем.rar

    70.9 KB

    · Просмотры: 3,850

Brass_Golem


  • #3

Обратите внимание, пользователь заблокирован на форуме. Не рекомендуется проводить сделки.

leekyrave


  • #4

а,я чудовище,щас скину норм

leekyrave


  • #5

во

  • пройди и станешь гулем.rar

    70.9 KB

    · Просмотры: 2,260

F0RQU1N and


  • #6

ахахахахах на ц шарпе гулем стать захотел лучше на асме переделай будет круче

Adrian G.


  • #7

Только я начал смотреть это аниме и оно везде теперь

leekyrave


  • #8

ахахахахах на ц шарпе гулем стать захотел лучше на асме переделай будет круче

могу на паскале,прост был шарп под рукой

SwiftKey SwiftKey Flow


Источник

Люди, у меня такая просьба, посмотрите пжл решение задачки и если чё подкорректируйте (вывести на экран ТОЛЬКО ВСЕ счастливые числа в интервале от 1000 до 999999, сч.числа — сумма первых трёх цифр равна сумме остальных трёх (автобусный билет). если число например, 1111, то паскаль ставит нули перед ним). Я ещё добавил сколько всего этих чисел, если мешает, можно убрать СРОЧНО ПЖЛ ПОМОГИТЕ ДО СЕГОДНЯШНЕГО ВЕЧЕРА (ЗАВТРА НАДО!):

P

rogram z1;
Var a,k1,k2,k,l: longint;
a1,a2,a3,a4,a5,a6: integer;
begin
k1:=0;
k2:=0;
k:=0;
l:=0;
for a:=1000 to 999999 do begin
a6:=a mod 10;
a:=a div 10;
a5:=a mod 10;
a:=a div 10;
a5:=a mod 10;
a:=a div 10;
a4:=a mod 10;
a:=a div 10;
a3:=a mod 10;
a:=a div 10;
a2:=a mod 10;
a1:=a div 10;
k1:=a1+a2+a3;
k2:=a4+a5+a6;
k:=a1*100000+a2*10000+a3*1000+a4*100+a5*10+a6;
if (k1=k2) then begin
l:=l+1;
writeln ('schastlivoe chislo:  ',k)
readln;
end;
end;
writeln ('vsego shastlivyx chisel ',l);
readln;
end.
Источник

Циклы. Тексты программ

Материал из Вики проекта PascalABC.NET

Перейти к навигацииПерейти к поиску

Вывод последовательностей 1 2 3 4 5 и 5 4 3 2 1

var i: integer;
begin
// С помощью for
  for i := 1 to 5 do
    write(i,' ');
  writeln;
  
  for i := 5 downto 1 do
    write(i,' ');
  writeln;
  writeln;
  
// С помощью while
  i := 1;
  while i<=5 do
  begin
    write(i,' ');
    i := i + 1;
  end;
  writeln;
  
  i := 5;
  while i>=1 do
  begin
    write(i,' ');
    i := i - 1;
  end;
  writeln;
  writeln;

// С помощью repeat
  i := 1;
  repeat
    write(i,' ');
    i := i + 1;
  until i>5;
  writeln;

  i := 5;
  repeat
    write(i,' ');
    i := i - 1;
  until i<1;
  writeln;
end.

Вывод последовательности 1 3 5 7 9

var i,x: integer;
begin
// С помощью for и промежуточной переменной
  x := 1;
  for i := 1 to 5 do
  begin
    write(x,' ');
    x := x + 2;
  end;
  writeln;
  
// С помощью for без промежуточной переменной
  for i := 1 to 5 do
    write(2*i-1,' ');
  writeln;
  
// С помощью while
  x := 1;
  while x<10 do
  begin
    write(x,' ');
    x := x + 2;
  end;
  writeln;
  
// С помощью repeat
  x := 1;
  repeat
    write(x,' ');
    x := x + 2;
  until x>=10;
end.

Сумма и произведение введенных чисел

Код на Pascal 

var 
  i: integer;
  s,p: real;
  x: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for i := 1 to 10 do
  begin
    read(x);
    s := s + x;
    p := p * x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.

Код на PascalABC.NET 

var 
  s,p: real;
begin
  writeln('Введите 10 чисел: ');
  s := 0;
  p := 1;
  for var i := 1 to 10 do
  begin
    var x: integer;
    read(x);
    s += x;
    p *= x;
  end;
  writeln('Сумма введенных чисел = ',s);
  writeln('Произведение введенных чисел = ',p);
end.

Вычисление n!

Код на Pascal 

var 
  n,fact: integer;
  i: integer;
begin
  write('Введите n (n<=13): ');
  readln(n);
  fact := 1;
  for i := 2 to n do
    fact := fact * i;
  writeln(n,'! = ',fact);
end.

Код на PascalABC.NET 

var n: integer;
begin
  write('Введите n (n<=13): ');
  readln(n);
  var fact := 1;
  for var i := 2 to n do
    fact *= i;
  writeln(n,'! = ',fact);
end.

Вычисление An

Код на Pascal 

var 
  n,i: integer;
  a,p: real;
begin
  write('Введите a,n: ');
  readln(a,n);
  p := 1;
  for i := 1 to n do
    p := p * a;
  writeln(a,' в степени ',n,' = ',p);
end.

Код на PascalABC.NET 

var 
  n: integer;
  a: real;
begin
  write('Введите a,n: ');
  readln(a,n);
  var p := 1.0;
  for var i := 1 to n do
    p *= a;
  writelnFormat('{0} в степени {1} = {2}',a,n,p);
end.

Вывод цифр числа

var x: integer;
  
begin
  write('Введите x: ');
  readln(x);
  write('Цифры числа x в обратном порядке: ');
  while x<>0 do
  begin
    write(x mod 10,' ');
    x := x div 10;
  end;
end.

Вывод букв английского алфавита

var c: char;
  
begin
  for c := 'a' to 'z' do
    write(c,' ');
  writeln;  
  c := 'A';
  while c<='Z' do
  begin
    write(c,' ');
    c := succ(c);
  end;
end.

Числа Фибоначчи

Код на Pascal 

const n = 25;

var 
  a,b,c: integer;
  i: integer;  
  
begin
  a := 1;
  b := 1;
  write(a,' ',b,' ');
  for i := 3 to n do
  begin
    c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.

Код на PascalABC.NET 

const n = 25;

begin
  var a := 1;
  var b := 1;
  write(a,' ',b,' ');
  for var i := 3 to n do
  begin
    var c := a + b;
    write(c,' ');
    a := b;
    b := c;
  end;
end.

Минимум из введенных

Код на Pascal 

const n = 10;

var  
  min: integer;
  x: integer;
  i: integer;
  
begin
  writeln('Введите ',n,' значений: ');
  read(x);  
  min := x;  
  for i := 2 to n do
  begin
    read(x);
    if x<min then
      min := x;
  end;
  writeln('Минимальное значение = ',min);
end.

Код на PascalABC.NET 

const n = 10;

var min: integer;

begin
  writelnFormat('Введите {0} значений: ',n);
  min := integer.MaxValue;  
  for var i := 1 to n do
  begin
    var x: integer;
    read(x);
    if x<min then
      min := x;
  end;
  writeln('Минимальное значение = ',min);
end.

Алгоритм Евклида поиска НОД

begin
  var (a,b) := ReadInteger2('Введите a,b: ');  
  while b<>0 do
  begin
    var c := a mod b;
    a := b;
    b := c;
  end;
  Writeln('Наибольший Общий Делитель = ',a);
end.

Вывод таблицы умножения

Код на PascalABC.NET 

const n = 9;

begin
  for var i:=1 to n do
  begin
    for var j:=1 to n do
      write(i*j:4);
    writeln;  
  end;
end.

Определение простоты числа

begin
  var N := ReadlnInteger('Введите целое (>1): ');

  var IsPrime := True;
  for var i:=2 to Round(Sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N) 
    if N mod i = 0 then
    begin
      IsPrime := False;
      break;
    end;
  
  if IsPrime then
    Writeln('Число ',N,' простое')
  else Writeln('Число ',N,' составное');  
end.

Ссылки

  • Программы для начинающих
  • Сайт PascalABC.NET: Программы и алгоритмы для начинающих

Источник

Заполнение массива A(10) случайными числами и вывод элементов массива

program n_2;

var i: integer;
    a: array[1..10] of integer;

begin
  randomize;

  for i:=1 to 10 do
    a[i]:=random(100);

  for i:=1 to 10 do
    write(a[i],' ');
end.

Вычисление суммы элементов массива

program  n_3;
  var s, i: integer;
      a: array[1..10] of integer;
begin 
  s:=0;
  randomize;
  for i:=1 to 10 do a[i]:=random(100);
  for i:=1 to 10 do write (a[i],' ');
  for i:=1 to 10 do s:=s+a[i];
  writeln('s=', s)
end.

Вычисление суммы элементов массива
[Используем операторные скобки и всё (ввод, вывод, обработку) делаем в одном цикле]

program  n_3_1;
  var s, i: integer;
      a: array[1..10] of integer;
begin 
  s:=0;
  randomize;

  for i:=1 to 10 do
     begin 
        a[i]:=random(100);
        write(a[i],' ');
        s:=s+a[i]
     end;

  writeln('s=', s)
end.

Программа поиска наибольшего элемента в массиве

program  n_4;
  var i, imax: integer; 
      a: array[1..10] of integer;
begin 
  randomize;

  for i:=1 to 10 do a[i]:=random(100);
  for i:=1 to 10 do write(a[i],' ');

  imax:=1;

  for i:=2 to 10 do
    if a[i]>a[imax] then
       imax:=i;

  write('Наибольший элемент   a[', imax, ']=', a[imax])

end.

Поиск элемента, равного 50

program  n_5;

var   n, i: integer; 
      a: array[1..10] of integer;

begin 
  randomize;

  for i:=1 to 10 do a[i]:=random(100);
  for i:=1 to 10 do write(a[i],' ');

  n:=0;
  for i:=1 to 10 do
    if a[i]=50 then
       n:=i;

  if n=0 then
     write('Нет')
  else
     write(n)

end.

Поиск элемента, равного 50

program  n_5_1;
  var n, i: integer; 
      a: array[1..10] of integer;
begin 
  randomize;
  for i:=1 to 10 do a[i]:=random(100);
  for i:=1 to 10 do write(a[i],' ');

  i:=0;
  repeat
    i:=i+1;
  until (a[i]=50) or (i=10);

  if a[i]=50 then
    write(i) 
  else 
    write('Нет')
end.

Для подсчета вводится переменная, значение которой увеличивается на единицу каждый раз, когда найден нужный элемент.

program  kolich;

var   k, i: integer; 
      a: array[1..10] of integer;

begin 
  randomize;

  for i:=1 to 10 do a[i]:=random(100);
  for i:=1 to 10 do write (a[i],` `);

  k:=0;
  for i:=1 to 10 do
    if a[i]>50 then
       k:=k+1;

  write('k=', k)

end.

Сумма значений элементов, удовлетворяющих условию

program  sum ;

var   s, i: integer; 
      a: array[1..10] of integer;

begin 
  randomize;

  for i:=1 to 10 do
    a[i]:=random(100);

  for i:=1 to 10 do
    write (a[i],` `);

  s:=0;
  for i:=1 to 10 do
    if (a[i]>10) and (a[i]<30) then
      s:=s+a[i];

  write('s=', s)

end.

Сортировка массива

program sort;

var   n, i, j, x, imax: integer;
      a: array [1..10] of integer;

begin
  for i:=1 to 10 do read (a[i]);
  for i:=1 to 10 do write (a[i], ' ');

  for i:=1 to 9 do
  begin
    imax:=i;
    for j:=i+1 to 10 do
      if a[j]>a[imax] then
        imax:=j;

    x:=a[i];
    a[i]:=a[imax];
    a[imax]:=x
  end;

  for i:=1 to 10 do
    write(a[i], ' ')
end.

Возведение числа в любую степень.

program calc_stepen;

var
  a, b, h, i: integer;
  c: real;

begin
  b := 1;
  readln( a, h);
  for i := 1 to abs(h) do
    b := b * a;
  if h < 0 then
    c := 1 / b
  else
    c := b;

  writeln( c:3:5 );

end.

Определение гласных и согласных букв:

program alfabet;

var
  s: char;

begin
  read(s);
  case s of 
    'а','е','ё','и','о','у','ы','э','ю','я': writeln('гласные');
    'б','в','г','д','ж','з','й','к','л','м','н','п','р','с','т','ф','х','ц','ч','ш','щ': writeln('согласные');
    
  else
    writeln('знаки');
  end;
end.

Решение 50 типовых задач на Pascal, Душистов

Источник

Понравилась статья? Поделить с друзьями:
  • Как написать программный код
  • Как написать программку к спектаклю
  • Как написать прогноз погоды на английском языке
  • Как написать провокационный пост
  • Как написать проверочный код